טיפ לקבלת רשימת הגיליונות בקובץ באמצעות אקסל VBA

יש לך קובץ אקסל עם הרבה גיליונות ?

רוצה לקבל את רשימת הגיליונות בקובץ אקסל?

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

בגיליון בשם ריכוז בקובץ בו כתוב המאקרו נקבל רשימת גיליונות בעמודה A החל מהתא A2

Sub sheets_list()

For i = 1 To ThisWorkbook.Sheets.Count

ThisWorkbook.Sheets("ריכוז").Cells(i + 1, 1) = Sheets(i).Name

Next i

End Sub

אפשר להוסיף למאקרו VBA קוד להדפסת הרשימה.

ב ה צ ל ח ה

תגובות

טיפ לקבלת רשימת הגיליונות בקובץ באמצעות אקסל VBA — 2 תגובות

  1. מיכל שלום,

    "בעזרת תיקון קטן, אין צורך להגדיר מראש את גיליון "ריכוז
    :חוץ מזה, אני תמיד מעדיף להגדיר את משתני התכנית בעזרת
    Option Explicit

    Option Explicit
    Sub sheets_list()
    Dim i As Integer
    Dim cnt As Integer
    cnt = ThisWorkbook.Sheets.Count
    ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(cnt)).Name = "ריכוז"

    For i = 1 To cnt
    ThisWorkbook.Sheets("ריכוז").Cells(i + 1, 1) = Sheets(i).Name
    Next i

    End Sub

    הגב ↓

כתיבת תגובה

האימייל לא יוצג באתר. שדות החובה מסומנים *