Come elencare tutti i fogli visibili o nascosti da una cartella di lavoro?

Se hai una cartella di lavoro di grandi dimensioni che contiene alcuni fogli di lavoro nascosti, ora devi elencare separatamente tutti i fogli visibili e nascosti in un foglio di lavoro, come mostrato nello screenshot seguente. In questo articolo, parlerò di come elencare tutti i fogli visibili e nascosti in Excel.

Elenca tutti i fogli visibili e nascosti separatamente con il codice VBA

Elenca tutti i fogli visibili in Excel con Kutools per Excel

Elenca tutti i fogli visibili e nascosti separatamente con il codice VBA

Per elencare i nomi delle schede visibili e nascoste in un foglio di lavoro, il seguente codice VBA potrebbe esserti utile, procedi come segue:

1. Tieni premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo, e incolla il seguente codice nella finestra del Modulo.

Codice VBA: Elenca tutti i fogli visibili e nascosti separatamente:

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. Quindi premi il tasto F5 per eseguire questo codice, tutti i fogli visibili, nascosti, molto nascosti sono elencati in un nuovo foglio separatamente, come mostrato nello screenshot seguente:

Elenca tutti i fogli visibili in Excel con Kutools per Excel

Se hai Kutools per Excel, con la sua funzione Crea tabella di collegamento, puoi elencare rapidamente tutti i fogli visibili della cartella di lavoro corrente con collegamenti ipertestuali a ciascuna scheda.

Dopo aver installato Kutools per Excel, procedi come segue:

1. Clicca su Kutools Plus > Foglio di lavoro > Crea tabella di collegamento, vedi screenshot:

2. Nella finestra di dialogo Crea tabella di collegamento:

(1.) Seleziona Crea collegamenti ipertestuali sotto la sezione Stile.

(2.) Inserisci un nome per il foglio di lavoro dell'indice.

(3.) Specifica la posizione dell'indice del foglio di lavoro.

(4.) Specifica quante colonne vuoi utilizzare per visualizzare i nomi dei fogli di lavoro nell'indice.

3. Quindi clicca sul pulsante Ok, tutti i fogli visibili sono stati elencati in un nuovo foglio escludendo i fogli nascosti, vedi screenshot: