Sådan går du gennem ark i Excel ved hjælp af VBA

Mens du automatiserer de sædvanlige kedelige opgaver med excel i VBA, får du behovet for at gå gennem hvert ark. Og derfor er du selvfølgelig her.

Lad os se koden til at gå gennem ark i en projektmappe.

VBA -kode til sløjfe i alle ark i Activeworkbook og udskriftsark Navn

Sub loopSheets () For hver ws i ActiveWorkbook.Worksheets Debug.Print ws.Name Næste ws End Sub

Ovenstående vba -kode går gennem hvert ark i den aktive projektmappe og udskriver arkets navn

Hvordan det virker?

Det er ganske enkelt. Vi fortæller VBA at gemme hvert regneark i aktiv projektmappe i ws og derefter udskrive dets navn ved hjælp af navnemetode.

Sløjfe gennem alle ark undtagen en

Så hvis du forsøger at flette flere ark i et hovedark, skal du gå hvert ark igennem. kopier hvert arks data til hovedark. Men du vil undtage hovedarket fra looping. Lad os sige, at du navngav hovedark som "Master". Brug i så fald denne metode:

Sub loopSheets () For hver ws i ActiveWorkbook.Worksheets If ws.Name "Master" Så debug.Print ws.Name & "Kopieret" End If Next ws End Sub

Det er næsten det samme som ovenstående kode, med kun tilføjelse af If -sætning.

Hvis ws.Name "Master" Så

Denne linje kontrollerer, om det aktuelle regnearks navn er "Master". hvis det ikke er, koden mellem hvis blok kører. Ellers koden inden, hvis blokken springes over.

Så ja fyre, sådan kan du gå igennem regneark i excel. Dernæst lærer vi, hvordan man konsoliderer flere ark til et ved hjælp af vba.