VBA Vyberte rozsah / buňky

VBA vám umožňuje vybrat buňku, rozsahy buněk nebo všechny buňky v listu. S vybranou buňkou nebo rozsahem můžete manipulovat pomocí objektu výběru.

Vyberte jednu buňku pomocí VBA

Buňku v listu můžete vybrat pomocí metody Select. Následující kód vybere buňku A2 v listu ActiveWorksheet:

1	Rozsah („A2“). Vyberte

Nebo

1	Buňky (2, 1). Vyberte

Výsledek je:

Vyberte rozsah buněk pomocí VBA

Skupinu buněk v listu můžete vybrat pomocí metody Select a objektu Range. Následující kód vybere A1: C5:

1	Rozsah („A1: C5“). Vyberte

Vyberte rozsah nesouvislých buněk pomocí VBA

Buňky nebo rozsahy, které nejsou vedle sebe, můžete vybrat oddělením buněk nebo rozsahů čárkou ve VBA. Následující kód vám umožní vybrat buňky A1, C1 a E1:

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

Můžete také vybrat sady nesouvislých rozsahů ve VBA. Následující kód vybere A1: A9 a B11: B18:

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

Vyberte všechny buňky v listu

Pomocí VBA můžete vybrat všechny buňky v listu. Následující kód vybere všechny buňky v listu.

1	Buňky. Vyberte

Vyberte řádek

Můžete vybrat určitý řádek v listu pomocí objektu Řádek a indexového čísla řádku, který chcete vybrat. Následující kód vybere první řádek v listu:

1	Řádky (1). Vyberte

Vyberte sloupec

Můžete vybrat určitý sloupec v listu pomocí objektu Column a indexového čísla sloupce, který chcete vybrat. Následující kód vybere sloupec C v listu:

1	Sloupce (3). Vyberte

Vyberte poslední neprázdnou buňku ve sloupci

Řekněme, že máte data v buňkách A1, A2, A3 a A4 a chtěli byste vybrat poslední neprázdnou buňku, kterou by byla buňka A4 ve sloupci. K tomu můžete použít VBA a metodu Range.End.

The Rozsah. Koncová metoda může mít čtyři argumenty, konkrétně: xlToLeft, xlToRight, xlUp a xlDown.

Následující kód vybere poslední neprázdnou buňku, která by v tomto případě byla A4, pokud je aktivní buňkou A1:

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

Vyberte poslední neprázdnou buňku v řádku

Řekněme, že máte data v buňkách A1, B1, C1, D1 a E1 a chcete vybrat poslední neprázdnou buňku, kterou by byla buňka E1 v řádku. K tomu můžete použít VBA a metodu Range.End.

Následující kód vybere poslední neprázdnou buňku, která by v tomto případě byla E1, pokud je aktivní buňkou A1:

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

Vyberte aktuální oblast ve VBA

Můžete použít Vlastnost CurrentRegion objektu rozsahu za účelem výběru obdélníkového rozsahu prázdných a neprázdných buněk kolem konkrétní dané vstupní buňky. Pokud máte data v buňce A1, B1 a C1, následující kód by vybral tuto oblast kolem buňky A1:

1	Rozsah („A1“). CurrentRegion. Vyberte

Byl by tedy vybrán rozsah A1: C1.

Vyberte buňku, která je relativní k jiné buňce

Můžete použít Ofsetová nemovitost vyberte buňku, která je relativní k jiné buňce. Následující kód ukazuje, jak vybrat buňku B2, která je 1 řádek a 1 sloupec vzhledem k buňce A1:

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

Vyberte pojmenovaný rozsah v aplikaci Excel

Můžete vybrat Pojmenované rozsahy také. Řekněme, že jste pojmenovali buňky A1: A4 Ovoce. K pojmenování tohoto pojmenovaného rozsahu můžete použít následující kód:

1	Rozsah („Ovoce“). Vyberte

Výběr buňky na jiném listu

Abyste mohli vybrat buňku na jiném listu, musíte list nejprve aktivovat pomocí metody Worksheets.Activate. Následující kód vám umožní vybrat buňku A7 na listu s názvem Sheet5:

12	Pracovní listy („List 5“). AktivujteRozsah („A1“). Vyberte

Manipulace s objektem výběru ve VBA

Jakmile vyberete buňku nebo rozsah buněk, můžete se obrátit na objekt výběru, abyste s těmito buňkami mohli manipulovat. Následující kód vybere buňky A1: C1 a nastaví písmo těchto buněk na Arial, tloušťku písma na tučné, styl písma kurzívou a barvu výplně na zelenou.

123456789

Výběr dílčího formátu ()Rozsah („A1: C1“). VyberteSelection.Font.Name = "Arial"Selection.Font.Bold = TrueSelection.Font.Italic = TrueSelection.Interior.Color = vbGreenEnd Sub

Výsledek je:

Použití funkce With… End With Construct

Výše uvedený příklad můžeme zopakovat pomocí příkazu With / End With, abychom odkazovali na objekt výběru pouze jednou. To šetří psaní a obvykle usnadňuje čtení kódu.

1234567891011

Sub UsingWithEndWithSelection ()Rozsah („A1: C1“). VyberteS výběrem.Font.Name = "Arial".Font.Bold = True.Font.Italic = True.Interior.Color = vbGreenKonec sEnd Sub