In cartelle di lavoro complesse che contengono molti fogli di lavoro, non è insolito avere bisogno di un elenco dei diversi fogli di lavoro. Una volta che hai l’elenco, puoi stamparlo o usarlo in qualche altro modo, ad esempio per creare un sommario per la tua cartella di lavoro. La seguente macro, GetSheets, recupera rapidamente i nomi dei fogli di lavoro nella cartella di lavoro corrente. Li inserisce nel foglio di lavoro corrente, iniziando dalla cella A1 e poi procedendo verso il basso.

Sub GetSheets()

Dim j As Integer     Dim NumSheets As Integer

NumSheets = Sheets.Count     For j = 1 To NumSheets         Cells(j, 1) = Sheets(j).Name     Next j End Sub

Questa macro sovrascriverà qualsiasi cosa in una cella di cui ha bisogno nella cartella di lavoro corrente, quindi dovresti assicurarti di non aver bisogno di nulla nella colonna A del foglio di lavoro. Se non vuoi sovrascrivere nulla, assicurati di creare un nuovo foglio di lavoro e quindi eseguire la macro da quel foglio di lavoro.

Una volta creato l’elenco dei fogli di lavoro, è possibile formattarlo come desiderato e quindi stamparlo.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (2216) si applica a Microsoft Excel 97, 2000, 2002 e 2003. Puoi trovare una versione di questo suggerimento per l’interfaccia a nastro di Excel (Excel 2007 e versioni successive) qui:

Stampa di un elenco di fogli di lavoro.