نجوم المشاركات

بارك الله فيك و اكثر من امثالك اخي العزيز محمد ممكن ان تستخدم زر امر واحد فقط .... سا شرح لك الطريقة ان اردت تنفيذها سيتم ذلك بتعيين قيمة مختلفة لخاصية زر الامر ( علامة او بالانجليزية Tag ) عند اختيار تبويب معين من علامة الجدولة .. ثم بعد ذلك تقوم بعمل ما تريد فعله من زر الامر بناءً على قيمة هذه الخاصية . سيتغير الاجراء ليكون كالتالي Select Case Me.TabCtl0 Case 0 Me.Cmd.Tag = 0 MsgBox "aaa" Case 1 Me.Cmd.Tag = 1 MsgBox "bbb" Case 2 Me.Cmd.Tag = 2 MsgBox "ccc" End Select ثم في حدث عند النقر لزر الامر سنقوم بتنفيذ الاوامر حسب قيمة الخاصية ... هنا قمت انا بعرض رسائل و الكود لزر الامر سيكون كالتالي : Select Case Me.Cmd.Tag Case 0 MsgBox "This is aaa" Case 1 MsgBox "This is bbb" Case 2 MsgBox "This is ccc" End Select تفضل الملف به الفكرة بالتوفيق Tapages.rar

لا شكر على واجب اخي العزيز محمد استبدل الاجراء بالتالي : Select Case Me.TabCtl0 Case 0 Me.Cmdaaa.Visible = True Me.cmdbbb.Visible = flase Me.cmdccc.Visible = flase MsgBox "aaa" Case 1 Me.cmdbbb.Visible = True Me.Cmdaaa.Visible = flase Me.cmdccc.Visible = flase MsgBox "bbb" Case 2 Me.cmdccc.Visible = True Me.Cmdaaa.Visible = flase Me.cmdbbb.Visible = flase MsgBox "ccc" End Select تفضل المرفق بعد التعديل بالتوفيق Tapages.rar

كيف نختار اعداداً عشوائية بين عددين (كل الارقام او بعضها حسب المطلوب) دون ماكرو و دون تكرار (فقط معادلات) مع التنبيه في حال اخترت عدد الارقام المطلوبة اكثر من الفرق بين الحد الاقصى والحد الادنى من هذين العددين كل هذا في الملف المرفق Randbetween_without repetition with Formula.rar

:: نعم بالضبط ..انا ممتن لك كثيرا ... وهذا بس من ذوقك وكرم إخلاقك اخي العزيز يوسف .

:: اشكرك من فلبي اخي العزبز يوسف ... فكرة جميلة .... ولكن ماذا لو كان لكل صفحة زر ينبغي ضهورة عندما تكون نشطة .... مع اعتذاري في تأخر الرد . :: شكرا لك اخي الكريم شيفان ... نعم نفس اجابة الاستاذ يوسف..... ولكن ماذا لو كان لكل صفحة زر ينبغي ضهورة عندما تكون نشطة .... مع اعتذاري في تأخر الرد .

مرفق الحل 1----تم معالجة الامر في الصفحة (يومية تسجيل) 2----اكتب فقط التاريخ المطلوب في الخلية D4 (الخلية الصفراء) في الصفحة /تقرير وفاتورة/ (و اكسل يقوم بجميع العمليات الحسابية ) (حتى و لو كان الشهر 30 يوماً او 28) اذ كتبت اي تاريخ فإن اكسل يضيف اليه اوتوماتيكياً 15 يوم يشرط الا يتجاوز ذلك اخر الشهر في الجدول في حال عدم وجود التاريخ المطلوب في صفحة (يومية تسجيل) لا تحصل على نتائج الخلايا التي تحتوي على معادلات محمية / ضد التغيير و ليس ضد المسح/ (لعدم العبث يها عن طريق الخطأ) المصنف1 SALIM.rar

اتفضل الي هذا الكود Private Sub TabCtl0_Change() If Me.TabCtl0 = 1 Then Me.Cmd4.Visible = True MsgBox "bbbbbbbbbbbbbbbb" Else Me.Cmd4.Visible = False End If End Sub Tapages.rar

عدة طرق: 1. ضبط الكود في Notepad حسب المسارات الصحيحة ، ثم احفظ الملف بصيغة vbs او bat اينما شئت ، وانقر عليه مرتين ، وسترى الاختار موجود على سطح المكتب ، او 2. ضع الكود على حدث التحميل للنموذج الرئيسي للبرنامج ، او 3. اعمل وحدة نمطية ، مثلا function make_shortcut() الكود يأتي هنا end function ثم اعمل ماكرو ، واطلب من الماكرو ان: شغل الكود make_shortcut شغل النموذج الفلاني واهم شئ هو ان تحفظ الماكرو باسم autoexec ، والذي سوف يشغله البرنامج تلقائيا كلما تفتح البرنامج. جعفر