Výstup názvů listů v sešitu aplikace Excel jako seznam

Vytvořte obsah sešitu uvedením názvů všech listů v sešitu aplikace Excel

Chcete získat seznam všech pracovních listů v sešitu? Poté použijte makro VBA. Následující makro vytvoří nový list v aktivním sešitu a zobrazí seznam názvů všech listů pod sebou v tomto listu:

Dílčí seznamBlaetter ()
Dim line As Integer
Dim List as Worksheet
Nastavit seznam = ActiveWorkbook.Worksheets.Add
Pro řádek = 1 do ActiveWorkbook.Worksheets.Count
List.Cells (řádek, 1) .Value = pracovní listy (řádek) .Name
Další řádek
End Sub

Po spuštění makro vygeneruje seznam listů v aktivních sešitech. Tento seznam je v novém listu. Následující obrázek ukazuje, jak může výsledek vypadat:

Makro zadáte stisknutím kombinace kláves ALT F11 v Excelu. Tím se vyvolá editor VBA. Pomocí příkazu VLOŽIT - MODUL vložte prázdný list modulu. Makro spustíte stisknutím kombinace kláves ALT F8 v Excelu.