/ / לולאה באמצעות ספרים וגליונות ב - VBA של Excel

לולאה דרך ספרים וגליונות ב - VBA של Excel

להלן נבחן תוכנית ב Excel VBA כי לולאות בכל חוברות העבודה וגליונות העבודה הפתוחים, ומציג את כל השמות.

מצב:

לולאה דרך ספרים וגליונות דוגמה

הוסף את שורות הקוד הבאות ללחצן הפקודה:

1. ראשית, אנו מכריזים על שני אובייקטים ומשתנה אחד. אובייקט אחד של סוג חוברת שאנו קוראים ספר, אובייקט אחד מסוג גיליון עבודה שאנו קוראים גיליון, ומשתנה של מחרוזת סוג שאנו קוראים טקסט.

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

2. אנחנו רוצים לולאה דרך כל חוברות העבודה הפתוחות. לשם כך, הוסף את שורת הקוד הבאה:

For Each book In Workbooks

3. אנו כותבים את הטקסט "חוברת עבודה", את שם חוברת העבודה ואת הטקסט "גליונות עבודה:" "לטקסט המשתנה.

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. בדוק את התוכנית. לפני שתלחץ על לחצן הפקודה, תן לגליונות העבודה שלך כמה שמות תיאוריים ולפתוח עוד חוברת עבודה ריקה.

תוצאה:

לולאה דרך ספרים וגליונות ב - VBA של Excel

קרא גם: