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 > Moduloe incolla il codice seguente nel file Modulo 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 ora!
I migliori strumenti per la produttività in ufficio
Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%
- Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
- Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
- Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
- Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
- Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
- Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
- Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
- Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
- Più di 300 potenti funzionalità. Supporta Office/Excel 2007-2021 e 365. Supporta tutte le lingue. Facile implementazione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il 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!
