Hoppa till huvudinnehåll

Hur skapar man innehållsförteckning för alla blad och uppdateringar automatiskt?

Om du antar att du har en arbetsbok som innehåller hundratals kalkylblad, att navigera till ett specifikt blad bland flera ark kan orsaka huvudvärk för de flesta av oss. I det här fallet kan att skapa en innehållsförteckning för dessa kalkylblad hjälpa dig att snabbt och enkelt gå till det specifika bladet. Den här handledningen kommer att prata om hur man skapar en innehållsförteckning för alla ark och uppdaterar tabellen automatiskt när man infogar, tar bort eller ändrar arknamnen också.

Skapa en innehållsförteckning för alla blad och uppdatera automatiskt med formler

Skapa en innehållsförteckning för alla blad och uppdatera automatiskt med en VBA-kod

Skapa en innehållsförteckning för alla blad och uppdatera automatiskt med en kraftfull funktion


Skapa en innehållsförteckning för alla blad och uppdatera automatiskt med formler

I Excel kan du skapa en innehållsförteckning genom att definiera ett intervallnamn och hänvisa till namnet i en formel. Gör så här:

1. Infoga ett nytt ark före alla ark där du vill skapa innehållsförteckningen och döp om det efter behov.

2. Klicka sedan Formel > Definiera namn, se skärmdump:

3. I Nytt namn dialogrutan, ange ett namn Bladlista i Företag rutan kan du ändra den till din egen och sedan ange den här formeln: = GET.WORKBOOK (1) & T (NU ()) i Refererar till textruta, se skärmdump:

4. Klicka sedan OK knappen för att stänga dialogrutan.

5. Gå nu till det nya arket där du vill skapa en innehållsförteckning och skriv sedan in följande formel i en tom cell:

=IFERROR(INDEX(MID(Sheetlist,FIND("]",Sheetlist)+1,255),ROWS($A$2:A2)),"")
Anmärkningar: I ovanstående formel, Bladlista är intervallnamnet du skapade i steg 2.

6. Och dra sedan fyllningshandtaget ner till cellerna tills tomma celler visas och alla arknamn (inklusive de dolda arken) i den aktuella arbetsboken har listats som nedanstående skärmbild:

7. Sedan bör du skapa hyperlänkar för tabellinnehållet, använd formeln nedan:

=HYPERLINK("#'"&A2&"'!A1","Gå till ark")
Anmärkningar: I ovanstående formel, A2 är cellen som innehåller bladets namn och A1 är cellen där du vill hoppa till i det arket. Om du till exempel klickar på hyperlänkstexten kommer den att hitta cell A1 i det arket.

8. Nu, när du klickar på hyperlänkstexten, kommer den att gå till det arket på en gång. Och om du infogar ett nytt ark, tar bort ett ark eller ändrar arknamnet uppdateras tabellinnehållet automatiskt.

Anmärkningar:
  • 1. Med denna metod visas alla dolda ark också i tabellinnehållet.
  • 2. Du bör spara filen som Excel Macro-Enabled Workbook formatera, på detta sätt, när du öppnar den här filen nästa gång, kan formlerna fungera bra.

Skapa en innehållsförteckning för alla blad och uppdatera automatiskt med en VBA-kod

Ibland behöver du inte visa de dolda arken i tabellinnehållet. För att lösa detta problem kan följande VBA-kod göra dig en tjänst.

1. Infoga ett nytt ark före alla ark där du vill skapa innehållsförteckningen och döp om det efter behov. Högerklicka sedan på arkfliken och välj Visa kod från snabbmenyn, se skärmdump:

2. I det öppnade Microsoft Visual Basic för applikationer fönster, kopiera och klistra in nedanstående kod i arkkodsfönstret:

VBA-kod: Skapa en innehållsförteckning för alla blad och uppdatera automatiskt

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. Tryck sedan på F5 nyckel för att köra den här koden, och tabellinnehållet skapas på en gång i det nya kalkylbladet, alla dolda ark kommer inte att visas i tabellinnehållet, se skärmdump:

4. Formulär nu på, när du tar bort, infogar eller byter namn på ark, kommer tabellinnehållet att uppdateras dynamiskt.

Anmärkningar: Du bör också spara Excel-filen som Excel Macro-Enabled Workbook formatera för att hålla koden igång framgångsrikt när du öppnar arbetsboken nästa gång.

Skapa en innehållsförteckning för alla blad och uppdatera automatiskt med en kraftfull funktion

Om du har Kutools för Excel, dess Navigeringsfönstret kan hjälpa dig att lista alla arknamn i en vänster ruta vertikalt och snabbt och enkelt navigera till det specifika arket.

När du har installerat Kutools för Excel, gör så här:

1. Klicka Kutools > Navigering, se skärmdump:

2. I den utökade Navigering fönster, klicka Arbetsbok och ark ikon, alla öppnade arbetsböcker listas i den översta listrutan, och alla synliga ark i arbetsboken visas i den nedre listrutan, se skärmdump:

3. Och nu kan du gå till arket bara genom att klicka på arknamnet från den vänstra rutan. Och när du tar bort, infogar eller byter namn på ett arbetsblad kommer arklistan i rutan att uppdateras dynamiskt.

tips: Som standard visas inte de dolda arken i navigeringsfönstret, om du vill visa de dolda arken behöver du bara klicka på Växla för att visa / dölja alla dolda kalkylblad klickar du på den här ikonen igen för att dölja det dolda arket omedelbart.

Bästa kontorsproduktivitetsverktyg

Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50 + Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

kte-flik 201905


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations