Aktivní buňka v aplikaci Excel VBA
Aktivní buňka je aktuálně vybraná buňka v listu, aktivní buňka ve VBA může být použita jako reference pro přesun do jiné buňky nebo pro změnu vlastností stejné aktivní buňky nebo odkaz na buňku poskytnutý z aktivní buňky, aktivní buňka ve VBA může být přístupné pomocí metody application.property s klíčovým slovem aktivní buňka.
Abychom mohli efektivně pracovat s kódováním VBA, je důležité porozumět konceptu vlastností rozsahu objektu a buňky ve VBA. V těchto konceptech je ještě jeden koncept, na který se musíte podívat, a to „VBA Active Cell“.
V aplikaci Excel existují miliony buněk a jistě pochybujete o tom, která z nich je aktivní buňka. Podívejte se například na obrázek níže.
Ve výše uvedeném obrázku máme mnoho buněk. Chcete-li zjistit, která z nich je aktivní buňkou, je velmi jednoduché, ať už je buňka vybrána právě teď. Ve VBA se tomu říká „Aktivní buňka“.
Pokud vaše aktivní buňka není v okně viditelná, podívejte se do pole pro název a zobrazí se vám adresa aktivní buňky. Na obrázku výše je aktivní adresa buňky B3.
I když je mnoho buněk vybráno jako řada buněk, bez ohledu na to, kde je první buňka, stane se výběr aktivní buňkou. Podívejte se například na obrázek níže.
# 1 - Odkazy v aplikaci Excel VBA
V našich dřívějších článcích jsme viděli, jak odkazovat na buňky ve VBA. Vlastností Aktivní buňka můžeme odkazovat na buňku.
Například pokud chceme vybrat buňku A1 a vložit hodnotu „Hello“, můžeme ji napsat dvěma způsoby. Níže je uveden způsob výběru buňky a vložení hodnoty pomocí objektu VBA „RANGE“
Kód:
Sub ActiveCell_Example1 () Range ("A1"). Vyberte Range ("A1"). Value = "Hello" End Sub
Nejprve vyberete buňku A1 „ Range („ A1 “). Vybrat"
Poté vloží hodnotu „Hello“ do rozsahu buňky A1 („A1“). Value = „Hello“
Nyní odstraním řádek Range („A1“). Hodnota = „Dobrý den“ a k vložení hodnoty použijte vlastnost Aktivní buňka.
Kód:
Sub ActiveCell_Example1 () Range ("A1"). Vyberte ActiveCell.Value = "Hello" End Sub
Podobně nejprve vybere buňku A1 „ Rozsah („ A1 “). Vybrat"
Ale tady jsem použil ActiveCell.Value = “Hello” místo Range (“A1”). Value = “Hello”
Důvod, proč jsem použil vlastnost Aktivní buňka, protože v okamžiku, kdy vyberu buňku A1, se stane aktivní buňkou. K vložení hodnoty tedy můžeme použít vlastnost Excel VBA Active Cell.
# 2 - Aktivní adresa buňky, hodnota, řádek a číslo sloupce
Abychom tomu ještě lépe porozuměli, ukážeme si adresu aktivní buňky v okně se zprávou. Nyní se podívejte na obrázek níže.
Na výše uvedeném obrázku je aktivní buňka „B3“ a hodnota je 55. Napíšeme kód do VBA, abychom získali adresu aktivní buňky.
Kód:
Sub ActiveCell_Example2 () MsgBox ActiveCell.Address End Sub
Spusťte tento kód pomocí klávesy F5 nebo ručně. Poté zobrazí adresu aktivní buňky v okně se zprávou.
Výstup:
Podobně níže uvedený kód zobrazí hodnotu aktivní buňky.
Kód:
Sub ActiveCell_Example2 () MsgBox ActiveCell.Value End Sub
Výstup:
Níže uvedený kód zobrazí číslo řádku aktivní buňky.
Kód:
Sub ActiveCell_Example2 () MsgBox ActiveCell.Row End Sub
Výstup:
Níže uvedený kód zobrazí číslo sloupce aktivní buňky.
Kód:
Sub ActiveCell_Example2 () MsgBox ActiveCell.Column End Sub
Výstup:
# 3 - Parametry aktivní buňky v aplikaci Excel VBA
Vlastnost aktivní buňka má také parametry. Po zadání vlastnosti otevře ActiveCell závorky, aby se zobrazily parametry.
Pomocí tohoto parametru můžeme odkazovat také na jinou buňku.
Například ActiveCell (1,1) znamená, která buňka je aktivní. Pokud se chcete přesunout o jeden řádek dolů, můžete použít ActiveCell (2,1). Tady 2 neznamená posun dolů o dva řádky, spíše jen o jeden řádek dolů. Podobně, pokud chcete přesunout jeden sloupec doprava, pak se jedná o kód ActiveCell (2,2)
Podívejte se například na obrázek níže.
Na výše uvedeném obrázku je aktivní buňkou A2. Chcete-li vložit hodnotu do aktivní buňky, napíšete tento kód.
Kód:
ActiveCell.Value = „Hiiii“ nebo ActiveCell (1,1) .Value = „Hiiii“
Spusťte tento kód ručně nebo pomocí klávesy F5. Tím se do buňky vloží hodnota „Hiiii“.
Nyní, pokud chcete vložit stejnou hodnotu do buňky níže, můžete použít tento kód.
Kód:
ActiveCell (2,1) .Value = „Hiiii“
Tím se vloží hodnota do buňky pod aktivní buňkou.
Pokud chcete vložit hodnotu do jednoho sloupce vpravo, můžete použít tento kód.
Kód:
ActiveCell (1,2) .Value = „Hiiii“
Tím se vloží „Hiiii“ do další buňky sloupce aktivní buňky.
Takto můžeme odkazovat na buňky ve VBA pomocí vlastnosti Active Cell.
Doufám, že se vám to líbilo. Děkujeme za váš čas strávený s námi.
Šablonu Excel VBA Active Cell Excel si můžete stáhnout zde: - Šablona VBA Active Cell Excel
