الأربعاء، 11 سبتمبر 2019

For Next Loop (with Examples) Excel VBA شرح الحلقات التكرارية

For Next Loop Excel VBAشرح الحلقات التكرارية


اهلا بكم متابعى موقع عالم الاوفيس


نقدم لكم اليوم اول حلقة من دروس الحلقات التكرارية فى Excel VBA  وسنقوم بعمل ملف كامل عن الحلقات التكراية مع الامثلة المختلفة .للحصول على أقصى استفادة من Excel و VBA ، تحتاج إلى معرفة كيفية استخدام الحلقات التكرارية  بكفاءة.

في VBA ، تسمح لك الحلقات بتصفح مجموعة من الكائنات / القيم وتحليلها واحدة تلو الأخرى. يمكنك أيضًا تنفيذ مهام محددة لكل حلقة.

فيما يلي مثال بسيط لاستخدام حلقات VBA في Excel.

افترض أن لديك مجموعة بيانات وتريد تمييز كل الخلايا في صفوف متساوية. يمكنك استخدام حلقة VBA لتصفح النطاق وتحليل رقم كل خلية. إذا اتضح أنه متساوٍ ، فأنت تعطيه لونًا ، وإلا ستتركه كما هو.

الآن ، هذا بالطبع بسيط جدًا في حلقات Excel VBA (ويمكنك أيضًا القيام بذلك باستخدام التنسيق الشرطي).

في الحياة الواقعية ، يمكنك القيام بالكثير مع حلقات VBA في Excel والتي يمكن أن تساعدك في أتمتة المهام.

فيما يلي بعض الأمثلة العملية حيث يمكن أن تكون حلقات VBA مفيدة:

  • تنفيذ حلقات عبر نطاق من الخلايا وتحليل كل خلية (قم بتمييز الخلايا التي تحتوي على نص محدد فيه).
  • تكرار جميع أوراق العمل والقيام بشيء مع كل منها (مثل حمايتها / عدم حمايتها).
  • مرر جميع المصنفات المفتوحة (واحفظ كل مصنف أو أغلق كل المصنف باستثناء المصنف النشط).
  • تنفيذ حلقة من خلال جميع الأحرف في خلية (واستخراج الجزء الرقمي من سلسلة).
  • حلقة من خلال جميع القيم مجموعة.
  • مرر جميع المخططات / الكائنات (واعطي حدودًا أو غير لون الخلفية).

الآن لاستخدام الحلقات التكارية  في Excel VBA بشكل أفضل ، تحتاج إلى معرفة الأنواع المختلفة الموجودة وبناء الجملة الصحيح لكل منها.
تتيح لك حلقة "FOR/ NEXT" الانتقال إلى مجموعة من التعليمات البرمجية لعدد مرات محددة.

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


أليس كذلك؟

يتم استخدام نفس المنطق في الحلقة التكرارية  (For – Next) في VBA.

يمكنك تحديد عدد المرات التي تريد تشغيل الحلقة فيها وكذلك تحديد ما تريد أن يفعله الكود في كل مرة يتم فيها تشغيل الحلقة.

فيما يلي بناء جملة الحلقة التالية:
For Counter = Start To End [Step Value]
[Code Block to Execute]
Next [counter]

في حلقة For Next ، يمكنك استخدام عداد (أو أي متغير) سيتم استخدامه لتشغيل الحلقة. يتيح لك هذا العداد تشغيل هذه الحلقة لعدد مرات مطلوبة.

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

دعنا نلقي نظرة على بعض الأمثلة لنفهم بشكل أفضل كيف تعمل الحلقة التالية.

مثال 1 - إضافة أول 10 أعداد صحيحة موجبة

يوجد أدناه الكود الذي سيضيف أول 10 أعداد صحيحة موجبة باستخدام حلقة For Next.

سيعرض بعد ذلك مربع رسالة يوضح مجموع هذه الأرقام.
Sub AddNumbers()
Dim Total As Integer
Dim Count As Integer
Total = 0
For Count = 1 To 10
Total = Total + Count
Next Count
MsgBox Total
End Sub
في هذا الرمز ، يتم تعيين قيمة Total على 0 قبل الدخول في حلقة For Next.

بمجرد دخوله إلى الحلقة ، فإنه يحتفظ بالقيمة الإجمالية بعد كل حلقة. لذلك بعد الحلقة الأولى ، عندما يكون العداد 1 ، تصبح قيمة "الإجمالي" 1 ، وبعد الحلقة الثانية تصبح 3 (1 + 2) ، وهكذا.

وأخيرًا ، عندما تنتهي الحلقة ، يحتوي متغير "Total" على مجموع الأعداد الصحيحة العشرة الأولى.


ثم يعرض MsgBox النتيجة ببساطة في مربع رسالة.

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

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

إرسال تعليق

من نحن

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

التصنيفات

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

الاسم

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

رسالة *

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