Lag innholdsfortegnelse for Excel-regneark
Du vil lage en innholdsfortegnelse på det første arket i en større Excel-arbeidsbok. For dette trenger du en liste med navnene på de enkelte tabellene. En makro hjelper deg å gjøre dette.
Lag innholdsfortegnelse ved hjelp av en Excel-makro
Siden du ikke direkte får tilgang til arkenavnene via tabellfunksjonen, er det best å gjøre dette med en makro.
- For å gjøre dette, kjør kommandoen "Verktøy | Makro | Makroer" i den åpne arbeidsboka. Skriv inn et navn som "Tabelliste" for den nye makroen, og klikk "Opprett".
- Skriv inn følgende programkode i VBA-redigereren:
- Undertabelliste ()
- Ark (1) .Velg
- Sheets.Add
- Ark (1) .Name = "Innhold"
- n = 1
- For hvert i i regneark
- Hvis i.Index 1, så Range ("a" & n - 1) .Value = i.Name
- n = n + 1
- Neste jeg
- Slutt sub
Gå ut av VBA-redigereren med kommandoen "File | Lukk og tilbake til Microsoft Excel". For å kjøre makroen, kaller du "Verktøy | Makro | Makroer". I den følgende dialogen velger du makroen "Tabelliste" og klikker på "Utfør".
Lag nytt regneark med innholdsfortegnelse
Excel oppretter deretter et ekstra arbeidsark i begynnelsen av arbeidsboka og lager en oversikt over alle tabellene i mappen.
- I stedet for på et nytt ark, kan du få listen opprettet i en eksisterende tabell. For å gjøre dette, endre den andre linjen i makroen: Angi for eksempel >> Ark ("Oversiktsark"). Velg <<. Du kan bruke navnet på det ønskede arket som et argument i parentesene.
- Velg alternativt et sekvensielt nummer som tilsvarer rangeringen av arket i arbeidsboka. Slett til slutt de to følgende linjene i makroen som setter inn tilleggsarket.