Pokazaćemo vam 3 metode u Excel VBA do odaberite raspon od aktivne ćelije . Da bismo to demonstrirali, odabrali smo skup podataka sa 3 kolone : “ Ime ”, “ Prezime ” i “ Email ”. Odabrat ćemo ćeliju i pomoću Excel VBA odabrat ćemo raspon iz te ćelije .

Preuzmite Vježnicu

3 načina za odabir raspona iz Active Cell koristeći VBA u Excelu

1. Korištenje VBA za odabir raspona od aktivne ćelije do posljednje ćelije koja nije prazna

Za prvi metod, koristit ćemo svojstvo Range.End .

Ovdje ćemo unijeti naš kod kao Modul . Da biste otvorili prozor Modul , uradite ove-

Korake:

• Prvo, od Programer kartica >>> odaberite Visual Basic .

Prozor Visual Basic će se pojaviti.

• Konačno, od Insert >>> odaberite Module .

Ovo će otvoriti prozor Modul .

1.1. Koristeći svojstvo End(xlUp)

U ovom dijelu ćemo odabrati opseg naviše do posljednje neprazne ćelije iz naše aktivne ćelije .

Koraci:

• Prvo, otvorite prozor Modul .
• Drugo, upišite sljedeći kod.

8730

Pozivamo naše Sub Procedura DoUp . Zatim biramo naš opseg . Prva vrijednost je naša aktivna ćelija . Posljednja vrijednost je ActiveCell.End(xlUp) . Konačno, odabiremo opseg metodom Raspon . Odaberi .

• Treće, Sačuvaj i zatvori prozor.
• Nakon toga, odaberite ćeliju C6 . Ova ćelija je naša aktivna ćelija .

Sada ćemo otvori prozor Makro . Da biste to učinili-

• Sa kartice Programer >>> odaberite Makroi .

Nakon toga će se pojaviti Makro dijaloški okvir .

• Zatim, odaberite “ ToUp ” iz “ Macro name: ”.
• Na kraju, kliknite na Run .

Možemo vidjeti da smo odabrali opseg ćelija C4:C6 .

Pročitajte više: Excel VBA: Kopiraj dinamički opseg u drugu radnu knjigu

1.2. Uključivanje svojstva End(xlDown)

U ovom odeljku, mi ćemo izabrati opseg naniže iz naše aktivne ćelije .

Koraci:

• Prvo, otvorite prozor Modul .
• Drugo, tip sljedeći kod.

6373

Pozivamo našu Sub Proceduru ToDown . Zatim biramo naš opseg . Prva vrijednost je naša aktivna ćelija . Posljednja vrijednost je ActiveCell.End(xlDown) . Konačno, jesmoodabir opseg sa Raspon . Odaberi metod.

• Treće, Sačuvajte i zatvorite prozor.
• Nakon toga odaberite ćeliju C6 . Ovo je naša aktivna ćelija .

• Zatim, otvorite Makro dijaloški okvir .
• Odaberite “ ToDown ”.
• Na kraju kliknite na Run .

Dakle, odabrali smo opseg iz naše aktivne ćelije koristeći Excel VBA .

Pročitajte više: Excel VBA za petljanje kroz raspon do prazne ćelije (4 primjera)

Slični članci

• Excel VBA: petlja kroz kolone u rasponu (5 primjera)
• Kako koristiti VBA za svaki red u rasponu u Excelu
• Excel makro: sortiranje više kolona s dinamičkim rasponom (4 metode)
• VBA za petlju kroz redove i kolone u rasponu u Excelu (5 primjera)
• Kako pretvoriti raspon u niz u Excel VBA (3 načina)

1.3. Primjena svojstva End(xlToLeft)

U ovom dijelu ćemo odabrati opseg s lijevo naše aktivne ćelije .

Koraci:

• Prvo, otvorite prozor Modul .
• Drugo, upišite sljedeći kod.

1565

Pozivamo našu Sub proceduru ToLeft . Zatim biramo naš opseg . Prva vrijednost je naša aktivna ćelija . Posljednja vrijednost je ActiveCell.End(xlToLeft) . Konačno, odabiremo opseg sa Raspon . Odaberi metod.

• Treće, Sačuvaj i zatvori prozor.
• Nakon toga, odaberite ćeliju D7 . Ovo je naša aktivna ćelija .

• Zatim, otvorite Makro dijaloški okvir .
• Odaberite “ ToLeft ”.
• Na kraju kliknite na Pokreni .

Dakle, odabrali smo opseg iz naše aktivne ćelije koristeći Excel VBA .

1.4. Implementacija svojstva End(xlToRight)

U ovom dijelu ćemo odabrati opseg s desno naše aktivne ćelije .

Koraci:

• Prvo, otvorite prozor Modul .
• Drugo, upišite sljedeći kod.

8028

Pozivamo našu podproceduru ToRight . Zatim biramo naš opseg . Prva vrijednost je naša aktivna ćelija . Posljednja vrijednost je ActiveCell.End(xlToRight) . Konačno, odabiremo opseg sa Raspon . Odaberi metod.

• Treće, Sačuvaj i zatvori prozor.
• Nakon toga, odaberite ćeliju C8 . Ovo je naša aktivna ćelija .

• Zatim, otvorite Makro dijaloški okvir .
• Odaberite “ ToRight ”.
• Konačno, kliknite na Pokreni .

Dakle, odabrali smo opseg iz naše aktivne ćelije koristeći Excel VBA .

2. Koristeći svojstvo VBA Range.Offset za odabir raspona iz aktivne ćelije Korištenje VBA u Excelu

Za drugu metodu, koristit ćemo svojstvo VBA Range.Offset za odabir range koristeći našu aktivnu ćeliju .

Koraci:

• Prvo, upišite sljedeći kod u prozor Modul .

9495

Kreirali smo našu Podproceduru UsingOffset . Zatim biramo naš opseg . Prva vrijednost je naša aktivna ćelija . Posljednja vrijednost je ActiveCell.Offset (1,2) . Sa svojstvom pomaka pomičemo 1 red dolje i 2 kolone desno . Konačno, odabiremo opseg sa Raspon . Odaberi metod.

• Drugo, Sačuvaj i zatvorite prozor.
• Nakon toga odaberite ćeliju B8 . Ovo je naša aktivna ćelija .

• Zatim, otvorite Makro dijaloški okvir .
• Odaberite “ UsingOffset ”.
• Konačno, kliknite na Run .

U zaključku, odabrali smo opseg iz aktivne ćelije . Štaviše, ovako bi trebao izgledati posljednji korak.

Pročitajte više: Excel VBA: Dobijte raspon ćelija sa vrijednostima (7 Primjeri)

3. Odaberite raspon iz aktivne ćelije koristeći VBA u Excelu korištenjem svojstva CurrentRegion

Za posljednju metodu, koristit ćemo svojstvo Range.CurrentRegion .

Koraci:

• Prvo, upišite sljedeći kod u prozor Modul .

2868

Pozivamo našu Sub proceduru cRegija . Zatim biramo naš opseg . Sa svojstvom CurrentRegion , odabiremo opseg do prazne ćelije . Konačno, odabiremo opseg sa Raspon . Odaberi metod.

• Drugo, Sačuvaj i vrati se na Excel list.
• Nakon toga, odaberite ćeliju C10 . Ovo je naša aktivna ćelija .

• Zatim, otvorite Makro dijaloški okvir .
• Odaberite “ cRegion ”.
• Konačno, kliknite na Pokreni .

Dakle, odabrali smo opseg do prazne ćelije .

Odjeljak za vježbanje

Pružili smo skupove podataka za praksu za svaku metodu u datoteci Excel .

Zaključak

Mi' pokazao sam vam 3 metode Excel VBA odaberite raspon iz aktivne ćelije . Ako naiđete na bilo kakve probleme s razumijevanjem koraka, slobodno komentirajte ispod. Hvala na čitanju, nastavite da se ističete!