Jak wygenerować listę ukrytych tabel za pomocą VBA?
Możesz sprawić, że arkusze skoroszytu będą niewidoczne za pomocą polecenia „Formatuj - Arkusz - Ukryj”. Dostęp do zawartości tabeli jest wtedy nadal możliwy za pomocą formuły, ale tabela nie jest już widoczna.
Jeśli potrzebujesz listy wszystkich ukrytych arkuszy w aktywnym skoroszycie, możesz użyć następującego makra:
Lista podrzędnaUkryteTabeleWł. ()
Przyciemnij tabelę jako arkusz roboczy, NewTable jako arkusz roboczy
Dim CurrentMappe jako skoroszyt
Dim i jako liczba całkowita
Ustaw CurrentMappe = ActiveWorkbook
Ustaw NeueTabelle = Skoroszyty.Dodaj.Arkusze (1)
Dla każdej tabeli w CurrentMappe.Worksheets
Jeśli Table.Visible = False, to
ja = ja + 1
NewTable.Cells (i, 1) .Value = Table.Name
Zakończ, jeśli
Następna tabela
Napis końcowy
Makro przechodzi przez wszystkie arkusze i sprawdza właściwość Widoczny. Jeśli nie jest spełniony, jest to ukryty arkusz kalkulacyjny. Następnie nazwa arkusza zostaje przeniesiona na listę.
Makro wyświetla nazwy wszystkich ukrytych arkuszy w tabeli w nowym skoroszycie.
Rysunek pokazuje wynik makra, gdy w aktywnym skoroszycie znajdują się trzy ukryte arkusze: „Ukryty”, „Ukryty” i „Niewidoczny”.
Wskazówka: Jeśli chcesz wiedzieć, jak wprowadzać i uruchamiać makra w Excelu, znajdziesz tutaj krótki opis:
www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie-makros-in-excel-ein.html
