Vyberte rozsah / bunky VBA

VBA vám umožňuje vybrať bunku, rozsahy buniek alebo všetky bunky v pracovnom hárku. S vybranou bunkou alebo rozsahom môžete manipulovať pomocou objektu výberu.

Vyberte jednu bunku pomocou VBA

Bunku v pracovnom hárku môžete vybrať pomocou metódy Vybrať. Nasledujúci kód vyberie bunku A2 v hárku ActiveWorks:

1	Rozsah („A2“). Vyberte

Alebo

1	Bunky (2, 1). Vyberte

Výsledkom je:

Vyberte rozsah buniek pomocou VBA

Skupinu buniek v hárku môžete vybrať pomocou metódy Select a objektu Range. Nasledujúci kód vyberie A1: C5:

1	Rozsah („A1: C5“). Vyberte

Vyberte rozsah nesúvislých buniek pomocou VBA

Bunky alebo rozsahy, ktoré nie sú vedľa seba, môžete vybrať oddelením buniek alebo rozsahov čiarkou vo VBA. Nasledujúci kód vám umožní vybrať bunky A1, C1 a E1:

1	Rozsah („A1, C1, E1“). Vyberte

Môžete tiež vybrať sady nesúvislých rozsahov vo VBA. Nasledujúci kód vyberie A1: A9 a B11: B18:

1	Rozsah („A1: A9, B11: B18“). Vyberte

Vyberte všetky bunky v pracovnom hárku

Všetky bunky v hárku môžete vybrať pomocou VBA. Nasledujúci kód vyberie všetky bunky v hárku.

1	Bunky. Vyberte

Vyberte riadok

Určitý riadok v hárku môžete vybrať pomocou objektu Riadok a indexového čísla riadka, ktorý chcete vybrať. Nasledujúci kód vyberie prvý riadok v hárku:

1	Riadky (1). Vyberte

Vyberte stĺpec

Určitý stĺpec v hárku môžete vybrať pomocou objektu Stĺpec a indexového čísla stĺpca, ktorý chcete vybrať. Nasledujúci kód vyberie stĺpec C vo vašom pracovnom hárku:

1	Stĺpce (3). Vyberte

Vyberte poslednú prázdnu bunku v stĺpci

Povedzme, že máte údaje v bunkách A1, A2, A3 a A4 a chceli by ste vybrať poslednú prázdnu bunku, ktorou by bola bunka A4 v stĺpci. Na to môžete použiť VBA a metódu Range.End.

The Rozsah. Koncová metóda môže mať štyri argumenty, a to: xlToLeft, xlToRight, xlUp a xlDown.

Nasledujúci kód vyberie poslednú prázdnu bunku, ktorá by v tomto prípade bola A4, ak je aktívna bunka A1:

1	Rozsah („A1“). Koniec (xlDown). Vyberte

Vyberte poslednú prázdnu bunku v riadku

Povedzme, že máte údaje v bunkách A1, B1, C1, D1 a E1 a chceli by ste vybrať poslednú prázdnu bunku, ktorou by bola bunka E1 v riadku. Na to môžete použiť VBA a metódu Range.End.

Nasledujúci kód vyberie poslednú prázdnu bunku, ktorá by v tomto prípade bola E1, ak je aktívna bunka A1:

1	Rozsah („A1“). Koniec (xlToRight). Vyberte

Vyberte aktuálnu oblasť vo VBA

Môžete použiť Vlastnosť CurrentRegion objektu Range, aby sa vybral obdĺžnikový rozsah prázdnych a prázdnych buniek okolo konkrétnej danej vstupnej bunky. Ak máte údaje v bunke A1, B1 a C1, nasledujúci región by vybral túto oblasť okolo bunky A1:

1	Rozsah („A1“). CurrentRegion. Vyberte

Vyberie sa teda rozsah A1: C1.

Vyberte bunku, ktorá je príbuzná inej bunke

Môžete použiť Ofsetová nehnuteľnosť vyberte bunku, ktorá je relatívna k inej bunke. Nasledujúci kód ukazuje, ako vybrať bunku B2, ktorá je 1 riadkom a 1 stĺpcom vzhľadom na bunku A1:

1	Rozsah („A1“). Ofset (1, 1). Vyberte

Vyberte pomenovaný rozsah v programe Excel

Môžete si vybrať Pomenované rozsahy tiež. Povedzme, že ste pomenovali bunky A1: A4 Ovocie. Na pomenovanie tohto rozsahu môžete použiť nasledujúci kód:

1	Rozsah („Ovocie“). Vyberte

Výber bunky v inom pracovnom hárku

Aby ste mohli vybrať bunku v inom pracovnom hárku, musíte ho najskôr aktivovať pomocou metódy Worksheets.Activate. Nasledujúci kód vám umožní vybrať bunku A7 na hárku s názvom List5:

12	Pracovné listy („List5“). AktivujteRozsah („A1“). Vyberte

Manipulácia s výberovým objektom vo VBA

Keď vyberiete bunku alebo rozsah buniek, môžete sa obrátiť na objekt výberu, aby ste s týmito bunkami mohli manipulovať. Nasledujúci kód vyberie bunky A1: C1 a nastaví písmo týchto buniek na Arial, hmotnosť písma na tučné, štýl písma kurzívou a farbu výplne na zelenú.

123456789

Podformátový výber ()Rozsah („A1: C1“). VyberteSelection.Font.Name = "Arial"Selection.Font.Bold = TrueSelection.Font.Italic = TrueSelection.Interior.Color = vbGreenKoniec pod

Výsledkom je:

Použitie s … Koniec s konštrukciou

Vyššie uvedený príklad môžeme zopakovať pomocou príkazu With / End With na odkazovanie na výberový objekt iba raz. Šetrí to písanie a zvyčajne uľahčuje čítanie kódu.

1234567891011

Sub UsingWithEndWithSelection ()Rozsah („A1: C1“). VyberteS výberom.Font.Name = "Arial".Font.Bold = Pravda.Font.Italic = Pravda.Interior.Color = vbGreenUkončiť sKoniec pod