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.
| Kutools for Excel : con oltre 300 utili componenti aggiuntivi di Excel, da provare gratuitamente senza limitazioni in 30 giorni. |
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!
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
