الخميس، 12 سبتمبر 2019

Do While Loop Excel VBA شرح الحلقات التكرارية


بسم الله الرحمن الرحيم

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 ".

                                                      لتحميل ملف العمل من هنا
نلتقى ان شاء الله فى الدرس القادم واستكمال شرح الحلقات التكرارية 
اذا اعجبك الدرس لاتنسى مشاركتة على وسائل التواصل الاجتماعى

ليست هناك تعليقات:

إرسال تعليق

من نحن

authorمرحبا، أسمي عماد غازى وهذه مدونتي أسعى دائما لأقدم لكم أفضل المواضيع الخاصة بالاوفيس
المزيد عني →

التصنيفات

نموذج الاتصال

الاسم

بريد إلكتروني *

رسالة *

إجمالي مرات مشاهدة الصفحة