Jak vytvořit seznam všech listů v aktivním sešitu pomocí makra VBA
Chcete v aktivním sešitu vytvořit tabulku všech listů? Použijte následující makro:
Dílčí ukázkové tabulky ()
Dim Row As Long
Dim Sheet As Worksheet
Ztlumit nový list jako pracovní list
Nastavit Neublatt = ActiveWorkbook.Worksheets.Add
Řádek = 1
Pro každý list v ActiveWorkbook.Worksheets
If Sheet.Name New Sheet.Name Then
Nový list.Články (řádek, 1) = název listu
Řádek = řádek + 1
Konec If
Další list
End Sub
Makro vytvoří nový list v aktivním sešitu, ve kterém jsou uloženy názvy všech listů. Ze seznamu je vyloučen pouze nový přehledový list. Následující obrázek ukazuje, jak může výsledek vypadat:
Chcete -li zadat makro, otevřete v aplikaci Excel editor VBA pomocí kombinace kláves ALT F11. V tomto editoru vyberte příkaz VLOŽIT - MODUL a zadejte makro. Makro spustíte z Excelu pomocí kombinace kláves ALT F8.