طلب مساعدة كود للتشيك بوكس

[الشريف محمد عبدالهادى]

اريد المساعدة فى حالة الضغط على  تشيك بوكس ملىء خانة بعلامة   *

تشيك بوكس.rar

[ابو تراب]

تفضل

 

جميع التحديثات عبر دالة واحدة فقط UpdateBoxes

 

 

تشيك بوكس.zip

[عبدالله باقشير]

السلام عليكم

 

الشكر واصل للاخ ابو تراب............ حفظه الله

 

وائراءا للموضوع

 

ممكن استخدام هذا الكود التالي  بدون تحديد اسماء للبوكس شيك ولا للخلايا

تستدل بالخلايا بموضع الشيك بوكس

Sub kh_UpdateBoxes()
Dim tx As String
On Error Resume Next
With Sheet1.Shapes(Application.Caller)
    If .ControlFormat.Value = 1 Then tx = "*" Else tx = ""
    .TopLeftCell.Offset(1, 0).Value = tx
End With
On Error GoTo 0

End Sub

المرفق 2010

تشيك بوكس.rar

[ابو تراب]

السلام عليكم

 

الشكر واصل للاخ ابو تراب............ حفظه الله

 

وائراءا للموضوع

 

ممكن استخدام هذا الكود التالي  بدون تحديد اسماء للبوكس شيك ولا للخلايا

تستدل بالخلايا بموضع الشيك بوكس

 

 

جزاك الله خيرا استاذنا عبدالله باقشير و شكرا لمرورك العطر.....ما اروع ان يتم اختصار الكود .. سهل الفهم و سريع التنفيذ  

[الشريف محمد عبدالهادى]

السلام عليكم ورحمة الله وبركاته

وافر وجزيل الشكر للاخ ابو تراب والعبقرى الاستاذ عبدالله باقشير جزاكم الله خيراء جدتم واجدتم 

[الشريف محمد عبدالهادى]

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