Ugrás a tartalomra

Hogyan lehet automatikusan tartalomjegyzéket készíteni az összes laphoz és frissítéshez?

Tételezzük fel, hogy van egy munkafüzetünk, amely több száz munkalapot tartalmaz, és ha több lap közül egy adott lapra navigálunk, az legtöbbünknek fejfájást okozhat. Ebben az esetben, ha ezekhez a munkalapokhoz tartalomjegyzéket készít, az segíthet abban, hogy gyorsan és egyszerűen lépjen az adott lapra. Ez az oktatóanyag arról szól, hogyan hozhat létre tartalomjegyzéket az összes laphoz, és hogyan frissítheti a táblázatot automatikusan a lapnevek beszúrásakor, törlésekor vagy módosításakor.

Hozzon létre egy tartalomjegyzéket az összes laphoz, és frissítse automatikusan képletekkel

Hozzon létre egy tartalomjegyzéket minden laphoz és frissítéshez automatikusan VBA-kóddal

Hozzon létre automatikusan tartalomjegyzéket minden laphoz és frissítéshez egy hatékony funkcióval


Hozzon létre egy tartalomjegyzéket az összes laphoz, és frissítse automatikusan képletekkel

Az Excelben tartalomjegyzéket hozhat létre egy tartománynév meghatározásával, és a név képletben való hivatkozásával, kérjük, tegye a következőket:

1. Szúrjon be egy új lapot minden lap elé, ahol létre kívánja hozni a tartalomjegyzéket, és nevezze át szükség szerint.

2. Ezután kattints a gombra Képlet > Definiálja a nevet, lásd a képernyőképet:

3. Az Új név párbeszédpanelen adjon meg egy nevet Laplista be a Név mezőbe, módosíthatja a sajátjára, majd írja be a következő képletet: = GET.MUNKAKÖNYV (1) & T (MOST ()) be a Utal rá szövegdoboz, lásd a képernyőképet:

4. Ezután kattints a gombra OK gombot a párbeszédpanel bezárásához.

5. Most lépjen az új lapra, ahol tartalomjegyzéket szeretne létrehozni, majd írja be a következő képletet egy üres cellába:

=IFERROR(INDEX(MID(Sheetlist,FIND("]",Sheetlist)+1,255),ROWS($A$2:A2)),"")
Megjegyzések: A fenti képletben Laplista a 2. lépésben létrehozott tartománynév.

6. Ezután húzza le a kitöltő fogantyút a cellákra, amíg az üres cellák meg nem jelennek, és az aktuális munkafüzet összes lapneve (beleértve a rejtett lapokat is) az alábbi képernyőképen látható módon meg nem jelenik:

7. Ezután hozzon létre hiperhivatkozásokat a táblázat tartalmához, használja az alábbi képletet:

=HYPERLINK("#'"&A2&"'!A1","Ugrás a lapra")
Megjegyzések: A fenti képletben A2 a cella, amely tartalmazza a lap nevét, és A1 az a cella, ahová a lapon ugrani szeretne. Például, ha rákattint a hiperhivatkozás szövegére, megkeresi az adott lap A1 celláját.

8. Most, amikor rákattint a hiperhivatkozás szövegére, az azonnal az adott lapra kerül. Ha pedig új lapot szúr be, töröl egy lapot vagy megváltoztatja a lap nevét, a táblázat tartalma automatikusan frissül.

Megjegyzések:
  • 1. Ezzel a módszerrel minden rejtett lap megjelenik a táblázat tartalmában is.
  • 2. A fájlt úgy kell mentenie Excel makró-engedélyezett munkafüzet formátumban, így amikor legközelebb megnyitja ezt a fájlt, a képletek jól működhetnek.

Hozzon létre egy tartalomjegyzéket minden laphoz és frissítéshez automatikusan VBA-kóddal

Néha nem kell megjelenítenie a rejtett lapokat a tartalomjegyzékben. A probléma megoldásához a következő VBA-kód tehet egy szívességet.

1. Szúrjon be egy új lapot minden lap elé, ahol létre kívánja hozni a tartalomjegyzéket, és nevezze át szükség szerint. Ezután kattintson jobb gombbal a lapfülre, és válassza ki Kód megtekintése a helyi menüből lásd a képernyőképet:

2. A nyitottban Microsoft Visual Basic for Applications ablakban másolja ki és illessze be az alábbi kódot a lapkód ablakba:

VBA-kód: Automatikusan hozzon létre egy tartalomjegyzéket az összes laphoz és frissítéshez

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. Ezután nyomja meg a gombot F5 gombot a kód futtatásához, és a táblázat tartalma egyszerre jön létre az új munkalapon, az összes rejtett lap nem jelenik meg a táblázat tartalmában, lásd a képernyőképet:

4. Űrlap most a lap törlésekor, beszúrásakor vagy átnevezésekor a táblázat tartalma dinamikusan frissül.

Megjegyzések: Az Excel fájlt más néven is el kell mentenie Excel makró-engedélyezett munkafüzet formátumban, hogy a kód sikeresen futhasson, amikor legközelebb megnyitja a munkafüzetet.

Hozzon létre automatikusan tartalomjegyzéket minden laphoz és frissítéshez egy hatékony funkcióval

Ha van Kutools az Excel számára, annak Navigációs ablak Segítségével az összes lap nevét függőlegesen listázhatja egy bal oldali ablaktáblában, és gyorsan és egyszerűen navigálhat az adott lapra.

Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:

1. Kattints Kutools > Navigáció, lásd a képernyőképet:

2. A kibővített Navigáció tetején kattintson a gombra Munkafüzet és lap ikonra, az összes megnyitott munkafüzet a felső listamezőben, a munkafüzetben lévő összes látható lap pedig az alsó listamezőben jelenik meg, lásd a képernyőképet:

3. Most pedig a bal oldali ablaktáblában a munkalap nevére kattintva léphet a munkalapra. Ha pedig töröl, beszúr vagy átnevez egy lapot, a panelen lévő laplista dinamikusan frissül.

tippek: Alapértelmezés szerint a rejtett lapok nem jelennek meg a navigációs ablakban, ha meg szeretné jeleníteni a rejtett lapokat, csak kattintson a Váltás az összes rejtett munkalap megjelenítéséhez / elrejtéséhez ikonra, kattintson újra erre az ikonra a rejtett lap azonnali elrejtéséhez.

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
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