La seguente macro scorre ogni foglio in una cartella di lavoro e scrive il nome della scheda di ogni foglio in sequenza su un foglio scelto. Questo potrebbe essere utile per un rapido elenco di ogni foglio in una cartella di lavoro con molti fogli.
Elenca tutti i fogli di lavoro in una cartella di lavoro
Per utilizzare la macro basta sostituire la parola Foglio1 (appare due volte) nel codice con il nome della scheda in cui si desidera ottenere i risultati. Assicurati che non ci siano informazioni importanti nella scheda di output perché cancella i dati prima di scriverci.
| 123456789101112131415 | Fogli sottolista()Dim ws come foglio di lavoroDim x As Integerx = 1Fogli("Foglio1").Intervallo("A:A").CancellaPer ogni ws nei fogli di lavoroFogli("Foglio1").Celle(x, 1) = ws.Nomex = x + 1Avanti wFine sottotitolo |
