כיצד ליצור רשימה של כל גליונות העבודה בחוברת העבודה הפעילה באמצעות מאקרו VBA
האם ברצונך ליצור טבלה של כל הגיליונות בחוברת העבודה הפעילה? השתמש במקרו הבא:
תת הצג טבלאות ()
עמום שורה כל עוד
גיליון עמום כדף עבודה
גיליון חדש מעומעם כדף עבודה
הגדר Neublatt = ActiveWorkbook.Worksheets.Add
שורה = 1
עבור כל גיליון ב- ActiveWorkbook.Worksheets
אם Sheet.Name גיליון חדש שם אז
גיליון חדש.תאים (שורה, 1) = שם גיליון
קו = שורה + 1
סוף אם
הדף הבא
סיום תת
המאקרו יוצר גליון עבודה חדש בחוברת העבודה הפעילה שבו שמות כל גליונות העבודה נשמרים. רק דף הסקירה החדש אינו נכלל ברשימה. האיור הבא מראה כיצד התוצאה יכולה להיראות:
כדי להזין את המאקרו, פתח את עורך VBA ב- Excel באמצעות שילוב המקשים ALT F11. בעורך זה, בחר את הפקודה INSERT - MODULE והזן את המאקרו. אתה מפעיל את המאקרו מאקסל באמצעות שילוב המקשים ALT F8.
