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: