Hvordan generere en liste over de skjulte tabellene ved hjelp av VBA
Du kan gjøre arkene i en arbeidsbok usynlig med kommandoen "Format - Ark - Skjul". Det er da fortsatt mulig å få tilgang til tabellinnholdet ved hjelp av en formel, men tabellen er ikke lenger synlig.
Hvis du trenger en liste over alle skjulte regneark i den aktive arbeidsboken, kan du bruke følgende makro:
Sub ListHiddenTablesOn ()
Dim Table As Worksheet, NewTable As Worksheet
Dim CurrentMappe Som arbeidsbok
Dim i As Integer
Sett CurrentMappe = ActiveWorkbook
Sett NeueTabelle = Workbooks.Add.Sheets (1)
For hver tabell i CurrentMappe.Worksheets
If Table.Visible = False Then
i = i + 1
NewTable.Cells (i, 1) .Value = Table.Name
Slutt om
Neste bord
Slutt Sub
Makroen går gjennom alle regnearkene og sjekker eiendommen Synlig. Hvis det ikke er tilfredsstillende, er det et skjult regneark. Deretter overføres navnet på arket til listen.
Makroen viser navnene på alle skjulte regneark i en tabell i en ny arbeidsbok.
Figuren viser resultatet av makroen når det er tre skjulte regneark i den aktive arbeidsboken: "Skjult", "Skjult" og "Usynlig".
Tips: Hvis du vil vite hvordan du angir og starter makroer i Excel, finner du en kort beskrivelse her:
www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie-makros-in-excel-ein.html
