Hvordan liste alle synlige eller skjulte ark fra projektmappen?

Hvis du har en stor projektmappe, der indeholder nogle skjulte regneark, skal du nu anføre alle synlige og skjulte ark separat i et regneark som vist nedenstående skærmbillede. Denne artikel vil jeg tale om, hvordan man viser alle synlige og skjulte ark i Excel.

Liste over alle synlige og skjulte ark separat med VBA-kode

Liste over alle synlige ark i Excel med Kutools til Excel

Liste over alle synlige og skjulte ark separat med VBA-kode

For at liste de synlige og skjulte fanenavne i et regneark, kan følgende VBA-kode muligvis gøre dig en tjeneste, gør venligst som dette:

1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

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

VBA-kode: Liste over alle synlige og skjulte ark separat:

Sub NameSheets()
'Updateby Extendoffice
    Dim x As Long, y As Long, z As Long
    Dim ws As Worksheet
    Dim shtCnt As Integer
    x = 1
    y = 1
    z = 1
    shtCnt = ThisWorkbook.Sheets.Count
    On Error Resume Next
    Application.ScreenUpdating = False
    Sheets.Add After:=Sheets(Sheets.Count)
    For i = 1 To shtCnt
        If Sheets(i).Visible = xlSheetHidden Then
            Cells(x, 2) = Sheets(i).Name
            x = x + 1
        End If
        If Sheets(i).Visible = xlSheetVisible Then
           Cells(y, 1) = Sheets(i).Name
            y = y + 1
        End If
        If Sheets(i).Visible = xlSheetVeryHidden Then
            Cells(z, 3) = Sheets(i).Name
            z = z + 1
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

3. Tryk derefter på F5 nøgle til at køre denne kode, alle synlige, skjulte, meget skjulte ark vises separat i et nyt ark som følgende skærmbillede vist:

Liste over alle synlige ark i Excel med Kutools til Excel

Hvis du har Kutools til Excel, Med Opret liste over arknavne funktion, kan du hurtigt liste alle synlige ark i den aktuelle projektmappe med hyperlinks til hver fane.

Efter installation Kutools til Excelskal du gøre som følger:

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

2. I Opret liste over arknavne dialog boks:

(1.) Vælg Indeholder en liste over hyperlinks under Arkindeksstilarter afsnit;

(2.) Indtast et regnearknavn til arkindeks.

(3.) Angiv placeringen af ​​regnearksindekset.

(4.) Angiv, hvor mange kolonner du vil have vist regnearknavne i arkindekset.

3. Og klik derefter på Ok knap, alle synlige ark er opført i et nyt ark ekskluderer de skjulte ark, se skærmbillede:

Klik på Download og gratis prøveversion Kutools til Excel nu!

---

De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

• Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
• Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
• Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
• Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
• Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
• Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
• Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
• Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
• Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.

Læs mere ... Gratis download... Køb... 

---

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

• Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
• Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
• Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!

Læs mere ... Gratis download... Køb...