Gå til hovedindhold

Hvordan oprettes en liste over alle regnearknavne fra en projektmappe?

Antag, at du har en projektmappe med flere regneark, nu vil du liste alle arknavne i den aktuelle projektmappe. Er der nogen hurtig metode til at oprette en liste over disse arknavne i Excel uden at skrive dem en efter en? Denne vejledning giver instruktioner om, hvordan man viser regnearknavne i Excel.

Få en liste over alle regnearknavne fra en projektmappe dynamisk med formler

Få en liste over alle regnearknavne fra en projektmappe med en nyttig funktion

Få en liste over alle regnearknavne fra en projektmappe med VBA-kode


Få en liste over alle regnearknavne fra en projektmappe dynamisk med formler

I Excel kan du definere et rækkeviddenavn og derefter anvende en formel til at liste alle arknavne fra den aktuelle projektmappe. Benyt følgende trin:

1. Gå til klik Formula > Navn Manager, se skærmbillede:

2. I Navn Manager dialogboksen, klik Ny knap, se skærmbillede:

3. I poppet ud Nyt navn dialog, skal du angive et navn i Navn tekstfelt, og kopier derefter nedenstående formel til Hentyder til tekstboks, se skærmbillede:

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

4. Klik derefter på OK > Luk For at lukke dialogbokse skal du nu gå til et ark, hvor du vil liste alle arknavne, og indtast derefter følgende formel i en tom celle:

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

Bemærk: I ovenstående formel Arknavne er det rækkevidde, du er crested i trin 3.

5. Og træk derefter fyldhåndtaget ned til cellerne, når tomme celler vises, og nu er alle arknavne på den aktuelle projektmappe angivet som vist nedenstående skærmbillede:

6. Hvis du vil oprette hyperlinket til hvert ark, skal du bruge nedenstående formel:

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

Bemærk: I ovenstående formel A2 er den celle, der indeholder arknavnet, og A1 er den celle, hvor du vil have den aktive celle. For eksempel, hvis du klikker på hyperlinkteksten, finder den celle A1 på arket.

7. Når du nu klikker på hyperlinkteksten, fører det dig til det ark, se nedenstående demo:

Tips:
  • 1. Med ovenstående formler vises de oprettede arknavne dynamisk, når du ændrer arknavnet i projektmappen, opdateres indeksarknavnet automatisk.
  • 2. Du skal gemme filen som Excel-makroaktiveret projektmappe format, hvis du vil have, at formlerne fungerer godt, efter at filen er lukket og genåbnet.

Få en liste over alle regnearknavne fra en projektmappe med en nyttig funktion

Med Opret liste over arknavne hjælpeprogrammet til tredjeparts-tilføjelsesprogrammet Kutools til Excel, kan du oprette en liste over regnearknavne med et enkelt klik og linke til hvert regneark med hyperlink.

Bemærk:At anvende dette Opret liste over arknavneFor det første skal du downloade Kutools til Excel, og anvend derefter funktionen hurtigt og nemt.

Efter installation Kutools til Excelskal du gøre som dette:

1. Klik Kutools Plus > Arbejdsark > Opret liste over arknavne, se skærmbillede:

2. I Opret liste over arknavne dialogboks, skal du angive følgende indstillinger:

(1.) Vælg ark indeks stilarter du kan lide, kan du oprette regnearknavne med hyperlinks eller med makroknapper.

(2.) Indtast regnearknavne for arkindeks.

(3.) Angiv placeringen af ​​regnearksindekset.

(4.) Angiv, hvor mange kolonner du vil bruge i det nye regneark til at vise regnearknavne.

3. Når du er færdig med indstillingerne, skal du klikke på OK. Alle regnearknavne er opført med links i et nyt regneark i den aktuelle projektmappe. Se skærmbillede:

regnearknavne med hyperlinks regnearknavne med makroknapper
Tip: For at bruge denne funktion skal du installere Kutools til Excel først, tak klik for at downloade og få en 30-dages gratis prøveperiode nu.

Få en liste over alle regnearknavne fra en projektmappe med VBA-kode

1. Hold nede ALT + F11 tasterne, og det åbner Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende makro i Moduler Vindue.

VBA: Liste over alle regnearknavne med hyperlinks i et nyt regneark:

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. Tryk på F5 nøglen til at køre denne makro. Nu er alle regnearksnavnene i den aktive projektmappe blevet opført i et nyt regneark kaldet Index, og arknavnene er også knyttet til hvert ark, se skærmbillede:

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