Kazalo
Pokazali vam bomo 3 metode v Excel VBA na . izberite območje s spletne strani aktivna celica Za prikaz tega smo izbrali nabor podatkov z 3 stolpci : " Ime in priimek ", " Priimek " in " E-pošta ". Izbrali bomo celica in uporabo Excel VBA izberemo območje iz tega celica .
Prenesi delovni zvezek za prakso
Izberite obseg iz aktivne celice.xlsm3 načini za izbiro območja iz aktivne celice z uporabo VBA v Excelu
1. Uporaba VBA za izbiro območja od aktivne celice do zadnje neprazne celice
Za prvo metodo bomo uporabili Razpon.Konec lastnost.
Tu bomo našo kodo vnesli kot Modul . Če želite dvigniti Modul okno, naredite naslednje.
Koraki:
- Prvič, iz Razvijalec zavihek>>>> izberite Visual Basic .
Spletna stran Visual Basic Prikaže se okno.
- Končno, od Vstavite >>>> izberite Modul .
To bo prikazalo Modul okno.
1.1 Uporaba lastnosti End(xlUp)
V tem razdelku bomo izbrali obseg navzgor do zadnjega celica, ki ni prazna iz našega aktivna celica .
Koraki:
- Najprej odprite Modul okno.
- Drugič, vrsta naslednjo kodo.
Pod ToUp() Razpon(ActiveCell, ActiveCell.End(xlUp)).Select End Sub
Kličemo naše Pod Postopek ToUp . Nato izberemo svoj obseg Prva vrednost je naša aktivna celica Zadnja vrednost je ActiveCell.End(xlUp) . Na koncu izberemo obseg z Razpon . Izberite metoda.
- Tretjič, Shrani in zaprite okno.
- Nato izberite celica C6 . celica je naš aktivni celica .
Zdaj bomo prikazali Makro okno. Da bi to storili...
- Od Razvijalec zavihek>>>> izberite Makroji .
Po tem je Makro pogovorno okno se prikaže.
- Nato izberite " ToUp " iz " Ime makra: ".
- Na koncu kliknite na Spustite .
To lahko vidimo, saj smo izbrani . območje celic C4:C6 .
Preberite več: Excel VBA: Kopiranje dinamičnega območja v drugo delovno knjižico
1.2. Vključitev lastnosti End(xlDown)
V tem razdelku bomo izbrali obseg navzdol iz našega aktivna celica .
Koraki:
- Najprej odprite Modul okno.
- Drugič, vrsta naslednjo kodo.
Sub ToDown() Razpon(ActiveCell, ActiveCell.End(xlDown)).Select End Sub
Kličemo naše Pod Postopek ToDown . Nato izberemo svoj obseg Prva vrednost je naša aktivna celica Zadnja vrednost je ActiveCell.End(xlDown) . Na koncu izberemo obseg z Razpon . Izberite metoda.
- Tretjič, Shrani in zaprite okno.
- Nato izberite celica C6 . To je naš aktivna celica .
- Nato odprite Pogovorno okno Makro .
- Izberite " ToDown ".
- Na koncu kliknite na Spustite .
Tako smo izbrani a obseg iz našega aktivna celica uporaba Excel VBA .
Preberite več: Excel VBA za zanko v območju do prazne celice (4 primeri)
Podobni članki
- Excel VBA: zanka skozi stolpce v območju (5 primerov)
- Kako uporabiti VBA za vsako vrstico v območju v Excelu
- Excelov makro: Razvrstite več stolpcev z dinamičnim obsegom (4 metode)
- VBA za zanko skozi vrstice in stolpce v območju v Excelu (5 primerov)
- Kako pretvoriti obseg v polje v programu Excel VBA (3 načini)
1.3 Uporaba lastnosti End(xlToLeft)
V tem razdelku bomo izbrali obseg na levo našega aktivna celica .
Koraki:
- Najprej odprite Modul okno.
- Drugič, vrsta naslednjo kodo.
Pod ToLeft() Razpon(ActiveCell, ActiveCell.End(xlToLeft)).Select End Sub
Kličemo naše Pod Postopek ToLeft . Nato izberemo svoj obseg Prva vrednost je naša aktivna celica Zadnja vrednost je ActiveCell.End(xlToLeft) . Na koncu izberemo obseg z Razpon . Izberite metoda.
- Tretjič, Shrani in zaprite okno.
- Nato izberite celica D7 . To je naš aktivna celica .
- Nato odprite Pogovorno okno Makro .
- Izberite " ToLeft ".
- Na koncu kliknite na Spustite .
Tako smo izbrani a obseg iz našega aktivna celica uporaba Excel VBA .
1.4 Izvajanje lastnosti End(xlToRight)
V tem razdelku bomo izbrali obseg na desno našega aktivna celica .
Koraki:
- Najprej odprite Modul okno.
- Drugič, vrsta naslednjo kodo.
Pod ToLeft() Razpon(ActiveCell, ActiveCell.End(xlToRight)).Select End Sub
Kličemo naše Podpostopek ToRight . Nato izberemo svoj obseg Prva vrednost je naša aktivna celica Zadnja vrednost je ActiveCell.End(xlToRight) . Na koncu izberemo obseg z Razpon . Izberite metoda.
- Tretjič, Shrani in zaprite okno.
- Nato izberite celica C8 . To je naš aktivna celica .
- Nato odprite Pogovorno okno Makro .
- Izberite " ToRight ".
- Na koncu kliknite na Spustite .
Tako smo izbrani a obseg iz našega aktivna celica uporaba Excel VBA .
2. Uporaba lastnosti VBA Range.Offset za izbiro območja iz aktivne celice z uporabo VBA v Excelu
Za drugo metodo bomo uporabili VBA Razpon.Odmik lastnost za izbiro obseg z uporabo našega aktivna celica .
Koraki:
- Prvič, vrsta naslednjo kodo v Modul okno.
Pod Uporaba Odmik() Razpon(ActiveCell, ActiveCell.Offset(1, 2)).Select Konec podnaslova
Ustvarili smo svoj Podpostopek UsingOffset . Nato izberemo svoj obseg Prva vrednost je naša aktivna celica Zadnja vrednost je ActiveCell.Offset (1,2) . Z Lastnost Offset se premikamo 1 vrstica navzdol in . 2 stolpca desno . Na koncu izberemo obseg z Razpon . Izberite metoda.
- Drugič, Shrani in zaprite okno.
- Nato izberite celica B8 . To je naš aktivna celica .
- Nato odprite Pogovorno okno Makro .
- Izberite " UsingOffset ".
- Na koncu kliknite na Spustite .
Na koncu smo izbrani a obseg iz aktivna celica Poleg tega mora biti zadnji korak videti takole.
Preberite več: Excel VBA: Pridobite obseg celic z vrednostmi (7 primerov)
3. Izbira območja iz aktivne celice z uporabo VBA v Excelu z uporabo lastnosti CurrentRegion
Za zadnjo metodo bomo uporabili Range.CurrentRegion lastnost.
Koraki:
- Prvič, vrsta naslednjo kodo v Modul okno.
Sub cRegion() ActiveCell.CurrentRegion.Select End Sub
Kličemo naše Pod Postopek cRegion . Nato izberemo svoj obseg . Z CurrentRegion izberemo lastnost obseg do prazna celica . Na koncu izberemo obseg z Razpon . Izberite metoda.
- Drugič, Shrani in se vrnite v Excel list.
- Nato izberite celica C10 . To je naš aktivna celica .
- Nato odprite Pogovorno okno Makro .
- Izberite " cRegion ".
- Na koncu kliknite na Spustite .
Tako smo izbrani . obseg do prazna celica .
Oddelek za prakso
Za vsako metodo smo zagotovili nabore podatkov za vadbo v Excel datoteko.
Zaključek
Pokazali smo vam 3 metode Excel VBA izberite območje s spletne strani aktivna celica . Če imate težave z razumevanjem korakov, jih lahko komentirate spodaj. Hvala za branje, še naprej odlični!