Ugrás a tartalomra

Hogyan készítsünk egy listát az összes munkalap nevéről egy munkafüzetből?

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:

tippek:
  • 1. A fenti képletekkel a létrehozott lapnevek dinamikusan kerülnek felsorolásra, amikor megváltoztatja a lap nevét a munkafüzetben, az indexlap neve automatikusan frissül.
  • 2. A fájlt úgy kell mentenie Excel makró-engedélyezett munkafüzet formátumot, ha azt szeretné, hogy a képletek jól működjenek a fájl bezárása és újbóli megnyitása után.

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.

Jegyzet:Ennek alkalmazásához Létrehozza a munkalapok listáját, először is le kell töltenie a Kutools az Excel számára, majd gyorsan és egyszerűen alkalmazza a funkciót.

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
típus: A funkció használatához telepítenie kell Kutools az Excel számára először, kérem kattintson a letöltéshez, és 30 napos ingyenes próbaverziót kap most.

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:

Comments (19)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
First, thanks to the author. And adding the Czech version.

tp 3. =O.KNIZE(1)&T(NYNÍ())
tp 4. =IFERROR(INDEX(ČÁST(nazvylistu;NAJÍT("]";nazvylistu)+1;255);ŘÁDKY($A$2:A4));"")
This comment was minimized by the moderator on the site
Hello,

je viens de tester la méthode via macros (dynamique avec formules) et ça marche au poil donc je tiens vraiment à remercier l'auteur de cet article parce que ça va vraiment m'aider dans mon travail ! Juste, je me permet de corriger les formules pour la version française. Et alors je ne sais pas si c'est parce que je suis sous la version 2019 mais Excel rouspète quand il n'y a pas d'argument en 3ème position de la fonction STXT ("MID" en version anglaise) donc obligé d'en rajouter un. Donc voilà ce que ça donne :

=LIRE.CLASSEUR(1)&T(MAINTENANT())

=SIERREUR(INDEX(STXT(nomsFeuilles;TROUVE("]";nomsFeuilles)+1,255;20);LIGNES($A$2:A2));"")

Bon travail à tous ! ;-)
This comment was minimized by the moderator on the site
Hello, Gizmil
Thank you for your comment, there are some functions are only available for English in Excel.
Your formula may help others.
Thanks again!
This comment was minimized by the moderator on the site
I close and open my document and all values in my sheet names column are all gone and blank but still the formula is there. I tried entering the same formula but it doesn't show the value anymore
This comment was minimized by the moderator on the site
Hello, Anne,
Sorrry for replying late, after creating the range names and formulas, you should save the workbook as Excel Macro-Enabled Workbook format, so next time, when you open the Excel file,the formulas can work well.
Please try, hope it can help you!
This comment was minimized by the moderator on the site
I tried this one and it works. But when I close and open the file again all the values in my sheet names are blank and gone but the formula is still there. I tried enteing the same formula again but it doesn't show the value anymore
This comment was minimized by the moderator on the site
BRILLIANT!! Thank you so much! 😊
This comment was minimized by the moderator on the site
Causes problems when document protection is enabled by email or corporate policy
This comment was minimized by the moderator on the site
Thanks so much, this worked great.
This comment was minimized by the moderator on the site
Works great!! Thank you!!!!
This comment was minimized by the moderator on the site
sooooo helpful, works as expected!!!!! Thanks
This comment was minimized by the moderator on the site
THANK YOU SO MUCH! I freaking love your website. In a matter of minutes I've had a ton of time saved with two sections of this site including this one. Love it!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations