Imaginați-vă că aveți un registru de lucru cu mai multe foi de lucru și doriți să enumerați automat toate numele foilor, completând cu hyperlinkuri pe care se poate face clic pentru a naviga la fiecare foaie corespunzătoare. Acest tutorial oferă metode rapide și eficiente pentru generarea unei liste de nume de foi de lucru în Excel.

Obțineți o listă cu toate numele foilor de lucru dintr-un registru de lucru dinamic cu formule

Obțineți o listă cu toate numele foilor de lucru dintr-un registru de lucru cu o caracteristică utilă

Obțineți o listă cu toate numele foilor de lucru dintr-un registru de lucru cu cod VBA

Obțineți o listă cu toate numele foilor de lucru dintr-un registru de lucru dinamic cu formule

În Excel, puteți defini un nume de interval și apoi aplicați o formulă pentru a lista toate numele foilor din registrul de lucru curent, vă rugăm să efectuați pașii următori:

1. Accesați clic Formulă > Manager nume, vezi captura de ecran:

2. În Manager nume casetă de dialog, faceți clic pe Nou buton, vezi captura de ecran:

3. În pop-out Nume nou , specificați un nume în Nume , apoi copiați formula de mai jos în Se refera la casetă text, vezi captura de ecran:

=GET.WORKBOOK(1)&T(NOW())

4. Apoi apasa OK > Închide pentru a închide casetele de dialog, acum, vă rugăm să mergeți la o foaie în care doriți să listați toate numele foilor, apoi introduceți următoarea formulă într-o celulă goală:

=IFERROR(INDEX(MID(Sheetnames,FIND("]",Sheetnames)+1,255),ROWS($A$2:A2)),"")

notițe: În formula de mai sus, Numele foilor este numele zonei în care sunteți crestat la pasul 3.

5. Și apoi trageți mânerul de umplere în jos în celule atunci când sunt afișate celule goale și acum, toate numele foilor din registrul de lucru curent au fost listate după cum se arată în imaginea de mai jos:

6. Dacă doriți să creați hyperlinkul pentru fiecare foaie, vă rugăm să utilizați formula de mai jos:

=HYPERLINK("#'"&A2&"'!A1","Go To Sheet")

notițe: În formula de mai sus, A2 este celula care conține numele foii și A1 este celula în care doriți să fie localizată celula activă. De exemplu, dacă faceți clic pe textul hyperlinkului, acesta va localiza celula A1 a foii.

7. Acum, când faceți clic pe textul hyperlinkului, acesta vă va duce la acea foaie, a se vedea mai jos demonstrația:

Obțineți o listă cu toate numele foilor de lucru dintr-un registru de lucru cu o caracteristică utilă

Cu Creați o listă de nume de foi utilitatea suplimentului terță parte Kutools pentru Excel, puteți crea o listă de nume de foi de lucru într-un singur clic și conectați la fiecare foaie de lucru cu hyperlink.

1. Clic Kutools Plus > Fisa de lucru > Creați o listă de nume de foi, vezi captura de ecran:

2. În Creați o listă de nume de foi caseta de dialog, vă rugăm să specificați următoarele setări:

(1.) Alegeți stiluri de index de foi doriți, puteți crea numele foilor de lucru cu hyperlinkuri sau cu butoane macro. (2.) Introduceți numele foilor de lucru pentru indexul foilor. (3.) Specificați locația indexului foii de lucru. (4.) Specificați câte coloane doriți să utilizați în noua foaie de lucru pentru a afișa numele foilor de lucru.

3. După terminarea setărilor, faceți clic pe OK. Toate numele foilor de lucru au fost listate cu linkuri într-o nouă foaie de lucru a registrului de lucru curent. Vedeți captura de ecran:

numele foilor de lucru cu hyperlinkuri	numele foilor de lucru cu butoane macro

Obțineți o listă cu toate numele foilor de lucru dintr-un registru de lucru cu cod VBA

1. Țineți apăsat butonul ALT + F11 tastele și deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următoarea macro în fișierul Module Fereastră.

VBA: enumeră toate numele foilor de lucru cu hyperlinkuri într-o nouă foaie de lucru:

Sub CreateIndex()
'updateby Extendoffice
    Dim xAlerts As Boolean
    Dim I  As Long
    Dim xShtIndex As Worksheet
    Dim xSht As Variant
    xAlerts = Application.DisplayAlerts
    Application.DisplayAlerts = False
    On Error Resume Next
    Sheets("Index").Delete
    On Error GoTo 0
    Set xShtIndex = Sheets.Add(Sheets(1))
    xShtIndex.Name = "Index"
    I = 1
    Cells(1, 1).Value = "INDEX"
    For Each xSht In ThisWorkbook.Sheets
        If xSht.Name <> "Index" Then
            I = I + 1
            xShtIndex.Hyperlinks.Add Cells(I, 1), "", "'" & xSht.Name & "'!A1", , xSht.Name
        End If
    Next
    Application.DisplayAlerts = xAlerts
End Sub

3. apasă pe F5 tasta pentru a rula această macrocomandă. Toate numele foilor de lucru din registrul de lucru activ sunt acum listate într-o nouă foaie de lucru numită „Index”, cu hyperlinkuri care navighează la fiecare foaie respectivă. Vedeți captura de ecran de mai jos:

Articole pe aceeași temă