الجملة FOR...EACH : من الجمل التكرارية فى الفجوال بيسك تستخدم عادةً عندما تكون في موقف لتنفيذ كل عنصر أو عنصر في مجموعة او بمعني للدوران على (كل) شيء معين (مثل مثلاً للدوران على كل عناصر مصفوفة معينة، أو كل ملف في مجلد أو ، كل حرف في سلسلة) ، في هذه الحالة يمكنك استخدام لكل حلقة....و الصيغة العامة على النحو التالى :

الكود:


For Each [Item] In [Group]
   [loopBody]
Next [Item]


حيث أن :

Item: العنصر في المجموعة

Group: المجموعة التي تحتوي على عناصر

LoopBody: الرمز الذي تريد تنفيذه داخل For Each Loop

لنأخذ مثالاً في الوقت الفعلي ، إذا كنت ترغب في عرض كل حرف في اسم موقع الويب "https://egy-tech.forumegypt.net" ، فمن الملائم استخدام For Each Loop.

الكود:

siteName = "http://egy-tech.forumegypt.net"
 For Each singleChar In siteName
   MsgBox(singleChar)
 Next

السطر 1: تعيين اسم الموقع في متغير

السطر 2: يقوم هذا السطر باستخراج العنصر الواحد من المجموعة

السطر 3: هيكل الحلقة

السطر الرابع: اتخاذ الخطوة التالية

مثال اخر يمكنك الاطلاع علية فى المشاركة التالية وهو مثال لكيفية مسح مربعات النصوص باستخدام حلقة التكرار For Each 

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]