300 أمثلة

حلقة من خلال الضوابط

Loop Through Controls

من خلال بضعة أسطر من التعليمات البرمجية ، يمكننا ذلك بسهولة حلقة من خلال الضوابط على برنامج Excel VBA Userform . Userform الذي سننشئه على النحو التالي:





حلقة من خلال عناصر التحكم في Excel VBA

كيفية الحصول على الفرق في Excel

لإنشاء Userform هذا ، قم بتنفيذ الخطوات التالية.





1. افتح ملف محرر Visual Basic . إذا لم يكن Project Explorer مرئيًا ، فانقر فوق عرض ، مستكشف المشاريع.

2. انقر فوق إدراج ، Userform. إذا لم يظهر Toolbox تلقائيًا ، فانقر فوق عرض ، مربع الأدوات. يجب إعداد شاشتك على النحو التالي.



إعداد شاشة Userform في Excel VBA

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 بإلغاء تحديد خانة الاختيار. يتم اختيار المقاولة بشكل عشوائي هنا ، يمكنك استخدام أي اسم. تذكر الإشارة إلى هذا الاسم في بقية التعليمات البرمجية الخاصة بك.

النتيجة عند النقر فوق الزر مسح:

حلقة من خلال نتيجة عناصر التحكم

اكتمل 8/11! تعرف على المزيد حول نماذج المستخدم>
انتقل إلى الفصل التالي: نطاق



^