A rejtett táblák listájának létrehozása a VBA használatával
A munkafüzet lapjait láthatatlanná teheti a "Formátum - Lap - Elrejtés" paranccsal. Ekkor továbbra is elérhető a táblázat tartalma egy képlet segítségével, de a táblázat már nem látható.
Ha szüksége van az aktív munkafüzet összes rejtett munkalapjának listájára, akkor használja a következő makrót:
AllistaHiddenTablesOn ()
A táblázat halványítása munkalapként, új táblázat táblázatként
Halvány CurrentMappe munkafüzetként
Dim i As Integer
A CurrentMappe = ActiveWorkbook beállítása
Set NeueTabelle = Workbooks.Add.Sheets (1)
A CurrentMappe.Worksheets minden táblájához
Ha Table.Visible = False Akkor
i = i + 1
NewTable.Cells (i, 1) .Value = Table.Name
Vége Ha
Következő táblázat
End Sub
A makró végigmegy az összes munkalapon, és ellenőrzi a tulajdonságot Látható. Ha nem elégedett, akkor ez egy rejtett táblázat. Ezután a lap neve átkerül a listára.
A makró felsorolja az összes rejtett munkalap nevét egy táblázatban egy új munkafüzetben.
Az ábra a makró eredményét mutatja, amikor az aktív munkafüzetben három rejtett munkalap található: "Rejtett", "Rejtett" és "Láthatatlan".
Tipp: Ha szeretné tudni, hogyan kell beírni és elindítani a makrókat Excelben, itt talál egy rövid leírást:
www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie-makros-in-excel-ein.html
