Ha feltételezzük, hogy van egy több munkalapot tartalmazó munkafüzete, most fel akarja sorolni az összes munkanevet az aktuális munkafüzetben. Van-e gyors módszer a tézisek munkanapjainak névsorának Excel-ben történő létrehozására anélkül, hogy egyesével be kellene gépelni őket? Ez az oktatóanyag útmutatást nyújt a munkalapok nevének Excelbe való felsorolásához.

Dinamikusan képletekkel szerezzen listát az összes munkalap nevéről

Hasznos funkcióval rendelkező munkafüzet összes munkalap nevének listája

Szerezzen egy listát az összes munkalap nevéről egy VBA kóddal ellátott munkafüzetből

Dinamikusan képletekkel szerezzen listát az összes munkalap nevéről

Az Excelben meghatározhat egy tartománynevet, majd alkalmazhat egy képletet az aktuális munkafüzet összes lapnevének felsorolásához, kérjük, tegye a következőket:

1. Kattintson a gombra Képlet > Névkezelő, lásd a képernyőképet:

2. Az Névkezelő párbeszédpanelen kattintson a gombra Új gomb, lásd a képernyőképet:

3. A kiugrott Új név párbeszédpanelen adjon meg egy nevet a Név szövegmezőbe, majd másolja az alábbi képletet a Utal rá szövegmező, lásd a képernyőképet:

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

4. Ezután kattintson OK > közel A párbeszédpanelek bezárásához most lépjen egy lapra, ahol fel szeretné sorolni az összes lapnevet, majd írja be a következő képletet egy üres cellába:

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

Megjegyzések: A fenti képletben Lapnevek az a tartománynév, amelyet a 3. lépésben beállítottál.

5. Ezután húzza lefelé a kitöltő fogantyút a cellákra, amikor üres cellák jelennek meg, és most az aktuális munkafüzet összes lapnevét felsorolta az alábbi képernyőképen:

6. Ha minden egyes laphoz létre kívánja hozni a hiperhivatkozást, használja az alábbi képletet:

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

Megjegyzések: A fenti képletben A2 a cella, amely tartalmazza a lap nevét, és A1 az a cella, ahol az aktív cellát szeretné elhelyezni. Például, ha rákattint a hiperhivatkozás szövegére, megkeresi a lap A1 celláját.

7. Most, amikor rákattint a hiperhivatkozás szövegére, az arra a lapra visz, lásd alább a bemutatót:

Hasznos funkcióval rendelkező munkafüzet összes munkalap nevének listája

Aktivitáskövető Létrehozza a munkalapok listáját a harmadik fél bővítményének segédprogramja Kutools az Excel számára, egy kattintással létrehozhat egy munkalap-nevek listáját, és hiperhivatkozással linkelheti az egyes munkalapokat.

Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:

1. Kattints Kutools Plus > Munkalap > Létrehozza a munkalapok listáját, lásd a képernyőképet:

2. Az Létrehozza a munkalapok listáját párbeszédpanelen adja meg a következő beállításokat:

(1.) Válasszon lap index stílusok tetszik, létrehozhatja a munkalap nevét hiperhivatkozásokkal vagy makro gombokkal. (2.) Írja be a munkalap nevét a lapindexhez. (3.) Adja meg a munkalap index helyét. (4.) Adja meg, hogy az új munkalapon mennyi oszlopot kíván használni a munkalap nevének megjelenítéséhez.

3. A beállítások elvégzése után kattintson a gombra OK. Az összes munkalap neve hivatkozásokkal szerepel az aktuális munkafüzet új munkalapján. Lásd a képernyőképet:

munkalap nevek hiperhivatkozásokkal	munkalap nevek makró gombokkal

Szerezzen egy listát az összes munkalap nevéről egy VBA kóddal ellátott munkafüzetből

1. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő makrót a Modulok Ablak.

VBA: Sorolja fel az összes munkalap nevét hiperhivatkozásokkal egy új munkalapon:

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. megnyomni a F5 kulcs a makró futtatásához. Mostantól az aktív munkafüzetben lévő összes munkalapnév egy új, Index nevű munkalapon szerepel, és a lapnevek is hozzá vannak kapcsolva az egyes lapokhoz, lásd a képernyőképet:

Kapcsolódó cikkek