Sådan genereres en liste over de skjulte tabeller ved hjælp af VBA
Du kan gøre arkene i en projektmappe usynlige med kommandoen "Format - Ark - Skjul". Det er derefter stadig muligt at få adgang til tabelindholdet ved hjælp af en formel, men tabellen er ikke længere synlig.
Hvis du har brug for en liste over alle skjulte regneark i den aktive projektmappe, kan du bruge følgende makro:
Sub ListHiddenTablesOn ()
Dim tabel som regneark, NewTable As regneark
Dim CurrentMappe som projektmappe
Dim i As Integer
Indstil CurrentMappe = ActiveWorkbook
Indstil NeueTabelle = Workbooks.Add.Sheets (1)
For hver tabel i CurrentMappe.Worksheets
If Table.Visible = False Then
i = i + 1
NewTable.Cells (i, 1) .Value = Table.Name
Afslut Hvis
Næste bord
Afslut Sub
Makroen løber gennem alle regnearkene og kontrollerer ejendommen Synlig. Hvis det ikke er tilfredsstillende, er det et skjult regneark. Derefter overføres navnet på arket til listen.
Makroen viser navnene på alle skjulte regneark i en tabel i en ny projektmappe.
Figuren viser resultatet af makroen, når der er tre skjulte regneark i den aktive projektmappe: "Skjult", "Skjult" og "Usynlig".
Tip: Hvis du gerne vil vide, hvordan du indtaster og starter makroer i Excel, finder du en kort beskrivelse her:
www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie-makros-in-excel-ein.html
