/ / إكسل خيارات زر VBA

إكسل خيارات VBA زر

إذا كان لديك أكثر من زر خيار ، فيمكن تحديد زر واحد فقط من أزرار الخيارات. لنصنع او لنبتكر أزرار الخيار في Excel VBAقم بتنفيذ الخطوات التالية.

1. في علامة التبويب Developer ، انقر فوق Insert.

2. في مجموعة عناصر تحكم ActiveX ، انقر فوق "زر خيار".

قم بإنشاء زر خيار في Excel VBA

3. اسحب زري خيارين في ورقة العمل الخاصة بك.

4. انقر بزر الماوس الأيمن على زر الخيار الأول (تأكد من تحديد وضع التصميم).

5. انقر فوق "عرض التعليمات البرمجية".

عرض الكود

ملحوظة: يمكنك تغيير التسمية التوضيحية واسم عنصر التحكم عن طريق النقر بزر الماوس الأيمن على عنصر التحكم (تأكد من تحديد وضع التصميم) ثم النقر فوق خصائص. تغيير التسميات التوضيحية لأزرار الخيارات إلى Female و Male. في الوقت الحالي ، سنترك OptionButton1 و OptionButton2 كأسماء أزرار الخيارات.

6. أضف سطر الرمز التالي:

If OptionButton1.Value = True Then Range("D3").Value = 10

7. انقر بزر الماوس الأيمن على زر الخيار الثاني (تأكد من تحديد وضع التصميم).

8. انقر فوق "عرض التعليمات البرمجية".

9. أضف سطر الرمز التالي:

If OptionButton2.Value = True Then Range("D3").Value = 20

10. انقر فوق أزرار الخيارات الموجودة على الورقة (تأكد من إلغاء تحديد وضع التصميم).

نتيجة:

زر الخيار 1 صحيح

خيار زر 2 صحيح

على الرغم من أنه في بعض المواقف قد يكون من المفيد وضع أزرار الخيارات في ورقة العمل الخاصة بك مباشرةً ، إلا أن أزرار الخيارات مفيدة بشكل خاص عند وضعها على Userform.

اقرأ أيضًا: