من خلال بضعة أسطر من التعليمات البرمجية ، يمكننا ذلك بسهولة حلقة من خلال الضوابط على برنامج Excel VBA Userform . Userform الذي سننشئه على النحو التالي:
كيفية الحصول على الفرق في Excel
لإنشاء Userform هذا ، قم بتنفيذ الخطوات التالية.
1. افتح ملف محرر Visual Basic . إذا لم يكن Project Explorer مرئيًا ، فانقر فوق عرض ، مستكشف المشاريع.
2. انقر فوق إدراج ، Userform. إذا لم يظهر Toolbox تلقائيًا ، فانقر فوق عرض ، مربع الأدوات. يجب إعداد شاشتك على النحو التالي.
3. أضف التسمية وخانات الاختيار (أولاً في الأعلى ، والثاني أسفل الأول ، وهكذا) وزر الأمر. بمجرد اكتمال ذلك ، يجب أن تكون النتيجة متسقة مع صورة Userform الموضحة سابقًا. على سبيل المثال ، قم بإنشاء عنصر تحكم مربع اختيار بالنقر فوق CheckBox من Toolbox. بعد ذلك ، يمكنك سحب مربع اختيار في Userform.
4. يمكنك تغيير الأسماء والتعليقات التوضيحية من عناصر التحكم. يتم استخدام الأسماء في رمز Excel VBA. التسميات التوضيحية هي تلك التي تظهر على شاشتك. يُعد تغيير أسماء عناصر التحكم ممارسة جيدة ، ولكن هذا ليس ضروريًا هنا لأن لدينا عددًا قليلاً من عناصر التحكم في هذا المثال. لتغيير التسمية التوضيحية لـ Userform ، والتسمية ، وخانات الاختيار ، وزر الأمر ، انقر فوق عرض ، ونافذة الخصائص ، وانقر فوق كل عنصر تحكم.
5. لإظهار Userform ، ضع ملف زر الأوامر في ورقة العمل الخاصة بك وأضف سطر الرمز التالي:
نشر الفرعيةCommandButton1_Click ()UserForm1.Show
نهاية الفرعية
لقد أنشأنا الآن الجزء الأول من Userform. على الرغم من أنه يبدو أنيقًا بالفعل ، فلن يحدث شيء حتى الآن عندما نضغط على الزر مسح.
6. افتح ملف محرر Visual Basic .
كيفية منع الخلايا من التحرك في برنامج Excel
7. في Project Explorer ، انقر نقرًا مزدوجًا فوق UserForm1.
8. انقر نقرًا مزدوجًا فوق الزر Clear.
9. أضف أسطر التعليمات البرمجية التالية:
نشر الفرعيةCommandButton1_Click ()لا أحدمقاولاتكمامراقبة
ل كلمقاولاتفيUserForm1.Controls
لوTypeName (عقد) = 'CheckBox'ثم
العقد = خطأ
نهاية لو
التالي
نهاية الفرعية
Explanation: Excel VBA حلقات من خلال كل عناصر التحكم في Userform. يتم استخدام وظيفة TypeName لتصفية عناصر التحكم في خانة الاختيار. إذا كان عنصر تحكم خانة اختيار ، يقوم Excel VBA بإلغاء تحديد خانة الاختيار. يتم اختيار المقاولة بشكل عشوائي هنا ، يمكنك استخدام أي اسم. تذكر الإشارة إلى هذا الاسم في بقية التعليمات البرمجية الخاصة بك.
النتيجة عند النقر فوق الزر مسح:
انتقل إلى الفصل التالي: نطاق