Hoe VBA gebruiken om bereik te selecteren van actieve cel in Excel (3 methoden)

Hugh West

20-08-2023 Macro's & Excel VBA
  • Deel Dit
Hugh West

We gaan je laten zien 3 methoden in Excel VBA naar selecteer assortiment van actieve cel Om dit te demonstreren hebben we een dataset gekozen met 3 kolommen : " Voornaam ", " Achternaam ", en " E-mail "We kiezen een cel en met behulp van Excel VBA selecteren we het bereik daarvan cel .

Download Praktijk Werkboek

Bereik selecteren uit actieve cel.xlsm

3 manieren om bereik te selecteren vanuit actieve cel met VBA in Excel

1. VBA gebruiken om het bereik te selecteren van de actieve cel tot de laatste niet lege cel

Voor de eerste methode gebruiken we de Range.End eigendom.

Hier voeren we onze code in als een Module Om de Module raam, doe deze...

Stappen:

  • Ten eerste, van de Ontwikkelaar tab>>> selecteer Visual Basic .

De Visual Basic venster verschijnt.

  • Tot slot, van Plaats >>> selecteer Module .

Dit brengt de Module raam.

1.1. De eigenschap End(xlUp) gebruiken

In dit deel gaan we de reeks naar boven tot de laatste niet lege cel van onze actieve cel .

Stappen:

  • Breng eerst de Module raam.
  • Ten tweede, type de volgende code. 
 Sub ToUp() Range(ActiveCell, ActiveCell.End(xlUp)).Select End Sub

We noemen onze Sub Procedure ToUp Dan selecteren we onze reeks De eerste waarde is onze actieve cel De laatste waarde is ActiveCell.End(xlUp) Tenslotte selecteren we de reeks met de Bereik . Selecteer methode.

  • Ten derde, Sla en sluit het venster.
  • Selecteer daarna cel C6 . dit cel is onze actief cel .

Nu gaan we de Macro raam. Om dat te doen...

  • Van de Ontwikkelaar tab>>> selecteer Macro's .

Daarna wordt de Macro dialoogvenster zal verschijnen.

  • Selecteer vervolgens " ToUp " van de " Macro naam: ".
  • Klik tenslotte op Ren .

Dat kunnen we zien, we hebben geselecteerde de celbereik C4:C6 .

Lees meer: Excel VBA: Dynamisch bereik kopiëren naar een andere werkmap

1.2. De eigenschap Einde(xlDown) opnemen

In dit deel gaan we de reeks naar beneden van onze actieve cel .

Stappen:

  • Breng eerst de Module raam.
  • Ten tweede, type de volgende code. 
 Sub ToDown() Range(ActiveCell, ActiveCell.End(xlDown)).Select End Sub

We noemen onze Sub Procedure ToDown Dan selecteren we onze reeks De eerste waarde is onze actieve cel De laatste waarde is ActiveCell.End(xlDown) Tenslotte selecteren we de reeks met de Bereik . Selecteer methode.

  • Ten derde, Sla en sluit het venster.
  • Selecteer daarna cel C6 Dit is onze actieve cel .

  • Breng dan de Macro dialoogvenster .
  • Selecteer " ToDown ".
  • Klik tenslotte op Ren .

Dus, we hebben geselecteerde a reeks van onze actieve cel met behulp van Excel VBA .

Lees meer: Excel VBA om door Bereik te lussen tot lege cel (4 voorbeelden)

Vergelijkbare artikelen

  • Excel VBA: Loop door kolommen in een bereik (5 voorbeelden)
  • VBA gebruiken voor elke rij in een bereik in Excel
  • Excel Macro: Meerdere kolommen sorteren met dynamisch bereik (4 methoden)
  • VBA om door rijen en kolommen in een bereik in Excel te lussen (5 voorbeelden)
  • Hoe bereik converteren naar array in Excel VBA (3 manieren)

1.3. De eigenschap End(xlToLeft) toepassen

In dit deel gaan we de reeks aan de links van onze actieve cel .

Stappen:

  • Breng eerst de Module raam.
  • Ten tweede, type de volgende code. 
 Sub ToLeft() Range(ActiveCell, ActiveCell.End(xlToLeft)).Select End Sub

We noemen onze Sub Procedure NaarLinks Dan selecteren we onze reeks De eerste waarde is onze actieve cel De laatste waarde is ActiveCell.End(xlToLeft) Tenslotte selecteren we de reeks met de Bereik . Selecteer methode.

  • Ten derde, Sla en sluit het venster.
  • Selecteer daarna cel D7 Dit is onze actieve cel .

  • Breng dan de Macro dialoogvenster .
  • Selecteer " NaarLinks ".
  • Klik tenslotte op Ren .

Dus, we hebben geselecteerde a reeks van onze actieve cel met behulp van Excel VBA .

1.4. De eigenschap End(xlToRight) implementeren

In dit deel gaan we de reeks aan de rechts van onze actieve cel .

Stappen:

  • Breng eerst de Module raam.
  • Ten tweede, type de volgende code. 
 Sub Naar links() Range(ActiveCell, ActiveCell.End(xlToRight)).Select End Sub

We noemen onze Subprocedure ToRight Dan selecteren we onze reeks De eerste waarde is onze actieve cel De laatste waarde is ActiveCell.End(xlToRight) Tenslotte selecteren we de reeks met de Bereik . Selecteer methode.

  • Ten derde, Sla en sluit het venster.
  • Selecteer daarna cel C8 Dit is onze actieve cel .

  • Breng dan de Macro dialoogvenster .
  • Selecteer " ToRight ".
  • Klik tenslotte op Ren .

Dus, we hebben geselecteerde a reeks van onze actieve cel met behulp van Excel VBA .

2. De VBA Range.Offset eigenschap gebruiken om bereik te selecteren vanuit actieve cel met behulp van VBA in Excel

Voor de tweede methode gebruiken we de VBA Range.Offset eigenschap om de reeks met behulp van onze actieve cel .

Stappen:

  • Ten eerste, type de volgende code in de Module raam. 
 Sub UsingOffset() Range(ActiveCell, ActiveCell.Offset(1, 2)).Select End Sub

We hebben onze Subprocedure UsingOffset Dan selecteren we onze reeks De eerste waarde is onze actieve cel De laatste waarde is ActiveCell.Offset (1,2) Met de Offset eigenschap we bewegen 1 rij naar beneden en 2 kolommen rechts Tenslotte selecteren we de reeks met de Bereik . Selecteer methode.

  • Ten tweede, Sla en sluit het venster.
  • Selecteer daarna cel B8 Dit is onze actieve cel .

  • Breng dan de Macro dialoogvenster .
  • Selecteer " UsingOffset ".
  • Klik tenslotte op Ren .

Tot slot hebben we geselecteerde a reeks van de actieve cel Bovendien zou de laatste stap er zo uit moeten zien.

Lees meer: Excel VBA: Bereik van cellen met waarden ophalen (7 voorbeelden)

3. Bereik selecteren in actieve cel met VBA in Excel door gebruik te maken van de eigenschap CurrentRegion

Voor de laatste methode gebruiken we de Range.CurrentRegion eigendom.

Stappen:

  • Ten eerste, type de volgende code in de Module raam. 
 Sub cRegion() ActiveCell.CurrentRegion.Select End Sub

We noemen onze Sub Procedure cRegio Dan selecteren we onze reeks Met de CurrentRegion selecteren we de reeks tot een lege cel Tenslotte selecteren we de reeks met de Bereik . Selecteer methode.

  • Ten tweede, Sla het en ga terug naar de Excel blad.
  • Selecteer daarna cel C10 Dit is onze actieve cel .

  • Breng dan de Macro dialoogvenster .
  • Selecteer " cRegio ".
  • Klik ten slotte op Ren .

Dus, we hebben geselecteerde de reeks tot een lege cel .

Praktijk Sectie

Voor elke methode hebben we praktijkgegevensbestanden opgenomen in de Excel bestand.

Conclusie

We hebben je laten zien 3 methoden van Excel VBA selecteer assortiment van actieve cel Als je problemen hebt met het begrijpen van de stappen, voel je vrij om hieronder commentaar te geven. Bedankt voor het lezen, blijf uitblinken!

Vorige post Hoe datum converteren naar tekst JJJJMMDD (3 snelle manieren)
Volgende bericht Gebruik van de VBA DIR-functie in Excel (7 praktische voorbeelden)

Hugh West is een zeer ervaren Excel-trainer en -analist met meer dan 10 jaar ervaring in de branche. Hij heeft een bachelor in Accounting en Finance en een master in Business Administration. Hugh heeft een passie voor lesgeven en heeft een unieke lesaanpak ontwikkeld die gemakkelijk te volgen en te begrijpen is. Zijn deskundige kennis van Excel heeft duizenden studenten en professionals over de hele wereld geholpen hun vaardigheden te verbeteren en uit te blinken in hun carrière. Via zijn blog deelt Hugh zijn kennis met de wereld en biedt hij gratis Excel-tutorials en online trainingen aan om individuen en bedrijven te helpen hun volledige potentieel te bereiken.