Hvordan lage en liste over alle regneark i den aktive arbeidsboken ved hjelp av en VBA -makro
Vil du lage en tabell med alle arkene i den aktive arbeidsboken? Bruk følgende makro:
Sub ShowTablesheets ()
Dim Row As Long
Dim ark som regneark
Dim nytt ark som regneark
Sett Neublatt = ActiveWorkbook.Worksheets.Add
Rad = 1
For hvert ark i ActiveWorkbook.Worksheets
If Sheet.Name New Sheet.Name Da
Nytt ark.Celler (rad, 1) = arknavn
Linje = linje + 1
Slutt om
Neste ark
Slutt Sub
Makroen oppretter et nytt regneark i den aktive arbeidsboken der navnene på alle regnearkene er lagret. Bare det nye oversiktsarket er ekskludert fra listen. Følgende figur viser hvordan resultatet kan se ut:
For å gå inn i makroen, åpne VBA -editoren i Excel ved hjelp av tastekombinasjonen ALT F11. I denne editoren velger du kommandoen INSERT - MODULE og skriver inn makroen. Du starter makroen fra Excel ved hjelp av tastekombinasjonen ALT F8.
