Cum se creează automat un cuprins pentru toate foile și actualizările?
Să presupunem că aveți un registru de lucru care conține sute de foi de lucru, pentru a naviga la o anumită foaie din mai multe foi, poate provoca dureri de cap pentru majoritatea dintre noi. În acest caz, crearea unui cuprins pentru aceste foi de lucru vă poate ajuta să mergeți la o anumită foaie rapid și ușor. Acest tutorial va vorbi despre cum să creați un cuprins pentru toate foile și să actualizați automat tabelul atunci când introduceți, ștergeți sau schimbați numele foilor.
Creați un cuprins pentru toate foile și actualizările automat cu formule
Creați un cuprins pentru toate foile și actualizările automat cu un cod VBA
Creați un cuprins pentru toate foile și actualizările automat cu o funcție puternică
Creați un cuprins pentru toate foile și actualizările automat cu formule
În Excel, puteți crea un cuprins definind un nume de interval și făcând referire la numele într-o formulă, urmați următorii pași:
1. Introduceți o foaie nouă înaintea tuturor foilor în care doriți să creați cuprinsul și redenumiți-o după cum doriți.
2. Apoi apasa Formulă > Definiți numele, vezi captura de ecran:
3. În Nume nou caseta de dialog, specificați un nume Listă de foi în Nume si Prenume caseta, o puteți schimba în propria dvs. și apoi introduceți această formulă: = GET.WORKBOOK (1) & T (ACUM ()) în Se refera la casetă text, vezi captura de ecran:
4. Apoi apasa OK pentru a închide caseta de dialog.
5. Acum, mergeți la noua foaie în care doriți să creați un cuprins, apoi introduceți următoarea formulă într-o celulă goală:
6. Apoi trageți mânerul de umplere în jos până la celule până când sunt afișate celule goale și toate numele foilor (inclusiv foile ascunse) din registrul de lucru curent au fost listate după cum se arată mai jos:
7. Apoi, ar trebui să creați hyperlinkuri pentru conținutul tabelului, vă rugăm să utilizați formula de mai jos:
8. Acum, când faceți clic pe textul hyperlinkului, acesta va merge la acea foaie imediat. Și dacă introduceți o foaie nouă, ștergeți o foaie sau schimbați numele foii, conținutul tabelului va fi actualizat automat.
- 1. Cu această metodă, toate foile ascunse sunt afișate și în conținutul tabelului.
- 2. Ar trebui să salvați fișierul ca Cartea de lucru Excel Macro-Enabled format, în acest fel, când deschideți acest fișier data viitoare, formulele pot funcționa bine.
Creați un cuprins pentru toate foile și actualizările automat cu un cod VBA
Uneori, nu trebuie să afișați foile ascunse în conținutul tabelului. Pentru a rezolva această problemă, următorul cod VBA vă poate face o favoare.
1. Introduceți o foaie nouă înaintea tuturor foilor în care doriți să creați cuprinsul și redenumiți-o după cum doriți. Apoi, faceți clic dreapta pe fila foii și alegeți Afișați codul din meniul contextual, vezi captura de ecran:
2. În deschise Microsoft Visual Basic pentru aplicații fereastra, copiați și inserați codul de mai jos în fereastra de cod al foii:
Cod VBA: creați automat un cuprins pentru toate foile și actualizările
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. Apoi, apăsați F5 cheie pentru a rula acest cod, iar conținutul tabelului este creat imediat în noua foaie de lucru, toate foile ascunse nu se vor afișa în conținutul tabelului, vezi captura de ecran:
4. Formular acum, la ștergerea, inserarea sau redenumirea foii, conținutul tabelului va fi actualizat dinamic.
Creați un cuprins pentru toate foile și actualizările automat cu o funcție puternică
Dacă aveţi Kutools pentru Excel, ict Panou de navigare vă poate ajuta să enumerați toate numele foilor într-un panou din stânga pe verticală și să navigați la foaia specifică rapid și ușor.
După instalare Kutools pentru Excel, vă rugăm să faceți acest lucru:
1. Clic Kutools > Navigare, vezi captura de ecran:
2. În extins Navigare fereastră, faceți clic pe Caiet de lucru și foaie pictograma, toate registrele de lucru deschise sunt listate în caseta cu listă de sus și toate foile vizibile din registrul de lucru sunt afișate în caseta cu listă de jos, vezi captura de ecran:
3. Și acum, puteți merge la foaie doar făcând clic pe numele foii din panoul din stânga. Și când ștergeți, inserați sau redenumiți o foaie, lista de foi din panou va fi actualizată dinamic.
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!