מאקרו לולאה דרך כל גליונות העבודה בחוברת עבודה

סיכום

מאמר זה מכיל Microsoft Visual Basic for מאקרו יישומים (שגרת משנה) אשר בלולאה כל גליונות העבודה בחוברת העבודה הפעילה. פקודת מאקרו זו מציגה גם את השם של כל גליון עבודה.

מידע נוסף

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

המאקרו בלולאה חוברת העבודה ואת להציג תיבת הודעה עם שם אחר של גליון העבודה בכל פעם שהוא מפעיל דרך הלולאה. הערה מאקרו זה יציג רק שמות גליון עבודה; הוא לא יציג את השמות של סוגים אחרים של גליונות בחוברת העבודה. אתה יכול גם להמשיך בלולאה כל גליונות העבודה בחוברת העבודה באמצעות לולאת 'For Each'.

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 ליישומים, נא עיין במאמר הבא מתוך מאגר הידע Microsoft Knowledge Base:

163435 VBA: משאבים תיכנות עבור Visual Basic for Applications

226118 OFF2000: משאבים תיכנות עבור Visual Basic for Applications