Kuidas luua aktiivse töövihiku kõigi töölehtede loendit VBA makro abil
Kas soovite luua tabeli kõigist aktiivse töövihiku lehtedest? Kasutage järgmist makro:
AlamsaatedTabelid ()
Hämarda rida sama kaua
Tume leht töölehena
Hämardage uus leht töölehena
Määra Neublatt = ActiveWorkbook.Worksheets.Add
Rida = 1
Iga lehe jaoks ActiveWorkbookis. Töölehed
Kui leht. Nimi uus leht. Nimi siis
Uus leht. Lahtrid (rida, 1) = leht. Nimi
Rida = rida + 1
Lõpp Kui
Järgmine leht
End Sub
Makro loob aktiivsesse töövihikusse uue töölehe, kuhu on salvestatud kõigi töölehtede nimed. Loendist on välja jäetud ainult uus ülevaateleht. Järgmine joonis näitab, milline võib tulemus välja näha:
Makro sisestamiseks avage Excelis VBA -redaktor, kasutades klahvikombinatsiooni ALT F11. Valige selles redaktoris käsk INSERT - MODULE ja sisestage makro. Makro käivitatakse Excelist, kasutades klahvikombinatsiooni ALT F8.
