/ / حلقة من خلال مجموعة محددة في إكسل VBA

حلقة من خلال مجموعة محددة في Excel VBA

أدناه سننظر في البرنامج الذي حلقات من خلال مجموعة محددة. على سبيل المثال ، عندما نريد أن نربع الأرقام في النطاق ("A1: A3"). هل تعلم أنه يمكنك أيضًا التكرار عبر نطاق ديناميكي؟

موقف:

حلقة من خلال مجموعة محددة في Excel VBA

ضع زر أمر في ورقة العمل الخاصة بك وقم بإضافة الأسطر التعليمات البرمجية التالية:

1. أولا ، نعلن عن اثنين من كائنات المدى. نحن نطلق على نطاق كائنات RNN والخلية.

Dim rng As Range, cell As Range

2. نقوم بتهيئة نطاق الكائن rng مع النطاق ("A1: A3").

Set rng = Range("A1:A3")

3. قم بإضافة حلقة "كل التالي".

For Each cell In rng

Next cell

ملاحظة: يتم اختيار rng والخلية عشوائياً هنا ، يمكنك استخدام أي أسماء. تذكر الإشارة إلى هذه الأسماء في بقية رمزك.

4. بعد ذلك ، نقوم بتكبير كل خلية في هذا النطاق. لتحقيق هذا ، أضف السطر التعليمة البرمجية التالية إلى الحلقة:

cell.Value = cell.Value * cell.Value

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

عرِّف من خلال نتيجة النطاق المحددة

5. إذا كنت تريد التحقق من كل خلية في نطاق تم اختياره عشوائيًا ، فما عليك سوى استبدال:

Set rng = Range("A1:A3")

مع:

Set rng = Selection

6. الآن ، على سبيل المثال حدد المدى ("A1: A2").

حلقة من خلال التحديد في Excel VBA

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

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

اقرأ أيضًا: