Hur listar jag alla synliga eller dolda ark från arbetsboken?

Om du har en stor arbetsbok som innehåller några dolda kalkylblad måste du nu lista alla synliga och dolda ark separat i ett kalkylblad enligt följande skärmbild. Den här artikeln kommer jag att prata om hur man listar alla synliga och dolda ark i Excel.

Lista alla synliga och dolda ark separat med VBA-kod

Lista alla synliga ark i Excel med Kutools för Excel

Lista alla synliga och dolda ark separat med VBA-kod

För att lista de synliga och dolda flikarna i ett kalkylblad kan följande VBA-kod göra dig en tjänst, vänligen gör så här:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.

VBA-kod: Lista alla synliga och dolda 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. Tryck sedan på F5 nyckel för att köra den här koden, alla synliga, dolda, mycket dolda ark listas i ett nytt ark separat enligt följande skärmdump:

Lista alla synliga ark i Excel med Kutools för Excel

Om du Kutools för Excel, med dess Skapa lista över arknamn funktionen kan du snabbt lista alla synliga ark i aktuell arbetsbok med hyperlänkar till varje flik.

När du har installerat Kutools för Excel, gör så här:

1. Klicka Kutools Plus > Arbetsblad > Skapa lista över arknamn, se skärmdump:

2. I Skapa lista över arknamn dialog ruta:

(1.) Välj Innehåller en lista med hyperlänkar under Bladindexstilar sektion;

(2.) Ange ett kalkylbladsnamn för arkindex.

(3.) Ange platsen för kalkylbladets index.

(4.) Ange hur många kolumner du vill visa kalkylbladsnamnen i arkindexet.

3. Och klicka sedan på Ok knappen, alla synliga ark har listats i ett nytt ark exklusive de dolda arken, se skärmdump: