Excel VBA Spin Button

يمكن استخدام زر تدور لزيادة رقم في خلية. لخلق زر الدوران في Excel VBAقم بتنفيذ الخطوات التالية.

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

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

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

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

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

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

6. لربط زر الدوران هذا بالخلية ، أضف سطر الرمز التالي.

7. يمكنك تعيين الحد الأقصى والحد الأدنى عن طريق إضافة أسطر التعليمات البرمجية التالية.

8. لتغيير القيمة التزايدية ، استخدم خاصية SmallChange.

9. انقر فوق أسهم زر الدوران (تأكد من إلغاء تحديد وضع التصميم).

نتيجة:

ملحوظة: بدلاً من تغيير خصائص زر الدوران في وقت التشغيل ، يمكنك أيضًا تغيير الخصائص في وقت التصميم. لتحقيق ذلك ، انقر بزر الماوس الأيمن على زر الدوران (تأكد من تحديد وضع التصميم) وانقر على الخصائص.