Kako izraditi popis svih radnih listova u aktivnoj radnoj knjizi pomoću VBA makronaredbe
Želite li stvoriti tablicu svih listova u aktivnoj radnoj knjizi? Koristite sljedeći makro:
Podpokaži tablice tablica ()
Dim Row As Long
Zatamnjeni list kao radni list
Zatamnite novi list kao radni list
Postavite Neublatt = ActiveWorkbook.Worksheets.Add
Red = 1
Za svaki list u ActiveWorkbook.Radni listovi
Ako Sheet.Name New Sheet.Name Zatim
Novi list.Čelije (redak, 1) = naziv lista
Linija = linija + 1
Završi ako
Sljedeći list
Kraj podm
Makronaredba stvara novi radni list u aktivnoj radnoj knjizi u koji su spremljeni nazivi svih radnih listova. S popisa je isključen samo novi pregledni list. Sljedeća slika prikazuje kako rezultat može izgledati:
Da biste unijeli makro, otvorite VBA editor u Excelu pomoću kombinacije tipki ALT F11. U ovom uređivaču odaberite naredbu INSERT - MODULE i unesite makro. Pokrećete makro iz programa Excel pomoću kombinacije tipki ALT F8.
