Opret indholdsfortegnelse til Excel-regneark
Du vil oprette en indholdsfortegnelse på det første ark i en større Excel-projektmappe. Til dette har du brug for en liste med navnene på de enkelte tabeller. En makro hjælper dig med at gøre dette.
Opret indholdsfortegnelse ved hjælp af en Excel-makro
Da du ikke direkte kan få adgang til arknavne via tabelfunktionen, er det bedst at gøre dette med en makro.
- For at gøre dette skal du udføre kommandoen "Værktøjer | Makro | Makroer" i den åbne projektmappe. Skriv et navn som "Tabelliste" for den nye makro, og klik på "Opret".
- Indtast følgende programkode i VBA-editoren:
- Undertabel liste ()
- Ark (1) .Select
- Sheets.Add
- Ark (1) .Name = "Indhold"
- n = 1
- For hvert i i regneark
- Hvis i.Index 1 Derefter Range ("a" & n - 1) .Value = i.Name
- n = n + 1
- Næste i
- Afslut under
Afslut VBA-editoren med kommandoen "File | Luk og tilbage til Microsoft Excel". For at køre makroen skal du kalde "Værktøjer | Makro | Makroer". I den følgende dialog skal du vælge din makro "Tabeliste" og klikke på "Udfør".
Opret nyt regneark med indholdsfortegnelse
Excel opretter derefter et yderligere regneark i begyndelsen af projektmappen og opretter en oversigt over alle tabellerne i mappen.
- I stedet for på et nyt ark, kan du få listen oprettet i en eksisterende tabel. For at gøre dette skal du ændre den anden linje i makroen: Indtast for eksempel >> Ark ("Oversigtsark"). Vælg <<. Du kan bruge navnet på det ønskede ark som et argument i parenteserne.
- Vælg alternativt et sekventielt nummer, der svarer til rangeringen af arket i projektmappen. Til sidst skal du slette de følgende to linjer i makroen, der indsætter det ekstra ark.