VBA Izberite obseg / celice

VBA vam omogoča, da izberete celico, obseg celic ali vse celice na delovnem listu. Z izbrano celico ali obsegom lahko upravljate z objektom za izbiro.

Izberite eno celico z uporabo VBA

Celico na delovnem listu lahko izberete z metodo Izberi. Naslednja koda bo izbrala celico A2 na listu ActiveWorks:

1	Razpon ("A2"). Izberite

Or

1	Celice (2, 1). Izberite

Rezultat je:

Izberite obseg celic z uporabo VBA

Skupino celic na delovnem listu lahko izberete z metodo Izbira in objektom Razpon. Naslednja koda bo izbrala A1: C5:

1	Razpon ("A1: C5"). Izberite

Z VBA izberite obseg ne sosednjih celic

Celice ali obsege, ki niso drug poleg drugega, lahko izberete tako, da celice ali obsege ločite z vejico v VBA. Naslednja koda vam omogoča izbiro celic A1, C1 in E1:

1	Razpon ("A1, C1, E1"). Izberite

V VBA lahko izberete tudi nabore nesorodnih območij. Naslednja koda bo izbrala A1: A9 in B11: B18:

1	Razpon ("A1: A9, B11: B18"). Izberite

Izberite Vse celice na delovnem listu

S pomočjo VBA lahko izberete vse celice na delovnem listu. Naslednja koda bo izbrala vse celice na delovnem listu.

1	Celice. Izberite

Izberite vrstico

Izberete lahko določeno vrstico na delovnem listu z uporabo predmeta Vrstica in indeksne številke vrstice, ki jo želite izbrati. Naslednja koda bo izbrala prvo vrstico na vašem delovnem listu:

1	Vrstice (1). Izberite

Izberite stolpec

Izberete lahko določen stolpec na delovnem listu z uporabo predmeta Stolpec in indeksne številke stolpca, ki ga želite izbrati. Naslednja koda bo izbrala stolpec C na vašem delovnem listu:

1	Stolpci (3). Izberite

Izberite zadnjo neprazno celico v stolpcu

Recimo, da imate podatke v celicah A1, A2, A3 in A4 in želite izbrati zadnjo neprazno celico, ki bi bila celica A4 v stolpcu. Za to lahko uporabite metodo VBA in metodo Range.End.

The Metoda Range.End lahko sprejme štiri argumente, in sicer: xlToLeft, xlToRight, xlUp in xlDown.

Naslednja koda bo izbrala zadnjo prazno celico, ki bi bila v tem primeru A4, če je aktivna celica A1:

1	Obseg ("A1"). Konec (xlDown) .Izberi

Izberite zadnjo prazno celico v vrstici

Recimo, da imate podatke v celicah A1, B1, C1, D1 in E1 in bi radi izbrali zadnjo neprazno celico, ki bi bila celica E1 v vrstici. Za to lahko uporabite metodo VBA in metodo Range.End.

Naslednja koda bo izbrala zadnjo prazno celico, ki bi bila v tem primeru E1, če je aktivna celica A1:

1	Obseg ("A1"). Konec (xlToRight) .Izberi

Izberite trenutno regijo v VBA

Uporabite lahko Lastnost CurrentRegion predmeta Range, da izberete pravokotno območje praznih in nepraznih celic okoli določene vnesene celice. Če imate podatke v celicah A1, B1 in C1, bi naslednja koda izbrala to območje okoli celice A1:

1	Obseg ("A1"). CurrentRegion. Izberite

Tako bi bilo izbrano območje A1: C1.

Izberite celico, ki je sorazmerna z drugo celico

Uporabite lahko Offset lastnina za izbiro celice, ki je glede na drugo celico. Naslednja koda prikazuje, kako izbrati celico B2, ki je 1 vrstica in 1 stolpec glede na celico A1:

1	Razpon ("A1"). Odmik (1, 1). Izberite

Izberite imenovano območje v Excelu

Izberete lahko Imenovani razponi tudi. Recimo, da ste celice poimenovali A1: A4 Sadje. Za izbiro tega imenovanega obsega lahko uporabite naslednjo kodo:

1	Razpon ("Sadje"). Izberite

Izbira celice na drugem delovnem listu

Če želite izbrati celico na drugem delovnem listu, morate najprej aktivirati list z metodo Worksheets.Activate. Naslednja koda vam bo omogočila izbiro celice A7 na listu z imenom Sheet5:

12	Delovni listi ("List5"). AktivirajteRazpon ("A1"). Izberite

Upravljanje predmeta izbire v VBA

Ko izberete celico ali obseg celic, se lahko za upravljanje s temi celicami obrnete na objekt za izbiro. Naslednja koda izbere celice A1: C1 in nastavi pisavo teh celic na Arial, težo pisave na krepko, slog pisave na ležeče in barvo polnila na zeleno.

123456789

PodoblikSelection ()Razpon ("A1: C1"). IzberiteSelection.Font.Name = "Arial"Selection.Font.Bold = TrueSelection.Font.Italic = TrueSelection.Interior.Color = vbGreenEnd Sub

Rezultat je:

Uporaba programa With… End With Construct

Zgornji primer lahko ponovimo z uporabo stavka With / End With za sklicevanje na predmet izbire samo enkrat. To prihrani tipkanje in običajno olajša branje kode.

1234567891011

Sub UsingWithEndWithSelection ()Razpon ("A1: C1"). IzberiteS selekcijo.Font.Name = "Arial".Font.Bold = Res.Font.Italic = Res.Notranja barva = vbGreenKončaj sEnd Sub