أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
محمدعبدالسلام لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة طلب مساعدة اريد في كل 4 من شهر يتم نسح الاسم من عمود الى عمود اكسيل اسئله واجابات


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





اختصار مجموعة اكواد CheckBox1_Click ... في كود واحد

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



16-01-2021 05:20 مساء
أباالحسن
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 349
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
الدعوات : 1
يتابعهم : 4
يتابعونه : 17
قوة السمعة : 832
 offline 

السلام عليكم
لدى مجموعة كبيرة من Checkbox عند الضغط على كل واحد منهم ينفذ امر معين
فعملت كود خاص بكل واحد

فهل يمكن اختصار هذا الكود الى كود واحد ؟



Private Sub CheckBox3_Click()
If Control_Main_Payroll.CheckBox3 = False Then ThisWorkbook.Sheets("Payroll").[Q1].Value = "" Else ThisWorkbook.Sheets("Payroll").[Q1].Value = "يستبعـد"
End Sub

Private Sub CheckBox4_Click()
If Control_Main_Payroll.CheckBox4 = False Then ThisWorkbook.Sheets("Payroll").[R1].Value = "" Else ThisWorkbook.Sheets("Payroll").[R1].Value = "يستبعـد"
End Sub

Private Sub CheckBox5_Click()
If Control_Main_Payroll.CheckBox5 = False Then ThisWorkbook.Sheets("Payroll").[S1].Value = "" Else ThisWorkbook.Sheets("Payroll").[S1].Value = "يستبعـد"
End Sub

Private Sub CheckBox6_Click()
If Control_Main_Payroll.CheckBox6 = False Then ThisWorkbook.Sheets("Payroll").[T1].Value = "" Else ThisWorkbook.Sheets("Payroll").[T1].Value = "يستبعـد"
End Sub

Private Sub CheckBox7_Click()
If Control_Main_Payroll.CheckBox7 = False Then ThisWorkbook.Sheets("Payroll").[U1].Value = "" Else ThisWorkbook.Sheets("Payroll").[U1].Value = "يستبعـد"
End Sub

Private Sub CheckBox8_Click()
If Control_Main_Payroll.CheckBox8 = False Then ThisWorkbook.Sheets("Payroll").[v1].Value = "" Else ThisWorkbook.Sheets("Payroll").[v1].Value = "يستبعـد"
End Sub

Private Sub CheckBox9_Click()
If Control_Main_Payroll.CheckBox9 = False Then ThisWorkbook.Sheets("Payroll").[W1].Value = "" Else ThisWorkbook.Sheets("Payroll").[W1].Value = "يستبعـد"
End Sub

Private Sub CheckBox10_Click()
If Control_Main_Payroll.CheckBox10 = False Then ThisWorkbook.Sheets("Payroll").[x1].Value = "" Else ThisWorkbook.Sheets("Payroll").[x1].Value = "يستبعـد"
End Sub

Private Sub CheckBox11_Click()
If Control_Main_Payroll.CheckBox11 = False Then ThisWorkbook.Sheets("Payroll").[y1].Value = "" Else ThisWorkbook.Sheets("Payroll").[y1].Value = "يستبعـد"
End Sub

Private Sub CheckBox12_Click()
If Control_Main_Payroll.CheckBox12 = False Then ThisWorkbook.Sheets("Payroll").[Z1].Value = "" Else ThisWorkbook.Sheets("Payroll").[Z1].Value = "يستبعـد"
End Sub

Private Sub CheckBox13_Click()
If Control_Main_Payroll.CheckBox13 = False Then ThisWorkbook.Sheets("Payroll").[AA1].Value = "" Else ThisWorkbook.Sheets("Payroll").[AA1].Value = "يستبعـد"
End Sub

Private Sub CheckBox14_Click()
If Control_Main_Payroll.CheckBox14 = False Then ThisWorkbook.Sheets("Payroll").[AB1].Value = "" Else ThisWorkbook.Sheets("Payroll").[AB1].Value = "يستبعـد"
End Sub

Private Sub CheckBox15_Click()
If Control_Main_Payroll.CheckBox15 = False Then ThisWorkbook.Sheets("Payroll").[AC1].Value = "" Else ThisWorkbook.Sheets("Payroll").[AC1].Value = "يستبعـد"
End Sub

Private Sub CheckBox16_Click()
If Control_Main_Payroll.CheckBox16 = False Then ThisWorkbook.Sheets("Payroll").[AD1].Value = "" Else ThisWorkbook.Sheets("Payroll").[AD1].Value = "يستبعـد"
End Sub

Private Sub CheckBox17_Click()
If Control_Main_Payroll.CheckBox17 = False Then ThisWorkbook.Sheets("Payroll").[AE1].Value = "" Else ThisWorkbook.Sheets("Payroll").[AE1].Value = "يستبعـد"
End Sub

Private Sub CheckBox18_Click()
If Control_Main_Payroll.CheckBox18 = False Then ThisWorkbook.Sheets("Payroll").[AF1].Value = "" Else ThisWorkbook.Sheets("Payroll").[AF1].Value = "يستبعـد"
End Sub

Private Sub CheckBox19_Click()
If Control_Main_Payroll.CheckBox19 = False Then ThisWorkbook.Sheets("Payroll").[AG1].Value = "" Else ThisWorkbook.Sheets("Payroll").[AG1].Value = "يستبعـد"
End Sub

Private Sub CheckBox20_Click()
If Control_Main_Payroll.CheckBox20 = False Then ThisWorkbook.Sheets("Payroll").[AH1].Value = "" Else ThisWorkbook.Sheets("Payroll").[AH1].Value = "يستبعـد"
End Sub

16-01-2021 05:40 مساء
مشاهدة مشاركة منفردة [1]
حسين مامون
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 172
الجنس : ذكر
الدعوات : 1
يتابعهم : 5
يتابعونه : 11
قوة السمعة : 957
عدد الإجابات: 22
 offline 
look/images/icons/i1.gif اختصار مجموعة اكواد CheckBox1_Click ... في كود واحد
ارفع نمودج عن الملف احسن من هكذا 

16-01-2021 07:33 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif اختصار مجموعة اكواد CheckBox1_Click ... في كود واحد
وعليكم السلام
نفس الفكرة في الموضوع التالي .. ادرس الموضوع التالي جيداً وستفهم كيف يمكنك التعديل
فكرة الموضوع هو عمل كلاس موديول ينفذ الكود على أي زر أمر ..
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب




الكلمات الدلالية
اختصار ، مجموعة ، اكواد ، CheckBox1_Click ، واحد ،


 










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

الساعة الآن 05:41 مساء