Mentre automatizzi le solite noiose attività di Excel in VBA, avrai la necessità di scorrere ogni foglio. Ed è per questo che sei qui, ovviamente.
Vediamo il codice per scorrere i fogli in una cartella di lavoro.
Codice VBA per eseguire il ciclo in tutti i fogli in Activeworkbook e stampare i fogli Nome
Sub loopSheets() Per ogni ws In ActiveWorkbook.Worksheets Debug.Print ws.Name Next ws End Sub
Il codice vba sopra, scorre ogni foglio nella cartella di lavoro attiva e stampa il nome dei fogli
Come funziona?
È abbastanza semplice. Diciamo a VBA di memorizzare ogni foglio di lavoro nella cartella di lavoro attiva in ws e quindi di stamparne il nome usando il metodo name.
Passa attraverso tutti i fogli tranne uno
Quindi, se stai cercando di unire più fogli in un foglio principale, dovrai scorrere ogni foglio. copiare i dati di ogni foglio nel foglio principale. Ma vorresti escludere il foglio principale dal loop. Supponiamo che tu abbia chiamato il foglio principale come "Master". In tal caso usa questo metodo:
Sub loopSheets() Per ogni ws in ActiveWorkbook.Worksheets If ws.Name "Master" Then Debug.Print ws.Name & "Copied" End If Next ws End Sub
È quasi lo stesso del codice precedente, con la sola aggiunta dell'istruzione If.
Se ws.Name "Master" Allora
Questa riga controlla se il nome del foglio di lavoro corrente è "Master" . se non lo è, viene eseguito il codice tra if block. Altrimenti il codice all'interno se il blocco viene saltato.
Quindi sì ragazzi, ecco come potete scorrere i fogli di lavoro in Excel. Successivamente impareremo come consolidare più fogli in uno usando vba.
Download file
Come scorrere i fogli in Excel utilizzando VBAArticoli Correlati:
Elimina i fogli senza richieste di conferma utilizzando VBA in Microsoft Excel
Aggiungi e salva una nuova cartella di lavoro utilizzando VBA in Microsoft Excel 2016
Visualizza un messaggio sulla barra di stato VBA di Excel
Disattiva i messaggi di avviso utilizzando VBA in Microsoft Excel 2016
Articoli popolari:
La funzione CERCA.VERT in Excel
CONTA.SE in Excel 2016
Come utilizzare la funzione SOMMA.SE in Excel