Nwlapcug.com


Come elencare tutti i fogli di lavoro di Excel utilizzando VBA



La classe del foglio di lavoro in VBA è un potente strumento che può essere utilizzato per creare, modificare e rimuovere i fogli in qualsiasi cartella di lavoro di Excel. Ogni oggetto 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 una macro o script di VBA che "scorre" in ogni foglio in una cartella di lavoro e vengono elencati i loro nomi in un intervallo di celle specificato.

Istruzioni

1

Avviare Microsoft Excel e aprire la cartella di lavoro.

2

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

3

Immettere il seguente codice nell'editor di VBA.

Sub GetSheetNames()

Dim wSheet As Worksheet

Per ogni wSheet In fogli di lavoro

On Error Resume Next

ActiveCell.Value = wSheet.Name

ActiveCell.Offset(1, 0).Select

Prossimo wSheet

End Sub

4

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

5

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

6

Fare clic sulla prima cella vuota nella nuova colonna.

7

Premere "Alt + F8" per aprire nuovamente la finestra macro. Selezionare "GetSheetNames" e quindi fare clic su "Esegui".

Consigli & Avvertenze

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