أ / محمد صالح

أخي الكريم أنا استعملت في الكود أن اسم النموذج userform1 فإذا كان النموذج لديك له اسم مختلف يمكنك كتابة اسم النموذج ثم الوسيلة show فمثلا إذا كان النموذج لديك اسمه form1 يمكنك فتحه بعد المدة المحددة بالكود التالي form1.show وليس userform1.show أتمنى أن يكون الأمر واضحاً

أشكر كل من ساهم في هذا الموضوع وأقول لكم أن الألغاز ليست مضيعة للوقت ولا تعب للعقل بدون فائدة كما يظنها البعض بل هي الطريق السليم لتطوير قدرات العقل. لغز بسيط آخر: كم عدد الدقائق التي مضت بعد الثانية عشرة مساء إذا كان عددها منذ 28 دقيقة مضت يبلغ ثلث الدقائق التي مضت بعد الحادية عشرة صباحاً؟؟!!

شكرا للأخوين عبد الله ويحيى حسين ولإثراء الموضوع هذا رابط لموضوع مشابه ودالة من تأليفي لهذا الغرض http://www.officena....80

لتحديد المدة التي يتم تنفيذ الإجراء بعدها نغير في هذا السطر من sub timer vartimer = Format(Now + TimeSerial(0, 2, 0), "hh:mm:ss") حيث أن الدالة timeserial تضيف على الوقت الحالي وأول رقم للساعات وثاني رقم للدقائق وثالث رقم للثواني ............... ولإظهار نموذج إسمه userform1 بعد انتهاء المدة المحددة نغير الكود داخل الإجراء Sub yahm() إلى userform1.show ليصبح Sub yahm() userform1.show end sub مع حذف الكود الخاص بحفظ الملف وإطفاء الجهاز

أخي الكريم لإضافة صباحاً ومساء لكود الأستاذ الحسامي غير كود الدالة UpdateForm لما يلي: Public Function UpdateForm() frmTimer.lblNow = Format(Now, "hh:mm:ss ampm") End Function تجدها في الموديول الثاني وإذا استعملتها في نموذج جديد يجب جعل خاصية مشروط في خصائص النموذج show modal تساوي false

بارك الله لك أخي محمد يحياوي وأثناء بحثي على الإنترنت كنت قد وجدت هذا الملف بخصوص التحكم في النموذج وبه الكثير من الدوال: منها عرض وإخفاء أزرار الغلق والتكبير والتصغير وشفافية النموذج وإمكانية تحجيمه و ..... و ..... و ...... أترككم مع المرفق الذي يجعل نماذجكم قمة في الروعة UserFormControl.rar

أخي الكريم بدون إرفاق ملفات يمكنك استعمال ميزة ضمن الإكسل تسمى السماح للمستخدمين بتحرير النطاقات Allow Users to Edit Ranges الموجودة في قائمة أدوات tools ثم حماية protection (وفي أوفيس 2007 أو 2010 توجد في تبويب مراجعة review) وعند ظهور النافذة الخاصة بالسماح اضغط على جديد new ثم حدد المدى المطلوب ثم اكتب كلمة المرور إذا رغبت ثم اضغط على موافق ok وفي النافذة الأولى اضغط على حماية ورقة البيانات protect sheet ثم ok

بسم الله الرحمن الرحيم أخي جلال محمد شكرا لك على هذا الرابط أخي عبد الله فكرته بسيطة جداً وهي: أن الفرق بين أي رقم مكون من رقمين ( من 10 إلى 99) وحاصل جمع الرقمين ........... دائماً يساوي مضاعفات العدد 9 يعني 9 أو 18 أو 27 أو 36 أو 45 أو 54 أو 63 أو 72 أو 81 وبالنظر في الفلاش نجد أن كل هذه الأرقام رموزها واحدة (صورة واحدة) وعندما نضغط على العين يعرض هذه الصورة التي يتم تعريفها مسبقاً بالكود أن تكون في كل هذه الأرقام ولذلك نجد أن أي رقم تقوم بحسابه سيكون نتيجته صورة واحدة وهكذا هل وضحت الفكرة؟؟!! ........ ملحوظة : هذه الفكرة يمكن تنفيذها على أي عدد من الأرقام وليس عدد مكون من رقمين فقط

بالفعل أخي الكريم قم بإلغاء تثبيت الأوفيس ثم شغل أي برنامج لفحص وتنظيف الريجيستري مثل CCleaner أعد تثبيت أوفيس 2007 مع مراعاة اختيار all from this computer الكل من هذا الجهاز أثناء التثبيت ليتم تثبيت الأوفيس كاملاً ............... ملحوظة ليست كل نسخ أوفيس 2007 بها ميزة الحفظ ك pdf لذلك يلزمك تثبيت ملف مساعد لحفظ الملف ك pdf جرب وأخبرنا بنتيجة

أخي الكريم أبو الحسن أولا : لعرض الساعة في نموذج يفضل أن توضع في تسمية label وليس في مربع نص textbox ثانياً : عرض الساعة باللغة العربية أو الإنجليزية مرتبط بتنسيق التاريخ في جهاز المستخدم ولغة هذا التنسيق ثالثاً : تم معالجة عرض صباحاً ومساءً في المرفق مرفق ملف بكود بسيط يعالج موضوع المؤقتات في الإكسل من خلال الحدث ontime الخاص بالتطبيق mas_clockform.rar

بارك الله لك استاذ عماد كنت متوقع إنك انت اللي هتجيب الحلين ولحل مثل هذه الألغاز أنا شخصياً استعملت أكواد vba هذا هو Sub mas() Dim n, cm, cw, ch As Integer n = 1 For cm = 1 To 98 For cw = 1 To 98 For ch = 1 To 98 If cm * 5 + cw + ch / 10 = 100 And cm + cw + ch = 100 Then ActiveSheet.Cells(n, 1).Value = "عدد الجمال : " & cm & " عدد البقر : " & cw & " عدد الخرفان : " & ch n = n + 1 End If Next ch Next cw Next cm MsgBox "تمت بحمد الله" End Sub وحصلت على المطلوب خلال ثانيتين بعد تفكير دقيقتين في ترتيب الكود ........... بانتظار ألغاز حسابية جديدة

أخي الكريم بما أنك تستخدم أوفيس حديث 2007 أو 2010 اكتب في الخلية i9 طبيب ثم اكتب هذه المعادلة في الخلية i10 =COUNTIFS(D$4:D$25,$I$9,E$4:E$25,G10) ثم انسخ المعادلة رأسياً لباقي المواقع ..... ومرفق ملفك بعد التعديل المعادلة في العمودين الأولين تنفع في أوفيس 2007 و 2010 والمعادلة في العمودين الآخرين تنقع مع أوفيس 2003 وما قبله العد بأكثر من شرط2003-2007.rar

فزورة أخرى: لدينا 100 جنيه نريد أن نشتري بها 100 حيوان من السوق مع العلم بأن سعر الجمل 5 جنيهات وسعر البقرة 1 جنيه وسعر الخروف 0.10 جنيه ( 10 قروش) ويجب أن نشتري من الثلاثة أنواع ....... فكم يكون عدد كل نوع من الحيوانات؟؟!! ....... ملحوظة : الفزورة لها أكثر من حل وأتمنى التوثيق بمعادلات

بارك الله فيك أخي مجدي أشك في صحة الشرط الثالث لأن هذا ما توصلت إليه ......... الكتاب: التجاريب - المؤلف : ولي الدين - عدد الصفحات: 142 - الطالب: منير الكتاب: الآثار الباقية - المؤلف : رشيد أيوب - عدد الصفحات: 154 - الطالب: كامل الكتاب: أعاني الدرويش - المؤلف : أبو الريحان البيروني - عدد الصفحات: 137 - الطالب: بسام

بارك الله لك أخي عبد الله شرح رائع ...... أخي ضي النور لا يتم اللجوء للكود إلا في حالة عدم القدرة على تنفيذ الأمر بالطرق العادية وهذه أفضل الطرق لمنع التكرار

أخي الكريم أبو الحسن أوفيس 2003 لا يقوم بتصدير الملفات بصيغة pdf ولعمل ذلك يمكن التحايل على ذلك بما يلي: تثبيت طابعة وهمية على الجهاز تقوم بحفظ ما تقوم بطباعته بصيغة pdf وأفضل طابعة في هذا المجال في رأيي هي pdf creator لتحميلها http://sourceforge.net/projects/pdfcreator/ واستعملها كطابعة عادية جداً ويمكنك استعمال كود الطباعة العادي معها

جنيهان

ما شاء الله الموضوع ازداد حماساً كما توقعت له بارك الله لكم جميعاً واسمحوا لي بإضافة بسيطة في موضوع المهر والمتوالية الهندسية لحل مثل هذه المتواليات وبثلاثة متغيرات هي: أول رقم في المتوالية (في حالتنا 1 ) الرقم الذي يتم الضرب فيه (في حالتنا 2 ) عدد مرات التكرار ( في حالتنا 30) تكون المعادلة كالتالي: =1*(2^30-1)/(2-1) بصورة أخرى = أول رقم في المتوالية * (الرقم المضروب فيه ^ عدد مرات التكرار - 1) / (الرقم المضروب فيه - 1) العلامة ^ تعني الأُس ويتم كتابتها ب shift+6 وجرب أن تغير طريقة اللغز بأرقام جديد وعدد مرات جديد وطبق المعادلة ستجد بإذن الله الحل صحيح ************** وأود أن أضيف إضافة بسيطة في هذا الأمر وهي أنه يمكنك عملها من خلال مقبض التعبئة fill handle بدون معادلات إلا للجمع فقط وذلك من خلال: اكتب في a1 الخلية الأولى 1 وفي a2 الخلية الثانية 2 ثم حدد الخليتين معاً ثم اسحب مقبض التعبئة بزر الفارة الأيمن إلى الصف 30 ثم اختر من القائمة "اتجاه نمو" growth trend ستجد المتوالية كاملة فقط يلزمك جمعها بـ sum ======== ولا ينقصني سوى دعاؤكم

بارك الله لك أخي عماد بالفعل المهر : 10,737,418.23 10 مليون و 737 ألف و 418 جنيه و 23 قرش كان ينقص إخواني عبد الله والأنيس ويوسف فقط تجميع هذه الأيام لأنه يدفع في أول يوم ثم يضيف عليه في ثاني يوم ولا يسترد ما دفعه سابقاً ............... وبانتظار وجهات نظر أخرى في الوصول للحل

إخواني الكرام للأسف الحل خطأ برجاء مراجعة اللغز مرة أخرى

بانتظار حلول الإخوة وطريقة حلهم وتوضيح مدى صحة أوخطأ الحلول السابقة للأخ الكريم عبد الله والأخ الكريم الأنيس

أخي الكريم جمال دغيدي النطاق الذي يتم طباعته محدود ويتم استدعاء بيانات بداخله لذا لا يمكن أن يتم احتواء جميع الصفحات في أمر طباعة واحد ولكن يتم ما قام به أخونا عبد الله وهو كالتالي: تحديث لقيمة الخلية التي هي سبب تحديث البيانات ثم إعطاء أمر لطباعة الصفحة الحالية فقط ......... وبالفعل هذا الأمر مرهق جداً للطابعة وخصوصا في حالة كثرة أعداد الصفحات التي تتم طباعتها ........ أنا شخصيا استعمل عدد معين من الصفحات وذلك بالتعديل على الكود في الأرقام الموجودة في أمر التطرار for يعني مثلا طباعة من 1 إلى 10 في مرة واحدة ومن 10 إلى 30 مثلا في مرة أخرى وهكذا

شكرا للأخ عبد الله على هذا اللغز وإضافة للموضوع في ألغاز أخرى حتى يكون الموضوع خاص بالألغاز الحسابية وكيفية حلها في الإكسل ............ ذهب شاب لخطبة فتاة فأخبره أبوها أن مهرها بسيط فقال الشاب ما هذا المهر؟ فقال الرجل: أن تدفع لها في أول يوم من الشهر قرش واحد وفي اليوم التالي تدفع ضعف ما دفعته في اليوم السابق لمدة 30 يوم فرد الشاب متعجلاً : هذا مهر بسيط جداً ولكنه عند حسابه وجده كثيييييييييييير جدا جدا جداً .............. فكم قيمة مهر الفتاة بالجنيه؟؟ ملحوظة: الجنيه المصري = 100 قرش أتمنى وضع المعادلة أو الطريقة التي وصلت بها للحل

أخي الكريم استعمل هذه الدالة Function reverse_string(str As String) As String Dim text As String, n as integer text = "" For n = 0 To Len(str) - 1 text = text & Mid(str, (Len(str) - n), 1) Next n reverse_string = text End Function وطريقة استدعائها كالتالي reverse_string("حلاص دمحم")

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته مواصلة لما بدأه أخواي عبد الله المجرب وأبو عبد الله هنا تلخيص لكل ما يخص الماكرو من حيث التسجيل والتعامل بالحذف أو التعديل أو الاستدعاء ................ يمكن تسجيل الماكرو من تبويب المطور developer أو من شريط الحالة status bar * - لإطهار تبويب المطور في أوفيس 2007: اضغط على زر الأوفيس ثم خيارات إكسل excel options ثم من التبويب شائع popular اختر "إظهر تبويب المطور في الشريط" Show Developer tab in the Ribbon ثم موافق ok * - لإطهار تبويب المطور في أوفيس 2010: اضغط على تبويب ملف file tab ثم خيارات options ثم تخصيص الشريط customize ribbon ثم اختيار المطور developer من القائمة اليمنى ثم موافق ok * - لإظهر زر تسجيل الماكرو في شريط الحالة status bar إذا لم يكن موجوداً اضغط بزر الفارة الأيمن على شريط الحالة ثم اختر تسجيل ماكرو macro recording === بعد الضغط على تسجيل ماكرو تظهر شاشة لتسمية الماكرو واختيار مكان تخزين الماكرو وإضافة اختصار من لوحة المفاتيح له وكتابة وصف نتعامل معها كما نريد ثم نضغط على موافق ok === * - ولإيقاف تسجيل الماكرو يمكن استعمال شريط المطور أو شريط الحالة === للتعامل مع الماكرو بالتعديل أو الحذف يمكن الوصول لها من خلال الضغط على alt+f11 للوصول لنافذة محرر الفيجوال بيسك أو الضغط على زر الماكروات macros في شريط المطور أو الشغط على alt+f8 من لوحة المفاتيح ثم نحدد الماكرو المراد تعديله أو حذفه ثم نضغط على زر تعديل edit أو حذف delete * - ويمكن أيضا حذف الماكرو من شاشة محرر الفيجوال بيسك وذلك بتحديد نص الماكرو بداية من sub إلى end sub ثم الضغط على delete من لوحة المفاتيح (كحذف أي نص عادي) --- * - لوضع اختصار أو وصف أو تغيير مكان تخزين ماكرو نضغط على خيارات options في نافذة الماكروات بعد تحديد الماكرو المطلوب. == لتشغيل الماكرو: * - يمكنك تشغيل الماكرو من خلال الضغط على الماكروات macros في شريط المطور developer ثم اختيار الماكرو المطلوب ثم الضغط على تشغيل run أو بالضغط على alt+f8 لظهور نفس النافذة واختيار الماكرو المطلوب ثم الضغط على run * - أو يمكنك تشغيل الماكرو من داخل شاشة محرر الفيجوال بيسك بالوقوف بالمؤشر داخل الماكرو المطلوب ثم الضغط على f5 من لوحة المفاتيح أو من قائمة run اختر run sub/user form * - أو يمكنك ربط الماكرو بزر أو بصورة أو بشكل تلقائي وذلك من خلال الضغط بزر الفارة الأيمن على الأداة المطلوب ربطها بماكرو ثم اختيار "تعيين ماكرو" assign macro تظهر نافذة يمكنك اختيار الماكرو المطلوب ربطه ثم موافق ok أو تسجيل ماكرو جديد بالضغط على "تسجيل" record أو كتابة كود ماكرو جديد بالضغط على "جديد" new * - يمكنك إضافة الماكرو إلى شريط الوصول السريع (الشريط الصغير على يمين زر أوفيس أو تبويب ملف) وذلك من حلال: الضغط على السهم في نهاية شريط الوصول السريع ثم اختيار "أوامر أكثر" more commands أو الضغط بزر الفارة الأيمن على شريط الوصول السريع أو الشريط ribbon واختيار "تخصيص شريط الوصول السريع" customize quick access tool bar تظهر نافذة الخيارات على تبويب شريط الوصول السريع نختار من القائمة العلوية اليسرى "اختيار الأوامر من" choose commands from ماكروات macros تظهر جميع الماكروات افل القائمة اختر منها ما تشاء ثم اضغط على زر إضافة add ولتغيير اسم ظهور الماكرو وايقونته في شريط الوصول الريع نحدد الماكرو الذي تمت إضافته في الجزء الأيسر من النافذة ثم الضغط على زر تعديل modify * - لإضافة الماكرو إلى تبويب جديد في الشريط (خاص بأوفيس 2010): نضغط بزر الفارة الأيمن على شريط الوصول السريع أو الشريط ribbon واختيار "تخصيص الشريط" customize the ribbon ثم نختار من القائمة اليسرى العلوية الماكروات macros ثم ننشئ تبويباً جديداً من خلال الضغط على زر "تبويب جديد" new tab اسفل الجزء الأيمن من النافذة ثم تحديد الماكرو المطلوب من اليسار والضغط على زر إضافة add وبنفس الطريقة يمكنك تعديل اسم التبويب أوالماكرو وأيقونته ======== وفي الأخير لكم مني كل التمنيات بالتوفيق ولا ينقصني سوى دعاؤكم والسلام عليكم ورحمة الله وبركاته