عمل حلقة تكرارية للأكواد

[أبو حنف]

السلام عليكم اخواني 

المطلوب

1- عمل حلقة تكرارية للأكواد في الفورم

2- كود تسمية تشيك بوكس تلقائيا باسم رأس كل عامود مع ترتيهم رأسيا بشكل منتظم أو كود يقوم بالانشاء والتسمية والترتيب تلقائيا في حدث الفورم

Private Sub CheckBox1_Click()
' أهنا الكود الأول خاص بوضع صح كل التشيك بوكس الموجود في الفورم أو ازالة الصح وأريد الحلقة حتي تشيك بوكس 15 مثلا 
If CheckBox1 = False Then
CheckBox2.Value = False
CheckBox3.Value = False
CheckBox4.Value = False
CheckBox5.Value = False
CheckBox6.Value = False

ElseIf CheckBox1 = True Then
CheckBox2.Value = True
CheckBox3.Value = True
CheckBox4.Value = True
CheckBox5.Value = True
CheckBox6.Value = True
End If
End Sub

Private Sub CheckBox2_Click()
'هنا الكود الثاني خاص بكل تشيك بوكس على حدة وأريد الحلقة حتي تشيك بوكس 15مثلا
If CheckBox2 = False Then
Columns(2).Hidden = True
ElseIf CheckBox2 = True Then
Columns(2).Hidden = False
End If
End Sub

Private Sub CheckBox3_Click()
If CheckBox3 = False Then
Columns(3).Hidden = True
ElseIf CheckBox3 = True Then
Columns(3).Hidden = False
End If
End Sub

Private Sub CheckBox4_Click()
If CheckBox4 = False Then
Columns(4).Hidden = True
ElseIf CheckBox4 = True Then
Columns(4).Hidden = False
End If
End Sub

Private Sub CheckBox5_Click()
If CheckBox5 = False Then
Columns(5).Hidden = True
ElseIf CheckBox5 = True Then
Columns(5).Hidden = False
End If
End Sub

Private Sub CheckBox6_Click()
If CheckBox6 = False Then
Columns(6).Hidden = True
ElseIf CheckBox6 = True Then
Columns(6).Hidden = False
End If
End Sub

 

CheckBox.rar

تم تعديل أكتوبر 8, 2016 بواسطه أبو حنف

[أبو حنف]

هل من مساعدة ؟