ماكرو للتكرار الحلقي عبر كافة أوراق العمل في المصنف

الملخص

تحتوي هذه المقالة على Microsoft Visual Basic for Applications الماكرو (إجراء Sub) التي يدور كافة أوراق العمل في المصنف النشط. يعرض هذا الماكرو أيضا اسم كل ورقة عمل.

مزيد من المعلومات

توفر Microsoft أمثلة برمجية للتوضيح فقط، دون أي ضمان صريح أو ضمني. هذا يتضمن، على سبيل المثال لا الحصر، الضمانات الضمنية الخاصة بالتسويق أو الملاءمة لغرض معين. تفترض هذه المقالة أنك معتاد على لغة البرمجة التي يتم شرحها والأدوات المستخدمة لإنشاء الإجراءات وتصحيحها. يساعد مهندسو الدعم لدى Microsoft في شرح وظيفة إجراء محدد، لكنهم لن يقوموا بتعديل هذه الأمثلة لتقديم وظيفة إضافية أو إنشاء إجراءات تستوفي متطلبات محددة. لتجريب نموذج الماكرو، اتبع الخطوات التالية:

1. اكتب التعليمة البرمجية للماكرو التالي في ورقة وحدة نمطية جديدة.

         Sub WorksheetLoop()         Dim WS_Count As Integer         Dim I As Integer         ' Set WS_Count equal to the number of worksheets in the active         ' workbook.         WS_Count = ActiveWorkbook.Worksheets.Count         ' Begin the loop.         For I = 1 To WS_Count            ' Insert your code here.            ' The following line shows how to reference a sheet within            ' the loop by displaying the worksheet name in a dialog box.            MsgBox ActiveWorkbook.Worksheets(I).Name         Next I      End Sub

2. لتشغيل الماكرو، قم بوضع نقطة الإدراج في السطر الذي به "WorksheetLoop() الفرعية" واضغط F5.

وسوف يتكرر خلال المصنف الماكرو وعرض مربع رسالة باسم ورقة عمل مختلفة في كل مرة يتم تشغيله خلال الحلقة. لاحظ أن هذا الماكرو ستظهر فقط أسماء أوراق العمل؛ لن يتم عرض أسماء الأنواع الأخرى من الأوراق في المصنف. يمكن أيضا التكرار خلال كافة أوراق العمل في المصنف باستخدام تكرار حلقي 'لكل'.

1. أدخل رمز الماكرو التالي في ورقة وحدة نمطية جديدة.

         Sub WorksheetLoop2()         ' Declare Current as a worksheet object variable.         Dim Current As Worksheet         ' Loop through all of the worksheets in the active workbook.         For Each Current In Worksheets            ' Insert your code here.            ' This line displays the worksheet name in a message box.            MsgBox Current.Name         Next      End Sub

2. لتشغيل الماكرو، قم بوضع نقطة الإدراج في السطر الذي به "WorksheetLoop2() الفرعية" واضغط F5.

يعمل هذا الماكرو مطابق تماما لماكرو WorksheetLoop، إلا أنه يستخدم نوع مختلف من حلقة لمعالجة كافة أوراق العمل في المصنف النشط.

المراجع

لمزيد من المعلومات حول الحصول على تعليمات باستخدام Visual Basic for Applications، الرجاء مراجعة المقالة التالية في "قاعدة المعارف ل Microsoft":

163435 VBA: برمجة الموارد ل Visual Basic للتطبيقات

226118 OFF2000: برمجة الموارد ل Visual Basic للتطبيقات