كيفية استخدام حلقة do-while في Excel VBA

هل تريد أتمتة المهام المتكررة في Excel VBA؟ لذلك دعونا نتعلم كيفية استخدام حلقة Do-While لتنفيذ سلسلة من الإجراءات التي تتكرر حتى يتم استيفاء الشرط.

تعد الحلقات جزءًا لا يتجزأ من أي لغة برمجة، ويمكنك أتمتة العديد من المهام المتكررة باستخدام مجموعة متنوعة من الحلقات، اعتمادًا على اللغة المستخدمة. لا يختلف Excel VBA عن VBA الأخرى، لأنه يوفر سلسلة من خيارات التكرار، كل منها يخدم غرضًا مختلفًا.

يمكنك استخدام هذه الحلقات عن طريق تحديد نقاط البداية والنهاية والشروط والمعلمات. إحدى الحلقات البارزة في VBA هي تنفيذ المهام. يمكنك استخدامه لأتمتة البيانات. فيما يلي كيفية استخدام حلقة do-while الخاصة بـ VBA في Excel، وهي طريقة تكرار ضرورية للغاية يمكنها تبسيط المهام اليدوية إلى حد كبير.

ما هي حلقة Do-While في Excel VBA؟

تعتبر حلقة do-while في Excel بسيطة للغاية. يمكنك استخدام هذه الحلقة لتعيين عروض الأسعار إذا كنت تريد إنشاء المخرجات المطلوبة بناءً على شرط معين. يتم تنفيذ الحلقة عندما يتم تحديد الشروط على أنها صحيحة. عندما يواجه البرنامج قيمة False، ستنتهي الحلقة وتطبع النتائج في الخلايا المحددة.

يمكنك استخدام حلقات العمل في مراحل مختلفة بمعايير مختلفة. يمكنك أيضًا استخدام حلقات متعددة داخل الحلقة الخارجية الرئيسية لتعزيز سهولة استخدامها.

صيغة حلقة do-while في Excel VBA

تحتوي حلقة do-while على بنية محددة مسبقًا تحتاج إلى اتباعها لضمان تشغيل وظائفها بسلاسة. هنا هي الصيغة المرجعية:

Do while [condition_reference]

[Criteria statements]

Loop

تبدأ الحلقة بالكلمة الأساسية do-while، متبوعة بمراجع البداية والنهاية. يتحكم الجزء الأول من الصيغة في الحلقة بأكملها. بعد ذلك، تحتاج إلى تحديد أمر يتم نشره في كل مرة يتم فيها تشغيل الحلقة.

أخيرًا، بعد إرجاع شرط الحلقة False، يتم تشغيل الكلمة الأساسية للحلقة والخروج منها. هذا هو الهيكل العام. يمكنك تعديله لأداء مهام مختلفة. فيما يلي بعض الأمثلة لتعريفك بكيفية عمل حلقات do-while.

اكتب الكود الخاص بحلقة do-while الأولى

لنفترض أنك تريد عرض مضاعفات العدد اثنين في العمود A. الشرط هو طباعة الأرقام حتى يصل العداد إلى 20.

للقيام بذلك، انتقل إلى علامة التبويب "المطور" في Excel وافتح محرر التعليمات البرمجية، أو اضغط على Alt + F11 لفتحه مباشرة. في نافذة محرر التعليمات البرمجية، انقر فوق علامة التبويب إدراج وأضف وحدة نمطية جديدة.

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

Sub dowhileloop()

Dim a As Integer

a = 1

Do While a <= 10="" cells(a,="" 1)="2" *="" a="" a="a" +="" 1="" loop="" end="">

تحليل الكود

• استخدام الإجراءات الفرعية : لبدء كتابة التعليمات البرمجية في Excel VBA، قم بإنشاء غلاف خارجي باستخدام وظيفة الروتين الفرعي (Sub). أعطه اسمًا ذا معنى، مناسبًا لغرض الكود. في هذا المثال، يمكنك استخدام الاسم dowhileloop، متبوعًا بـ ().
• تحديد أنواع البيانات : يجب استخدام الدالة dim للإعلان عن أنواع البيانات. من خلال الإعلان عن أنواع البيانات، يمكنك كتابة تعليمات برمجية فعالة وتحسين سرعة التنفيذ. في هذه الحالة، يحتوي المتغير a على قيم عددية، لذا استخدم نوع البيانات الصحيح لتعريفه. يمكنك تخزين رقم صف البداية في هذا المتغير، للإعلان عن نقطة البيانات الأولية لحلقة do-while.
• تحديد الشرط : حان الوقت الآن لتمرير الشرط للتحكم في حلقة do-while. يمكنك استخدام الكلمات الرئيسية do while متبوعة بالشرط. على سبيل المثال، إذا كنت تريد تكرار التكرار 10 مرات، فاكتب < = = "">
• تمرير أمر التنفيذ : من المهم بالنسبة لك معرفة الفرق بين وظيفة الخلية ووظيفة النطاق في VBA. تستخدم وظائف الخلية مراجع الصفوف والأعمدة في VBA. على سبيل المثال، في التكرار الأول، عندما تكون قيمة a = 1، تكون صيغة الخلية (1,1). في ذاكرة VBA، يتم ترجمة هذا إلى الخلية A1. في كل مرة يتم تنفيذ الحلقة، تزداد قيمة المتغير المحدد وينتقل المرجع إلى الخلية التالية المتاحة.
• متغير الزيادة : يمكنك تمرير الأمر a = a + 1 لزيادة قيم الخلايا. يؤدي هذا إلى نقل الحلقة إلى الجزء التالي من الشرط. تستمر الحلقة في العمل حتى يتم تقييم الحالة إلى خطأ.
• الخروج من حالة الحلقة : عندما يكون الشرط خطأ، قم بالخروج من الحلقة باستخدام الكلمة الأساسية Loop، وأخيرًا، يتم الخروج من الروتين الفرعي باستخدام End Sub.
• تشغيل الكود : الكود جاهز لذا كل ما عليك فعله هو الضغط على F5 أو زر التشغيل الأخضر في شريط القائمة العلوي لتشغيل هذا الكود.

ستعرض النتيجة النهائية قائمة بالأرقام من 2 إلى 20 في العمود A.

أعلاه هو كيفية استخدام حلقة do-while في Excel VBA. نأمل أن تكون المقالة مفيدة لك.