Sådan oprettes en liste over alle regneark i den aktive projektmappe ved hjælp af en VBA -makro
Vil du oprette en tabel med alle ark i den aktive projektmappe? Brug følgende makro:
Sub ShowTablesheets ()
Dim Row Så Lang
Dim ark som regneark
Dim nyt ark som regneark
Indstil Neublatt = ActiveWorkbook.Worksheets.Add
Række = 1
For hvert ark i ActiveWorkbook.Worksheets
Hvis Sheet.Name Nyt Sheet.Name Så
Nyt ark.Celler (række, 1) = arknavn
Linje = linje + 1
Afslut Hvis
Næste ark
Afslut Sub
Makroen opretter et nyt regneark i den aktive projektmappe, hvor navnene på alle regneark gemmes. Kun det nye oversigtsark er udelukket fra listen. Følgende figur viser, hvordan resultatet kan se ud:
For at indtaste makroen skal du åbne VBA -editoren i Excel ved hjælp af tastekombinationen ALT F11. I denne editor skal du vælge kommandoen INSERT - MODULE og indtaste makroen. Du starter makroen fra Excel ved hjælp af tastekombinationen ALT F8.