Hoe u door bladen in Excel kunt bladeren met VBA

Terwijl u de gebruikelijke saaie taken van Excel in VBA automatiseert, krijgt u de behoefte om door elk blad te bladeren. En daarvoor ben je natuurlijk hier.

Laten we de code bekijken om door bladen in een werkmap te bladeren.

VBA-code Om alle bladen in Activeworkbook te herhalen en bladen af te drukken Naam

Sub loopSheets() For Each ws In ActiveWorkbook.Worksheets Debug.Print ws.Name Volgende ws End Sub

De bovenstaande vba-code loopt door elk blad in de actieve werkmap en drukt de bladnaam af

Hoe het werkt?

Het is vrij eenvoudig. We vertellen VBA om elk werkblad in de actieve werkmap in ws op te slaan en vervolgens de naam af te drukken met de naammethode.

Doorloop alle bladen behalve één

Dus als u meerdere bladen in één stramienblad probeert samen te voegen, moet u door elk blad heen lopen. kopieer de gegevens van elk blad in het hoofdblad. Maar u zou willen dat het hoofdblad geen looping krijgt. Laten we zeggen dat u het hoofdblad "Master" hebt genoemd. Gebruik in dat geval deze methode:

Sub loopSheets() For Each ws In ActiveWorkbook.Worksheets If ws.Name "Master" Dan Debug.Print ws.Name & "Copied" End If Next ws End Sub

Het is bijna hetzelfde als de bovenstaande code, met alleen een If-instructie.

Als ws.Name "Master" Dan

Deze regel controleert of de naam van het huidige werkblad "Master" is. als dat niet het geval is, wordt de code tussen if-blok uitgevoerd. Anders de code binnen als het blok wordt overgeslagen.

Dus ja jongens, dit is hoe je werkbladen in Excel kunt doorlopen. Vervolgens zullen we leren hoe u meerdere bladen in één kunt consolideren met behulp van vba.