Come creare un elenco di tutti i fogli di lavoro nella cartella di lavoro attiva utilizzando una macro VBA
Vuoi creare una tabella di tutti i fogli nella cartella di lavoro attiva? Usa la seguente macro:
Sub ShowTablesheets ()
Dim Row quanto più a lungo
Dim Sheet come foglio di lavoro
Dim Nuovo foglio come foglio di lavoro
Imposta Neublatt = ActiveWorkbook.Worksheets.Add
Riga = 1
Per ogni foglio in ActiveWorkbook.Worksheets
If Foglio.Nome Nuovo Foglio.Nome Allora
Nuovo foglio.Celle (riga, 1) = foglio.nome
Linea = linea + 1
Finisci se
Foglio successivo
Fine sottotitolo
La macro crea un nuovo foglio di lavoro nella cartella di lavoro attiva in cui vengono salvati i nomi di tutti i fogli di lavoro. Solo il nuovo foglio di riepilogo è escluso dall'elenco. La figura seguente mostra come può essere il risultato:
Per inserire la macro, apri l'editor VBA in Excel utilizzando la combinazione di tasti ALT F11. In questo editor, seleziona il comando INSERISCI - MODULO e inserisci la macro. Si avvia la macro da Excel utilizzando la combinazione di tasti ALT F8.
