Lag en innholdsfortegnelse for en arbeidsbok ved å liste opp navnene på alle regnearkene i en Excel -arbeidsbok
Vil du få en liste over alle regnearkene i en arbeidsbok? Bruk deretter en VBA -makro. Følgende makro oppretter et nytt regneark i den aktive arbeidsboken og viser navnene på alle arkene under hverandre i dette regnearket:
Sub ListBlaetter ()
Dim line As Integer
Dim List As regneark
Sett liste = ActiveWorkbook.Worksheets.Add
For linje = 1 Til ActiveWorkbook.Worksheets.Count
List.Cells (rad, 1) .Value = Regneark (rad) .Name
Neste linje
Slutt Sub
Når den er startet, genererer makroen en liste over regnearkene i de aktive arbeidsbøkene. Denne listen er i et nytt regneark. Følgende figur viser hvordan resultatet kan se ut:
Trykk på tastekombinasjonen ALT F11 i Excel for å gå inn i makroen. Dette kaller opp VBA -redaktøren. Bruk kommandoen INSERT - MODULE for å sette inn et tomt modulark. For å starte makroen, trykk på tastekombinasjonen ALT F8 i Excel.
