مطلوب شرح بالخطوات كيفيه ادراج شيك بوكس وربطه بكود

[عادل ابوزيد]

الاساتذه الاجلاء

برجاء شرح خطوات تنفيذ الكود ب check box بمعنى سرد الخطوات خطوه خطوه وليس ملف به كود بالcheck box كما هو موضح
بالرابط الآتى الذى يدرج ملف

 

http://www.officena.net/ib/index.php?showtopic=37959&hl=%2Bcheck+%2Bbox

او كما بالمثال المرفق

والمطلوب شرح خطوات الاعداد خطوه خطوه ولكم جزيل الشكر

 

ملف به شيك بوكس.rar

[الـعيدروس]

السلام عليكم

 

إليك الشرح على الكود أرجو ان يفي بالغرض

 

Private Sub CheckBox1_Click()
Application.ScreenUpdating = False
'*********************************
' الشرط التالي يعبر عن إذا الشيك بوكس عليه علامة صح إخي الصفوف 9 و 10
If CheckBox1.Value = True Then
' إخفاء الصفوف 9 و 10
Rows("9:10").EntireRow.Hidden = True
'*********************************
' الشرط التالي يعبر عن إذا الشيك بوكس غير مفعل بعلامة صح إظهر الصفوف 9 و 10
ElseIf CheckBox1.Value = False Then
' إظهار الصفوف 9 و 10
Rows("9:10").EntireRow.Hidden = False
' نهاية الشرط
End If
Application.ScreenUpdating = True
End Sub

[أحمد السيد]

والله مبدع يا اخى عباد

وفيت فى شرح الكود

[حمادة عمر]

السلام عليكم

الاستاذ القدير المبدع / عباد

 

لا استطيع الان اقول لك

اجبت فأوجزت

وزادك الله من علمه دائما .... لنتعلم ونستزيد منه نحن تلاميذك

وفقك الله لما تحبه وترضاه

جزاك الله خيرا

[عادل ابوزيد]

استاذى الفاضل عباد

زادكم الله من علمه وجعله في ميزان حسناتك