Hvordan opretter man automatisk indholdsfortegnelse for alle ark og opdateringer?
Hvis du antager, at du har en projektmappe, der indeholder hundredvis af regneark, kan det forårsage hovedpine for de fleste af os at navigere til et specifikt ark blandt flere ark. I dette tilfælde kan oprettelse af en indholdsfortegnelse for disse arbejdsark hjælpe dig med at gå til det bestemte ark hurtigt og nemt. Denne vejledning vil tale om, hvordan du opretter en indholdsfortegnelse for alle ark og opdaterer tabellen automatisk, når du også indsætter, sletter eller ændrer arknavnene.
Opret en indholdsfortegnelse for alle ark og opdatere automatisk med formler
Opret en indholdsfortegnelse for alle ark og opdateringer automatisk med en VBA-kode
Opret en indholdsfortegnelse for alle ark og opdateringer automatisk med en kraftfuld funktion
Opret en indholdsfortegnelse for alle ark og opdatere automatisk med formler
I Excel kan du oprette en indholdsfortegnelse ved at definere et områdenavn og henvise til navnet i en formel. Gør venligst med følgende trin:
1. Indsæt et nyt ark før alle ark, hvor du vil oprette indholdsfortegnelsen, og omdøb det efter behov.
2. Klik derefter på Formula > Definer navn, se skærmbillede:
3. I Nyt navn dialogboks, angiv et navn Arkliste ind i Navn boks, kan du ændre den til din egen og derefter indtaste denne formel: = GET.WORKBOOK (1) & T (NU ()) ind i Hentyder til tekstboks, se skærmbillede:
4. Klik derefter på OK knappen for at lukke dialogboksen.
5. Gå nu til det nye ark, hvor du vil oprette en indholdsfortegnelse, og indtast derefter følgende formel i en tom celle:
6. Og træk derefter udfyldningshåndtaget ned til cellerne, indtil tomme celler vises, og alle arknavne (inklusive de skjulte ark) i den aktuelle projektmappe er blevet vist som vist nedenfor:
7. Derefter skal du oprette hyperlinks til tabelindholdet, brug venligst nedenstående formel:
8. Nu, når du klikker på hyperlinkteksten, vil den gå til det ark med det samme. Og hvis du indsætter et nyt ark, sletter et ark eller ændrer arknavnet, opdateres tabelindholdet automatisk.
- 1. Med denne metode vises alle skjulte ark også i tabelindholdet.
- 2. Du skal gemme filen som Excel-makroaktiveret projektmappe formatere, på denne måde, når du åbner denne fil næste gang, kan formlerne fungere godt.
Opret en indholdsfortegnelse for alle ark og opdateringer automatisk med en VBA-kode
Nogle gange behøver du ikke vise de skjulte ark i tabelindholdet. For at løse dette problem kan følgende VBA-kode gøre dig en tjeneste.
1. Indsæt et nyt ark før alle ark, hvor du vil oprette indholdsfortegnelsen, og omdøb det efter behov. Højreklik derefter på arkfanen, og vælg Vis kode fra kontekstmenuen, se skærmbillede:
2. I åbnet Microsoft Visual Basic til applikationer vindue, kopier og indsæt nedenstående kode i arkkodevinduet:
VBA-kode: Opret en indholdsfortegnelse for alle ark og opdateringer automatisk
Private Sub Worksheet_Activate()
‘Updateby ExtendOffice
Dim xWsh As Worksheet
Dim xWshs As Worksheets
Dim xShowHinddenWorkSheet As Boolean
Dim xI As Long
Dim xRg As Range
Dim xStrTitle, xStrTCHeader, xStrWShName As String
xShowHinddenWorkSheet = False 'Change this to True to display the hidden sheets as you need
xStrTitle = "A1"
xStrTCHeader = "A3"
On Error Resume Next
Application.ScreenUpdating = False
Me.Cells.Clear
Me.Range(xStrTitle).Font.Bold = True
Me.Range(xStrTitle).Font.Size = Me.Range(xStrTitle).Font.Size + 2
Me.Range(xStrTitle).Value = "Table of Contents"
Me.Range(xStrTCHeader).Value = "No."
Me.Range(xStrTCHeader).Offset(0, 1).Value = "Sheet Name"
Me.Range(xStrTCHeader).Resize(1, 2).Font.Bold = True
xStrWShName = Me.Name
xI = 1
For Each xWsh In Application.ActiveWorkbook.Worksheets
If xWsh.Name <> xStrWShName Then
If (xWsh.Visible = xlSheetVisible) Or xShowHinddenWorkSheet Then
Me.Hyperlinks.Add Anchor:=Me.Range(xStrTCHeader).Offset(xI, 1), Address:="", SubAddress:="'" & xWsh.Name & "'!A1", TextToDisplay:=xWsh.Name
Me.Range(xStrTCHeader).Offset(xI).Value = xI
xI = xI + 1
End If
End If
Next
Application.ScreenUpdating = True
End Sub
3. Tryk derefter på F5 tasten for at køre denne kode, og tabelindholdet oprettes på én gang i det nye regneark, vil alle skjulte ark ikke blive vist i tabelindholdet, se skærmbillede:
4. Formularen er nu på, når du sletter, indsætter eller omdøber ark, vil tabelindholdet blive opdateret dynamisk.
Opret en indholdsfortegnelse for alle ark og opdateringer automatisk med en kraftfuld funktion
Hvis du har Kutools til Excel, dens Navigationsruden kan hjælpe dig med at liste alle arknavne i en venstre rude lodret og navigere til det specifikke ark hurtigt og nemt.
Efter installation Kutools til Excelskal du gøre som dette:
1. Klik Kutools > Navigation, se skærmbillede:
2. I det udvidede Navigation rude, klik Arbejdsbog og ark ikon, vises alle åbnede projektmapper i den øverste listeboks, og alle synlige ark i projektmappen vises i den nederste listeboks, se skærmbillede:
3. Og nu kan du gå til arket ved blot at klikke på arknavnet fra venstre rude. Og når du sletter, indsætter eller omdøber et ark, vil arklisten i ruden blive opdateret dynamisk.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
