كيفية التنقل في مجموعة في vba؟

في VBA، للتكرار عبر مصفوفة، يمكنك استخدام حلقة For (For Next) . ولكتابة رمز الحلقة هذا، عليك معرفة حجم المصفوفة (الحد العلوي والسفلي) بحيث يمكنك استخدام كليهما كعداد للحلقة. في الأساس، ستبدأ حلقة for من العنصر الأول في المصفوفة وتستمر حتى العنصر الأخير.

لديك الجدول التالي الذي يحتوي على خمسة عناصر من 1 إلى 5 وفي هذه العناصر لديك أرقام. لذا فإن الفكرة هي كتابة تعليمات برمجية يمكنها التكرار من خلال هذه العناصر الخمسة ثم ضربها في 2.

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

1. أولاً، تحتاج إلى معرفة الحدود العلوية والسفلية للمصفوفة ولهذا تحتاج إلى استخدام الدالتين UBOUND وLBOUND.
   
2. بعد ذلك تحتاج إلى استخدام هذه الحدود لإنشاء عداد للحلقة.
   
3. بعد ذلك، تحتاج إلى كتابة رمز سطر لضرب قيمة العنصر في 2. سيأخذ سطر التعليمات البرمجية هذا قيمة العنصر نفسه ثم يقوم بضربه.
   
4. في النهاية، استخدم الكلمة الأساسية “التالي” لإغلاق رمز الحلقة.
   

هنا هو الرمز الكامل.

 Option Base 1 Sub vba_array_loop() Dim myArray(5) As Integer myArray(1) = 10 myArray(2) = 20 myArray(3) = 30 myArray(4) = 40 myArray(5) = 50 Dim uB As Integer, lB As Integer uB = UBound(myArray) lB = LBound(myArray) For i = lB To uB myArray(i) = myArray(i) * 2 Next i End Sub