Kako z uporabo makra VBA ustvariti seznam vseh delovnih listov v aktivnem delovnem zvezku
Ali želite ustvariti tabelo vseh listov v aktivnem delovnem zvezku? Uporabite naslednji makro:
Podrazstavni tabeli ()
Dim Row As Long
Zatemni list kot delovni list
Zatemni nov list kot delovni list
Nastavite Neublatt = ActiveWorkbook.Worksheets.Add
Vrstica = 1
Za vsak list v ActiveWorkbook.Worksheets
Če Sheet.Name New Sheet.Name Potem
Nov list. Celice (vrstica, 1) = ime lista
Vrstica = vrstica + 1
Konec Če
Naslednji list
End Sub
Makro ustvari nov delovni list v aktivnem delovnem zvezku, v katerem so shranjena imena vseh delovnih listov. Le nov pregledni list je izključen s seznama. Naslednja slika prikazuje, kako lahko izgleda rezultat:
Če želite vnesti makro, odprite urejevalnik VBA v Excelu s kombinacijo tipk ALT F11. V tem urejevalniku izberite ukaz INSERT - MODULE in vnesite makro. Makro zaženete iz Excela s kombinacijo tipk ALT F8.
