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:
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:
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.
- 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.
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.
A legjobb irodai hatékonyságnövelő eszközök
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...
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!