Salt la conținutul principal

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ă:

=IFERROR(INDEX(MID(Sheetlist,FIND("]",Sheetlist)+1,255),ROWS($A$2:A2)),"")
notițe: În formula de mai sus, Listă de foi este numele intervalului pe care l-ați creat la pasul 2.

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:

=HYPERLINK("#'"&A2&"'!A1","Accesați foaia")
notițe: În formula de mai sus, A2 este celula care conține numele foii și A1 este celula la care doriți să săriți din acea foaie. De exemplu, dacă faceți clic pe textul hyperlinkului, acesta va localiza celula A1 a acelei foi.

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.

notițe:
  • 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.

notițe: Ar trebui să salvați și fișierul Excel ca Cartea de lucru Excel Macro-Enabled format pentru a menține codul să ruleze cu succes când deschideți registrul de lucru data viitoare.

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.

sfaturi: Implicit, foile ascunse nu sunt afișate în panoul de navigare, dacă doriți să afișați foile ascunse, trebuie doar să faceți clic pe Comutați pentru a afișa / ascunde toate foile de lucru ascunse pictograma, faceți clic din nou pe această pictogramă pentru a ascunde imediat foaia ascunsă.

Cele mai bune instrumente de productivitate de birou

🤖 Kutools AI Aide: Revoluționați analiza datelor pe baza: Execuție inteligentă   |  Generați codul  |  Creați formule personalizate  |  Analizați datele și generați diagrame  |  Invocați funcțiile Kutools...
Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Î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...

Descriere


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!
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