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

Se si dispone di una cartella di lavoro di grandi dimensioni che contiene alcuni fogli di lavoro nascosti, ora è necessario elencare tutti i fogli visibili e nascosti separatamente in un foglio di lavoro come mostrato nella seguente schermata. 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 farti un favore, per favore fai come segue:

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Modulie incolla il codice seguente nel file Moduli Finestra.

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

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 premere F5 chiave per eseguire questo codice, tutti i fogli visibili, nascosti e molto nascosti sono elencati in un nuovo foglio separatamente come mostrato nella seguente schermata:

Elenca tutti i fogli visibili in Excel con Kutools per Excel

Se si dispone di Kutools for Excel, Con la sua Crea un elenco di nomi di fogli è possibile elencare rapidamente tutti i fogli visibili della cartella di lavoro corrente con collegamenti ipertestuali a ciascuna scheda.

Dopo l'installazione Kutools for Excel, si prega di fare come segue:

1. Clic Kutools Plus > Foglio di lavoro > Crea un elenco di nomi di fogli, vedi screenshot:

2. Nel Crea un elenco di nomi di fogli la finestra di dialogo:

(1.) Seleziona Contiene un elenco di collegamenti ipertestuali sotto il Stili di indice del foglio sezione;

(2.) Immettere un nome di foglio di lavoro per l'indice del foglio.

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

(4.) Specificare quante colonne si desidera visualizzare i nomi del foglio di lavoro nell'indice del foglio.

3. E poi clicca Ok pulsante, tutti i fogli visibili sono stati elencati in un nuovo foglio escludono i fogli nascosti, vedi screenshot:

Fai clic su Scarica e prova gratuita Kutools per Excel adesso!