כיצד ליצור רשימה של הטבלאות הנסתרות באמצעות VBA
אתה יכול להפוך את גליונות חוברת העבודה לבלתי נראים באמצעות הפקודה "פורמט - גיליון - הסתר". לאחר מכן עדיין ניתן לגשת לתוכן הטבלה באמצעות נוסחה, אך הטבלה כבר אינה גלויה.
אם אתה צריך רשימה של כל גליונות העבודה הנסתרים בחוברת העבודה הפעילה, תוכל להשתמש במאקרו הבא:
Sub ListHiddenTablesOn ()
טבלה עמומה כגיליון עבודה, טבלה חדשה כגיליון עבודה
Dim CurrentMappe כחוברת עבודה
Dim i כמספר שלם
הגדר CurrentMappe = ActiveWorkbook
הגדר NeueTabelle = חוברות עבודה. הוספת גיליונות (1)
עבור כל טבלה ב- CurrentMappe.Worksheets
אם Table.Visible = False אז
i = i + 1
NewTable.Cells (i, 1) .Value = Table.Name
סוף אם
הטבלה הבאה
סיום תת
המאקרו עובר כל גליונות העבודה ובודק את הנכס גלוי. אם הוא לא מרוצה, זהו גיליון אלקטרוני מוסתר. לאחר מכן שם הגיליון מועבר לרשימה.
המאקרו מפרט את השמות של כל גליונות העבודה הנסתרים בטבלה בחוברת עבודה חדשה.
האיור מציג את תוצאת המאקרו כאשר יש בחוברת העבודה הפעילה שלושה דפי עבודה מוסתרים: "מוסתר", "מוסתר" ו"בלתי נראה ".
טיפ: אם ברצונך לדעת כיצד להזין ולהפעיל פקודות מאקרו ב- Excel, תוכל למצוא כאן תיאור קצר:
www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie-makros-in-excel-ein.html
