Jak vygenerovat seznam skrytých tabulek pomocí VBA
Listy sešitu můžete zneviditelnit příkazem „Formát - List - Skrýt“. Potom je stále možné přistupovat k obsahu tabulky pomocí vzorce, ale tabulka již není viditelná.
Pokud potřebujete seznam všech skrytých listů v aktivním sešitu, můžete použít následující makro:
Dílčí seznamHiddenTablesOn ()
Dim Table as Worksheet, NewTable As Worksheet
Dim CurrentMappe jako sešit
Dim i As Integer
Nastavit CurrentMappe = ActiveWorkbook
Nastavit NeueTabelle = Workbooks.Add.Sheets (1)
Pro každou tabulku v CurrentMappe.Worksheets
Pokud Table.Visible = False Then
i = i + 1
NewTable.Cells (i, 1) .Value = Table.Name
Konec If
Další tabulka
End Sub
Makro prochází všemi listy a kontroluje vlastnost Viditelné. Pokud není spokojen, jedná se o skrytou tabulku. Poté se název listu přenese do seznamu.
Makro uvádí názvy všech skrytých listů v tabulce v novém sešitu.
Obrázek ukazuje výsledek makra, když jsou v aktivním sešitu tři skryté listy: „Skryté“, „Skryté“ a „Neviditelné“.
Tip: Pokud byste chtěli vědět, jak zadávat a spouštět makra v Excelu, najdete zde stručný popis:
www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie-makros-in-excel-ein.html
