Kako samodejno ustvariti kazalo za vse liste in posodobitve?
Če predpostavimo, da imate delovni zvezek, ki vsebuje na stotine delovnih listov, lahko navigacija do določenega lista med več listi povzroči glavobol večini od nas. V tem primeru vam lahko ustvarjanje kazala vsebine za te delovne liste pomaga hitro in enostavno iti na določen list. Ta vadnica bo govorila o tem, kako ustvariti kazalo vsebine za vse liste in samodejno posodobiti tabelo tudi pri vstavljanju, brisanju ali spreminjanju imen listov.
Ustvarite kazalo vsebine za vse liste in se samodejno posodablja s formulami
Ustvarite kazalo vsebine za vse liste in se samodejno posodablja s kodo VBA
Ustvarite kazalo vsebine za vse liste in se samodejno posodablja z zmogljivo funkcijo
Ustvarite kazalo vsebine za vse liste in se samodejno posodablja s formulami
V Excelu lahko ustvarite kazalo vsebine tako, da definirate ime obsega in se sklicujete na ime v formuli, sledite naslednjim korakom:
1. Pred vse liste, kjer želite ustvariti kazalo, vstavite nov list in ga po potrebi preimenujte.
2. Nato kliknite Formula > Določite ime, glej posnetek zaslona:
3. v Novo ime pogovornem oknu določite ime Seznam listov v Ime polje, ga lahko spremenite v svoje in nato vnesete to formulo: = GET.WORKBOOK (1) & T (ZDAJ ()) v Se nanaša na besedilo, glej posnetek zaslona:
4. Nato kliknite OK , da zaprete pogovorno okno.
5. Zdaj pojdite na nov list, kjer želite ustvariti kazalo vsebine, nato pa v prazno celico vnesite naslednjo formulo:
6. Nato povlecite ročico za polnjenje navzdol do celic, dokler se ne prikažejo prazne celice in vsa imena listov (vključno s skritimi listi) trenutnega delovnega zvezka niso navedena, kot je prikazano na spodnjem posnetku zaslona:
7. Nato ustvarite hiperpovezave za vsebino tabele, uporabite spodnjo formulo:
8. Zdaj, ko kliknete besedilo hiperpovezave, bo to takoj prešlo na ta list. In če vstavite nov list, izbrišete list ali spremenite ime lista, se bo vsebina tabele samodejno posodobila.
- 1. S to metodo so vsi skriti listi prikazani tudi v vsebini tabele.
- 2. Datoteko shranite kot Excelov delovni zvezek z omogočeno makro formatu, na ta način lahko formule dobro delujejo, ko naslednjič odprete to datoteko.
Ustvarite kazalo vsebine za vse liste in se samodejno posodablja s kodo VBA
Včasih vam ni treba prikazati skritih listov v vsebini tabele. Za rešitev te težave vam lahko uslugo naredi naslednja koda VBA.
1. Pred vse liste, kjer želite ustvariti kazalo, vstavite nov list in ga po potrebi preimenujte. Nato z desno miškino tipko kliknite zavihek lista in izberite Ogled kode v priročnem meniju si oglejte posnetek zaslona:
2. V odprti Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite spodnjo kodo v okno kode lista:
Koda VBA: ustvarite kazalo vsebine za vse liste in se samodejno posodobi
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. Nato pritisnite F5 za zagon te kode in vsebina tabele je ustvarjena naenkrat na novem delovnem listu, vsi skriti listi ne bodo prikazani v vsebini tabele, glejte posnetek zaslona:
4. Zdaj na obrazcu se bo ob brisanju, vstavljanju ali preimenovanju lista vsebina tabele dinamično posodabljala.
Ustvarite kazalo vsebine za vse liste in se samodejno posodablja z zmogljivo funkcijo
Če imate Kutools za Excel, njeno Podokno za krmarjenje vam lahko pomaga navesti vsa imena listov v levem podoknu navpično in se hitro in enostavno pomakniti do določenega lista.
Po namestitvi Kutools za Excel, naredite tako:
1. klik Kutools > ostalo, glej posnetek zaslona:
2. V razširjeni ostalo podokno, kliknite Delovni zvezek in list vsi odprti delovni zvezki so navedeni v zgornjem seznamskem polju, vsi vidni listi v delovnem zvezku pa so prikazani v spodnjem seznamskem polju, glejte posnetek zaslona:
3. In zdaj lahko greste na list tako, da kliknete ime lista v levem podoknu. In ko izbrišete, vstavite ali preimenujete list, se bo seznam listov v podoknu dinamično posodobil.
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!