Hoe activeer ik een blad met vba?

Stel dat u met meerdere werkbladen werkt en dat u moeilijk met een tabblad naar een werkblad kunt navigeren. In deze situatie kunt u VBA-code gebruiken om elk werkblad te activeren.

En om hiervoor VBA-code te schrijven, moet u de Worksheet.Activate-methode gebruiken. In dit artikel wil ik graag een eenvoudige manier met u delen om deze code te schrijven om een werkblad te activeren of te selecteren. Voordat u deze code schrijft, moet u deze methode begrijpen.

Werkblad.Activeer methode

Bij deze methode kunt u de naam of het nummer opgeven van het werkblad dat u wilt activeren. Stel dat u blad 1 moet activeren, dan is de code:

 Worksheets("Sheet1").Activate

Of u kunt ook bladnummers gebruiken.

 Worksheets("1").Activate

De uiteindelijke code zal dus zijn:

 Sub ActivateSheet1() Worksheets("Sheet1").Activate End Sub

Voorbeelden: Activeer een spreadsheet met VBA

In het echte leven kun je deze methode op verschillende manieren gebruiken. Hier zijn een paar.

1. Activeer een spreadsheet wanneer het wordt geopend

Als u elke keer dat u de werkmap opent een specifiek werkblad wilt activeren, geeft u deze VBA-code een naam auto_open.

 Sub auto_open() Worksheets("Sheet1").Activate End Su

2. Schakel één werkblad in en verberg alle andere

Misschien wilt u naar één werkblad gaan en alle andere werkbladen in de werkmap verbergen. Dit kunt u doen met behulp van onderstaande code.

 Sub HideWorksheet() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets If ws.Name <> "Sheet1" Then ws.Visible = xlSheetHidden End If Next ws End Sub

Wijzig de bladnaam uit de bovenstaande code om deze nuttiger te maken.