Sådan bruges VBA til at vælge område fra aktiv celle i Excel (3 metoder)

Hugh West

20-08-2023 Makroer & Excel VBA
  • Del Dette
Hugh West

Vi vil vise dig 3 metoder i Excel VBA til vælg rækkevidde fra aktiv celle For at demonstrere dette har vi valgt et datasæt med 3 kolonner : " Fornavn ", " Efternavn ", og " E-mail ". Vi vælger en celle og ved hjælp af Excel VBA vi vælger intervallet fra dette celle .

Download arbejdsbog til øvelser

Vælg område fra aktiv celle.xlsm

3 måder at vælge område fra aktiv celle ved hjælp af VBA i Excel på

1. Brug af VBA til at vælge område fra aktiv celle til den sidste ikke-tomme celle

I den første metode bruger vi Range.End ejendom.

Her indtaster vi vores kode som en Modul . for at få den Modul vindue, gør følgende-

Trin:

  • For det første, fra den Udvikler faneblad>>>> vælg Visual Basic .

Visual Basic vinduet vises.

  • Endelig, fra Indsæt >>>> vælg Modul .

Dette vil få vist Modul vindue.

1.1. Brug af egenskaben End(xlUp)

I dette afsnit skal vi vælge den rækkevidde opad indtil den sidste ikke-tomme celler fra vores aktiv celle .

Trin:

  • For det første skal du åbne Modul vindue.
  • For det andet, type følgende kode. 
 Sub ToUp() Range(ActiveCell, ActiveCell.End(xlUp)).Select End Sub

Vi kalder vores Under Procedure ToUp . Så vælger vi vores rækkevidde Den første værdi er vores aktiv celle Den sidste værdi er ActiveCell.End(xlUp) Endelig vælger vi den rækkevidde med den Område . Vælg metode.

  • For det tredje, Gem det og lukker vinduet.
  • Derefter skal du vælge celle C6 . dette celle er vores aktiv celle .

Nu vil vi bringe den Makro vindue. For at gøre det-

  • Fra den Udvikler faneblad>>>> vælg Makroer .

Herefter vil den Makro dialogboks vil blive vist.

  • Vælg derefter " ToUp " fra " Makronavn: ".
  • Endelig skal du klikke på Kør .

Det kan vi se, vi har udvalgt celleområde C4:C6 .

Læs mere: Excel VBA: Kopier dynamisk område til en anden projektmappe

1.2. Indarbejdelse af egenskaben End(xlDown)

I dette afsnit skal vi vælge den rækkevidde nedad fra vores aktiv celle .

Trin:

  • For det første skal du åbne Modul vindue.
  • For det andet, type følgende kode. 
 Sub ToDown() Range(ActiveCell, ActiveCell.End(xlDown)).Select End Sub

Vi kalder vores Under Procedure ToDown . Så vælger vi vores rækkevidde Den første værdi er vores aktiv celle Den sidste værdi er ActiveCell.End(xlDown) Endelig vælger vi den rækkevidde med den Område . Vælg metode.

  • For det tredje, Gem det og lukker vinduet.
  • Derefter skal du vælge celle C6 . Dette er vores aktiv celle .

  • Derefter skal du åbne Dialogboks for makroer .
  • Vælg " ToDown ".
  • Endelig skal du klikke på Kør .

Vi har således udvalgt a rækkevidde fra vores aktiv celle ved hjælp af Excel VBA .

Læs mere: Excel VBA til at gennemløbe intervallet indtil tom celle (4 eksempler)

Lignende artikler

  • Excel VBA: Sløjfe gennem kolonner i et område (5 eksempler)
  • Sådan bruges VBA til hver række i et område i Excel
  • Excel-makro: Sortere flere kolonner med dynamisk område (4 metoder)
  • VBA til at gennemløbe rækker og kolonner i et område i Excel (5 eksempler)
  • Sådan konverteres Range til Array i Excel VBA (3 måder)

1.3. Anvendelse af egenskaben End(xlToLeft)

I dette afsnit skal vi vælge den rækkevidde til den venstre af vores aktiv celle .

Trin:

  • For det første skal du åbne Modul vindue.
  • For det andet, type følgende kode. 
 Sub ToLeft() Range(ActiveCell, ActiveCell.End(xlToLeft)).Select End Sub

Vi kalder vores Under Procedure ToLeft . Så vælger vi vores rækkevidde Den første værdi er vores aktiv celle Den sidste værdi er ActiveCell.End(xlToLeft) Endelig vælger vi den rækkevidde med den Område . Vælg metode.

  • For det tredje, Gem det og lukker vinduet.
  • Derefter skal du vælge celle D7 . Dette er vores aktiv celle .

  • Derefter skal du åbne Dialogboks for makroer .
  • Vælg " ToLeft ".
  • Endelig skal du klikke på Kør .

Vi har således udvalgt a rækkevidde fra vores aktiv celle ved hjælp af Excel VBA .

1.4. Implementering af egenskaben End(xlToRight)

I dette afsnit skal vi vælge den rækkevidde til den højre af vores aktiv celle .

Trin:

  • For det første skal du åbne Modul vindue.
  • For det andet, type følgende kode. 
 Sub ToLeft() Range(ActiveCell, ActiveCell.End(xlToRight)).Select End Sub

Vi kalder vores Underprocedure ToRight . Så vælger vi vores rækkevidde Den første værdi er vores aktiv celle Den sidste værdi er ActiveCell.End(xlToRight) Endelig vælger vi den rækkevidde med den Område . Vælg metode.

  • For det tredje, Gem det og lukker vinduet.
  • Derefter skal du vælge celle C8 . Dette er vores aktiv celle .

  • Derefter skal du åbne Dialogboks for makroer .
  • Vælg " ToRight ".
  • Endelig skal du klikke på Kør .

Vi har således udvalgt a rækkevidde fra vores aktiv celle ved hjælp af Excel VBA .

2. Brug af VBA Range.Offset-egenskaben til at vælge område fra aktiv celle ved hjælp af VBA i Excel

Til den anden metode bruger vi VBA Range.Offset egenskaben for at vælge den rækkevidde ved hjælp af vores aktiv celle .

Trin:

  • For det første, type følgende kode i Modul vindue. 
 Sub UsingOffset() Range(ActiveCell, ActiveCell.Offset(1, 2)).Select End Sub

Vi har oprettet vores Underprocedure UsingOffset . Så vælger vi vores rækkevidde Den første værdi er vores aktiv celle Den sidste værdi er ActiveCell.Offset (1,2) . med den Offset-egenskab vi flytter 1 række ned og 2 kolonner højre Endelig vælger vi den rækkevidde med den Område . Vælg metode.

  • For det andet, Gem det og lukker vinduet.
  • Derefter skal du vælge celle B8 . Dette er vores aktiv celle .

  • Derefter skal du åbne Dialogboks for makroer .
  • Vælg " UsingOffset ".
  • Endelig skal du klikke på Kør .

Afslutningsvis har vi udvalgt a rækkevidde fra den aktiv celle . Desuden er det sådan, det sidste trin skal se ud.

Læs mere: Excel VBA: Få et område af celler med værdier (7 eksempler)

3. Vælg område fra aktiv celle ved hjælp af VBA i Excel ved hjælp af CurrentRegion-egenskaben

Til den sidste metode bruger vi Range.CurrentRegion ejendom.

Trin:

  • For det første, type følgende kode i Modul vindue. 
 Sub cRegion() ActiveCell.CurrentRegion.Select End Sub

Vi kalder vores Under Procedure cRegion . Så vælger vi vores rækkevidde . med den CurrentRegion egenskaben, vælger vi den rækkevidde op til en tom celle Endelig vælger vi den rækkevidde med den Område . Vælg metode.

  • For det andet, Gem det og gå tilbage til den Excel ark.
  • Derefter skal du vælge celle C10 . Dette er vores aktiv celle .

  • Derefter skal du åbne Dialogboks for makroer .
  • Vælg " cRegion ".
  • Endelig skal du klikke på Kør .

Vi har således udvalgt rækkevidde op til en tom celle .

Øvelsesafsnit

Vi har leveret øvelsesdatasæt for hver metode i Excel fil.

Konklusion

Vi har vist dig 3 metoder til Excel VBA vælg rækkevidde fra aktiv celle Hvis du har problemer med at forstå trinene, er du velkommen til at kommentere nedenfor. Tak for læsningen, og bliv ved med at være dygtig!

Forrige indlæg Sådan konverteres dato til tekst YYYYYYMMDD (3 hurtige måder)
Næste indlæg Sådan bruger du VBA DIR-funktionen i Excel (7 praktiske eksempler)

Hugh West er en meget erfaren Excel-træner og analytiker med over 10 års erfaring i branchen. Han har en bachelorgrad i regnskab og finans og en kandidatgrad i Business Administration. Hugh har en passion for undervisning og har udviklet en unik undervisningstilgang, der er nem at følge og forstå. Hans ekspertviden om Excel har hjulpet tusindvis af studerende og fagfolk verden over med at forbedre deres færdigheder og udmærke sig i deres karriere. Gennem sin blog deler Hugh sin viden med verden og tilbyder gratis Excel-tutorials og onlinetræning for at hjælpe enkeltpersoner og virksomheder med at nå deres fulde potentiale.