Come per elencare tutti i fogli di lavoro in Excel Utilizzando VBA

June 10

Come per elencare tutti i fogli di lavoro in Excel Utilizzando VBA


La classe del foglio di lavoro in VBA è un potente strumento che può essere utilizzato per creare, manipolare e rimuovere i fogli in qualsiasi cartella di lavoro di Excel. Ogni oggetto Foglio di lavoro ha una proprietà chiamata "Nome", che si riferisce alle etichette delle schede dei fogli nella parte inferiore della finestra di Excel. Con questo in mente, è possibile creare uno script macro o VBA che "loop" attraverso ogni foglio in una cartella di lavoro ed elenca i loro nomi in un dato intervallo di celle.

istruzione

1 Avviare Microsoft Excel e aprire la cartella di lavoro.

2 Premere il tasto "Alt + F8" per aprire la finestra Macro. Digitare "GetSheetNames" nella casella "Nome macro" e quindi fare clic su "Crea".

3 Immettere il seguente codice nell'editor di VBA.

GetSheetNames sub ()

Dim wSheet Come foglio di lavoro

Per ogni wSheet nei fogli di lavoro

On Error Resume Next

ActiveCell.Value = wSheet.Name

ActiveCell.Offset (1, 0) .Select

Successivo wSheet

End Sub

4 Chiudere l'editor di VBA per tornare alla cartella di lavoro.

5 Evidenziare una cella nel foglio di calcolo. Premere il tasto "Alt + I" e poi "C" per creare una colonna vuota.

6 Fare clic sulla prima cella vuota nella nuova colonna.

7 Premere il tasto "Alt + F8" per aprire di nuovo la finestra Macro. Seleziona "GetSheetNames" e quindi fare clic su "Esegui".

Consigli e avvertenze

  • Se non si desidera creare una nuova colonna per l'elenco, scegliere invece una cella vuota. Assicurarsi che ci sono abbastanza cellule per contenere la lista. Ad esempio, se la cartella di lavoro contiene 20 fogli, selezionare una cella con 20 o più celle vuote sotto di esso.
  • Per impostazione predefinita, le macro sono disattivate per Excel. Per consentire loro, fare clic sul pulsante Microsoft Office, andare su "Opzioni di Excel" e quindi fare in modo che "Mostra scheda Sviluppo sulla barra multifunzione" sia selezionata. Fai clic su "OK". In alcuni casi, potrebbe essere necessario riavviare MS Excel per le modifiche abbiano effetto.