/ / حلقة من خلال الكتب وجداول البيانات في إكسل VBA

حلقة من خلال الكتب والأوراق في Excel VBA

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

موقف:

من خلال حلقة الكتب وأوراق مثال

أضف أسطر التعليمات البرمجية التالية إلى زر الأمر:

1. أولاً ، نعلن عن شيئين ومُغير واحد. كائن واحد من نوع المصنف الذي نطلق عليه كتابًا ، كائن واحد من نوع ورقة عمل نطلق عليها ورقة ، ومتغير من نوع String نسميه نصًا.

Dim book As Workbook, sheet As Worksheet, text As String

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

For Each book In Workbooks

3. نكتب النص "Workbook:" ، واسم المصنف ، والنص "Worksheets:" إلى النص المتغير.

text = text & "Workbook: " & book.Name & vbNewLine & "Worksheets: " & vbNewLine

ملاحظة: يمكنك استخدام عامل التشغيل لربط عناصر (الانضمام). لبدء سطر جديد ، يمكنك استخدام vbNewLine.

4. لإجراء حلقة عبر جميع أوراق العمل في أحد المصنفات ، أضف سطر الرمز التالي:

For Each sheet In book.Worksheets

5. نكتب أسماء أوراق العمل في مصنف إلى النص المتغير.

text = text & sheet.Name & vbNewLine

6. أغلق الحلقة الثانية.

Next sheet

7. أضف خطًا أبيض.

text = text & vbNewLine

8. لا تنس أن تغلق الحلقة الأولى.

Next book

9. وأخيرًا ، نعرض النص المتغير باستخدام MsgBox.

MsgBox text

10. اختبار البرنامج. قبل النقر فوق زر الأمر ، قم بمنح أوراق العمل بعض الأسماء الوصفية وفتح مصنف آخر فارغ.

نتيجة:

حلقة من خلال الكتب والأوراق في Excel VBA

اقرأ أيضًا: