Excel VBA: شرح إجراء الحلقات.

اكسل VBA الحلقات

الحلقات هي واحدة من أدوات البرمجة الأساسية والقوية في VBA ، وتستخدم عبر معظم لغات البرمجة. تُستخدم الحلقات لتكرار مجموعة من التعليمات البرمجية عدة مرات حسب الحاجة ، إلى أن يظل شرط معين صحيحًا أو يتم الوصول إلى نقطة (أو قيمة) محددة ، وبعدها يتم تنفيذ القسم التالي من التعليمات البرمجية. تتيح لك الحلقة كتابة بضعة سطور بسيطة من التعليمات البرمجية وتحقيق ناتج أكثر أهمية بكثير ، فقط عن طريق التكرار.

• لحلقة
  • ل ... البيانات التالية
  • لكل ... البيانات التالية
• هل بينما حلقة
  • هل بينما ... حلقة البيانات
  • لا ... حلقة بينما البيانات
• هل حتى حلقة
  • هل حتى ... حلقة البيانات
  • لا ... حلقة حتى البيانات

هناك ثلاثة أنواع أساسية من حلقات VBA (مقسمة إلى 6 حلقات على النحو التالي):

لحلقة

ل ... البيانات التالية

يكرر كتلة من التعليمات البرمجية لعدد معين من المرات.

يعرض المثال التالي MsgBox لمدة 5 مرات ، ويعرض الرقم.

 Sub F_Next_loop () Dim i As Integer For i = 1 to 5 MsgBox i Next i End Sub 

لكل ... البيانات التالية

تكرار For For ... Next Loop كتلة من التعليمات البرمجية لكل كائن في مجموعة. يكرر تنفيذ كتلة من التعليمات البرمجية ، لكل عنصر من عناصر المجموعة. تتوقف الحلقة عندما يتم تغطية جميع العناصر في المجموعة ، وينتقل التنفيذ إلى قسم الكود الذي يلي العبارة التالية مباشرة.

 Sub F_each_loop () خلية خافتة كنطاق لكل خلية في ActiveSheet.Range ("A1: A10") Cell.Interior.Color = RGB (160، 251، 142) Next Cell End Sub 

 ستتوقف العبارة Exit For فوراً عن تنفيذ الحلقة الحالية وتنفيذ قسم الكود التالي للبيان التالي مباشرة ، 

هل بينما حلقة

يكرر كتلة من التعليمات البرمجية إلى أجل غير مسمى بينما يستمر الوفاء بالشرط المحدد وتقييمه إلى True ، ويتوقف عندما تتحول الحالة إلى False. يمكن اختبار الحالة إما في بداية الحلقة أو في نهايتها.

هل بينما ... حلقة البيانات

اختبار الشرط في البداية ،

 Sub do_While () Dim i As Integer i = 1 Do While Cells (i، 1) .Value "" MsgBox ii = i + 1 Loop MsgBox i End Sub 

لا ... حلقة بينما البيانات

اختبار الشرط في نهاية الحلقة

 Sub do_While () Dim i As Integer i = 1 Do MsgBox ii = i + 1 Loop While Cells (i، 1) .Value "" MsgBox i End Sub 

 سوف تتوقف عبارة Exit Do فورًا عن تنفيذ الحلقة الحالية وتنفيذ قسم الكود مباشرةً بعد البيان التالي ، 

هل حتى حلقة

يكرر كتلة من التعليمات البرمجية إلى أجل غير مسمى حتى يتم استيفاء الشرط وتقييمه إلى True. يمكن اختبار الحالة إما في بداية الحلقة أو في نهايتها

هل حتى ... حلقة البيانات

اختبار الشرط في البداية ،

 Sub do_Until () Dim i As Integer i = 1 Do حتى Not IsEmpty (Cell (i، 1)) Cells (i، 1) .Interior.Color = RGB (255، 0، 0) i = i + 1 Loop End Sub 

لا ... حلقة حتى البيانات

اختبار الشرط في نهاية الحلقة.

 Sub do_Until () Dim i As Integer i = 1 Do Cells (i، 1) .Intern.Color = RGB (255، 0، 0) i = i + 1 Loop حتى Not IsEmpty (Cell (i، 1)) End Sub