بسم الله الرحمن الرحيم
Do While Loop Excel VBAشرح الحلقات التكرارية
اهلا بكم متابعى موقع عالم الاوفيس
مازلنا نتواصل معكم فى شرح الحلقات التكرارية فى الاكسل Loop in Excel VBA
كنا شرحنا فى الدرس الاول بالتفصيل الحلقة
التكرارية For Next Loop
الدرس الثانى
الحلقة التكرارية Do
While Loop
للحصول
على أقصى استفادة من Excel و VBA ، تحتاج إلى معرفة كيفية استخدام الحلقات بكفاءة.
في VBA ، تسمح لك الحلقات بتصفح
مجموعة من الكائنات / القيم وتحليلها واحدة تلو الأخرى. يمكنك أيضًا تنفيذ مهام
محددة لكل حلقة.
فيما
يلي مثال بسيط لاستخدام حلقات VBA في Excel.
وفى هذا
الدرس يتبين لنا ان الحلقة التكرارية "Do While" تتيح لك التحقق من وجود حالة وتشغيل الحلقة أثناء
استيفاء هذا الشرط (أو هو TRUE).
يوجد نوعان من
بناء الجملة في Do While
Loop.
Do [While condition]
[Code block to Execute]
Loop
والنوع الثانى
Do
[Code block to Execute]
Loop [While condition]
الفرق بين هذين
النوعين هو أنه في الأول ، يتم التحقق من شرط الشرط أولاً قبل تنفيذ أي كتلة تعليمات
برمجية ،
وفي الحالة الثانية ، يتم تنفيذ كتلة التعليمات البرمجية
أولاً ثم يتم التحقق من شرط الشرط.
هذا يعني أنه
إذا كانت الحالة هي False في كلتا الحالتين ، فسوف يستمر
تشغيل الرمز مرة واحدة على الأقل في الحالة الثانية (حيث يتم التحقق من شرط "While" بعد تنفيذ الرمز مرة واحدة).
الآن ، دعونا
نرى بعض الأمثلة على استخدام Do While loops في VBA.
المثال
على ذلك
-
إضافة أول 10 أعداد صحيحة موجبة باستخدام VBA
افترض أنك تريد
إضافة أول عشرة أعداد صحيحة موجبة باستخدام Do Do loop في VBA.
للقيام بذلك
، يمكنك استخدام حلقة Do While حتى الرقم التالي أقل من أو
يساوي 10. بمجرد أن يزيد الرقم عن 10 ، ستتوقف الحلقة.
والان اتفضل كود VBA الذي سيقوم بتشغيل
الحلقة التكرارية "Do While" وإظهار النتيجة في شكل رسالة.
Sub
AddFirst10PositiveIntegers()
Dim i As Integer
i = 1
Do While i <= 10
Result = Result + i
i = i + 1
Loop
MsgBox Result
End Sub
وكما لاحظنا
فى هذا الكود تستمر الحلقة أعلاه في العمل إلى أن تصبح قيمة المتغير "i" هي 11. بمجرد أن تصبح
القيمة = 11 ، عندها تنتهي الحلقة
التكاراية (اى عندما تصبح الحالة "خطأ").
ضمن هذة الحلقة
التكارية ، استخدمنا متغير النتيجة" Result "الذي يحتفظ بالقيمة النهائية بمجرد اكتمال
الحلقة التكرارية، يعرض صندوق رسالة قيمة المتغير
" Result ".
نلتقى ان شاء الله فى الدرس القادم واستكمال شرح الحلقات
التكرارية
اذا اعجبك الدرس لاتنسى مشاركتة على وسائل التواصل الاجتماعى