Macro per scorrere tutti i fogli in una cartella di lavoro

Riepilogo

In questo articolo contiene un Visual Basic, Applications Edition di Microsoft macro (routine Sub) che consente di scorrere tutti i fogli della cartella di lavoro. Questa macro visualizza anche il nome di ogni foglio di lavoro.

Ulteriori informazioni

Microsoft fornisce esempi di programmazione illustrativo, senza alcuna garanzia espressa o implicita. Ciò include, ma non limitato a, le garanzie implicite di commerciabilità o idoneità per uno scopo particolare. In questo articolo si presuppone che si abbia familiarità con il linguaggio di programmazione in questione e gli strumenti utilizzati per creare ed eseguire la procedura di debug. I tecnici del supporto Microsoft possono spiegare la funzionalità di una particolare procedura, ma in nessun caso possono modificare questi esempi per fornire funzionalità aggiuntive o creare procedure atte a soddisfare specifiche esigenze. Per eseguire la macro di esempio, attenersi alla seguente procedura:

1. Digitare il seguente codice di macro in un nuovo foglio di modulo.

         Sub WorksheetLoop()         Dim WS_Count As Integer         Dim I As Integer         ' Set WS_Count equal to the number of worksheets in the active         ' workbook.         WS_Count = ActiveWorkbook.Worksheets.Count         ' Begin the loop.         For I = 1 To WS_Count            ' Insert your code here.            ' The following line shows how to reference a sheet within            ' the loop by displaying the worksheet name in a dialog box.            MsgBox ActiveWorkbook.Worksheets(I).Name         Next I      End Sub

2. Per eseguire la macro, posizionare il punto di inserimento nella riga che legge "Sub WorksheetLoop()" e premere F5.

La macro verrà scorrere la cartella di lavoro e visualizzare una finestra di messaggio con un nome di foglio di lavoro diverso ogni volta che si esegue il ciclo. Si noti che la macro verrà visualizzati solo i nomi di foglio di lavoro; non visualizzerà i nomi di altri tipi di fogli nella cartella di lavoro. È possibile anche scorrere in ciclo tutti i fogli di lavoro nella cartella di lavoro utilizzando un ciclo 'For Each'.

1. Immettere il seguente codice di macro in un nuovo foglio di modulo.

         Sub WorksheetLoop2()         ' Declare Current as a worksheet object variable.         Dim Current As Worksheet         ' Loop through all of the worksheets in the active workbook.         For Each Current In Worksheets            ' Insert your code here.            ' This line displays the worksheet name in a message box.            MsgBox Current.Name         Next      End Sub

2. Per eseguire la macro, posizionare il punto di inserimento nella riga che legge "Sub WorksheetLoop2()" e premere F5.

Questa macro funziona in modo identico alla macro WorksheetLoop, ad eccezione del fatto che utilizza un diverso tipo di ciclo per elaborare tutti i fogli di lavoro attiva.

Riferimenti

Per ulteriori informazioni sulla visualizzazione della Guida di Visual Basic, Applications Edition, vedere il seguente articolo della Microsoft Knowledge Base:

163435 VBA: risorse di programmazione per Visual Basic, Applications Edition

226118 OFF2000: risorse di programmazione per Visual Basic, Applications Edition