أدناه سوف ننظر في برنامج حلقات عبر نطاق محدد . على سبيل المثال ، عندما نريد تربيع الأرقام في النطاق ('A1: A3'). هل تعلم أنه يمكنك أيضًا إجراء حلقة مدى ديناميكي ؟
كيفية عمل if وبيان في Excel
قارة:
ضع زر الأوامر في ورقة العمل الخاصة بك وأضف أسطر التعليمات البرمجية التالية:
1. أولاً ، نعلن عن كائنين من كائنات المدى. نسمي كائنات النطاق rng والخلية.
لا أحدrngكماالنطاق ، الخليةكمانطاق
2. نقوم بتهيئة Range object rng باستخدام Range ('A1: A3').
يضعrng = المدى ('A1: A3')3. أضف حلقة For each Next.
ل كلزنزانةفيrngالتاليزنزانة
ملاحظة: يتم اختيار rng والخلية بشكل عشوائي هنا ، يمكنك استخدام أي أسماء. تذكر أن تشير إلى هذه الأسماء في بقية التعليمات البرمجية الخاصة بك.
4. بعد ذلك ، نقوم بتربيع كل خلية في هذا النطاق. لتحقيق ذلك ، أضف سطر الكود التالي إلى الحلقة:
cell.Value = cell.Value * cell.Valueالنتيجة عند النقر فوق زر الأمر في الورقة:
5. إذا كنت تريد التحقق من كل خلية في نطاق محدد عشوائيًا ، فما عليك سوى استبدال:
يضعrng = المدى ('A1: A3')مع:
يضعrng = اختيار6. الآن ، على سبيل المثال حدد النطاق ('A1: A2').
النتيجة عند النقر فوق زر الأمر في الورقة:
انتقل إلى الفصل التالي: أخطاء ماكرو
