VBA Selecteer bereik / cellen

Met VBA kunt u een cel, celbereik of alle cellen in het werkblad selecteren. U kunt de geselecteerde cel of het geselecteerde bereik manipuleren met behulp van het selectieobject.

Selecteer een enkele cel met VBA

U kunt een cel in een werkblad selecteren met de methode Selecteren. De volgende code selecteert cel A2 in het ActiveWorksheet:

1	Bereik ("A2"). Selecteer

Of

1	Cellen(2, 1).Selecteer

Het resultaat is:

Selecteer een celbereik met VBA

U kunt een groep cellen in een werkblad selecteren met behulp van de methode Selecteren en het object Bereik. De volgende code selecteert A1:C5:

1	Bereik ("A1:C5"). Selecteer

Selecteer een bereik van niet-aangrenzende cellen met behulp van VBA

U kunt cellen of bereiken selecteren die niet naast elkaar staan, door de cellen of bereiken te scheiden met een komma in VBA. Met de volgende code kunt u de cellen A1, C1 en E1 selecteren:

1	Bereik ("A1, C1, E1"). Selecteer

U kunt ook sets van niet-aaneengesloten bereiken in VBA selecteren. De volgende code selecteert A1:A9 en B11:B18:

1	Bereik ("A1:A9, B11:B18"). Selecteer

Selecteer alle cellen in een werkblad

U kunt alle cellen in een werkblad selecteren met VBA. De volgende code selecteert alle cellen in een werkblad.

1	Cellen.Selecteer

Selecteer een rij

U kunt een bepaalde rij in een werkblad selecteren met behulp van het object Rij en het indexnummer van de rij die u wilt selecteren. De volgende code selecteert de eerste rij in uw werkblad:

1	Rijen(1).Selecteer

Selecteer een kolom

U kunt een bepaalde kolom in een werkblad selecteren met behulp van het object Kolom en het indexnummer van de kolom die u wilt selecteren. De volgende code selecteert kolom C in uw werkblad:

1	Kolommen(3).Selecteer

Selecteer de laatste niet-lege cel in een kolom

Stel dat u gegevens hebt in de cellen A1, A2, A3 en A4 en dat u de laatste niet-lege cel wilt selecteren die cel A4 in de kolom zou zijn. U kunt hiervoor VBA en de Range.End-methode gebruiken.

De Range.End-methode kan vier argumenten aannemen namelijk: xlNaarLinks, xlNaarRechts, xlUp en xlOmlaag.

De volgende code selecteert de laatste niet-lege cel die in dit geval A4 zou zijn, als A1 de actieve cel is:

1	Bereik ("A1"). Einde (xlOmlaag). Selecteer

Selecteer de laatste niet-lege cel op een rij

Stel dat u gegevens hebt in de cellen A1, B1, C1, D1 en E1 en dat u de laatste niet-lege cel wilt selecteren, cel E1 in de rij. U kunt hiervoor VBA en de Range.End-methode gebruiken.

De volgende code selecteert de laatste niet-lege cel die in dit geval E1 zou zijn, als A1 de actieve cel is:

1	Bereik ("A1"). Einde (xlNaarRechts).Selecteren

Selecteer de huidige regio in VBA

U kunt de Huidig ​​​​Regio-eigendom van het bereikobject om een ​​rechthoekig bereik van lege en niet-lege cellen rond een specifieke gegeven invoercel te selecteren. Als u gegevens in cel A1, B1 en C1 hebt, selecteert de volgende code dit gebied rond cel A1:

1	Bereik ("A1"). Huidige regio. Selecteer

Dus het bereik A1:C1 zou worden geselecteerd.

Selecteer een cel die relatief is aan een andere cel

U kunt de Offset-eigenschap om een ​​cel te selecteren die relatief is aan een andere cel. De volgende code laat zien hoe u cel B2 selecteert, die 1 rij en 1 kolom is ten opzichte van cel A1:

1	Bereik ("A1"). Offset (1, 1). Selecteer

Selecteer een benoemd bereik in Excel

U kunt selecteren: Benoemde bereiken ook. Laten we zeggen dat je cellen A1:A4 Fruit hebt genoemd. U kunt de volgende code gebruiken om dit benoemde bereik te selecteren:

1	Bereik ("Fruit").Selecteer

Een cel op een ander werkblad selecteren

Om een ​​cel op een ander werkblad te selecteren, moet u het werkblad eerst activeren met de methode Worksheets.Activate. Met de volgende code kunt u cel A7 selecteren op het blad met de naam Blad5:

12	Werkbladen ("Blad5"). ActiverenBereik ("A1"). Selecteer

Het selectieobject manipuleren in VBA

Nadat u een cel of celbereik hebt geselecteerd, kunt u verwijzen naar het selectieobject om deze cellen te manipuleren. De volgende code selecteert de cellen A1:C1 en stelt het lettertype van deze cellen in op Arial, het lettertype op vet, de tekenstijl op cursief en de vulkleur op groen.

123456789

Subformaatselectie()Bereik ("A1:C1"). SelecteerSelection.Font.Name = "Arial"Selectie.Lettertype.Bold = TrueSelectie.Font.Italic = TrueSelectie.Interieur.Kleur = vbGroenEinde sub

Het resultaat is:

De With gebruiken… Eindigen met Construct

We kunnen het bovenstaande voorbeeld herhalen met de instructie With / End With om slechts één keer naar het selectieobject te verwijzen. Dit bespaart typen en maakt uw code meestal gemakkelijker leesbaar.

1234567891011

Sub UsingWithEndWithSelection()Bereik ("A1:C1"). SelecteerMet selectie.Font.Name = "Arial".Lettertype.Bold = True.Lettertype.Italic = True.Interieur.Kleur = vbGroenEindigt metEinde sub