(تمت الاجابة) إختيار CheckBox بإجابة نعم أولا

[أنس دروبي]

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

أخواني الكرام وأساتذتي المبدعين دائماً في هذا الموقع المتميز

لدي طلب بسيط في الملف المرفق أرجو حله

الشرح بالمطلوب موجود داخل الملف

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

أخوكم

أنس دروبي

Check Box.rar

تم تعديل أبريل 2, 2012 بواسطه Creation World

[علي سالم 75]

السلام عليكم

استخدم OptionButton

OptionButton1

OptionButton2

وعين لاحدهم لاحدهم القيمة

true

عند فتح الفورم

مثلا

Private Sub UserForm_Initialize()

Me.OptionButton1.Value = True

End Sub

وحيعمل معاك حسب طلبك

هذا ما تعلمناه من منتدانا الحبيب

[الـعيدروس]

السلام عليكم

جرب هكذا

Private Sub CheckBox1_Change()

Me.CheckBox2 = Not Me.CheckBox1

End Sub

Private Sub CheckBox2_Click()

Me.CheckBox1 = Not Me.CheckBox2

End Sub

Private Sub UserForm_Activate()

Me.CheckBox1 = False: Me.CheckBox2 = False

End Sub

[احمد فضيله]

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

[أنس دروبي]

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

الله يجزيك الخير أخي وأستاذي أبو نصار انت دائماً مفضل علي في كل شيء

هذا هو الكود الذي كنت انتظره بالحرف

وبالنسبة لكود الأخ بليش روغ

لا أستطيع استخدام OptionButton لإنه يوجد أسئلة كثيرة

وع كل هذا الله يجزيكم الخير على كل شيء

وأنتظر حلول أخرى إذا وجدت

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

أخوكم

أنس دروبي

[علي سالم 75]

وبالنسبة لكود الأخ بليش روغ

لا أستطيع استخدام OptionButton لإنه يوجد أسئلة كثيرة

أخوكم

أنس دروبي

اخي سمي كل مجموعة باسم

وحتعمل كل مجموعة على حدة

مثلا:

Private Sub UserForm_Initialize()

Me.OptionButton1.GroupName = "s1"

Me.OptionButton2.GroupName = "s1"


Me.OptionButton3.GroupName = "s2"

Me.OptionButton4.GroupName = "s2"


End Sub

جرب بنفسك وقلي النتيجة

[أنس دروبي]

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

الله يجزيك الخير أخي بليش روغ

تم تجربة فكرتك ونجحت

وعذرا للتأخير على الرد

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

أخوكم

أنس دروبي