Aktívna bunka v programe Excel VBA
Aktívna bunka je aktuálne vybraná bunka v pracovnom hárku, aktívna bunka vo VBA sa môže použiť ako referencia na presun do inej bunky alebo na zmenu vlastností tej istej aktívnej bunky alebo odkaz na bunku poskytnutý z aktívnej bunky, aktívna bunka vo VBA môže byť prístupné pomocou metódy application.property s kľúčovým slovom active cell.
Aby ste mohli efektívne pracovať s kódovaním VBA, je dôležité porozumieť konceptu rozsahu objektov a vlastností buniek vo VBA. V týchto konceptoch je ešte jeden koncept, ktorý je potrebné preskúmať, a to „VBA Active Cell“.
V programe Excel existujú milióny buniek a nepochybne máte pochybnosti o tom, ktoré z nich sú aktívne bunky. Napríklad sa pozrite na obrázok nižšie.
Na samotnom obrázku vyššie máme veľa buniek. Ak chcete zistiť, ktorá z nich je aktívna bunka, je veľmi jednoduché, bez ohľadu na to, ktorá bunka je práve vybratá. Vo VBA sa nazýva „Aktívna bunka“.
Ak vaša aktívna bunka nie je vo vašom okne viditeľná, pozrite sa do poľa s názvom a zobrazí sa vám adresa aktívnej bunky. Na obrázku vyššie je aktívna adresa bunky B3.
Aj keď je veľa buniek vybratých ako rad buniek, nech je prvá bunka kdekoľvek, z výberu sa stane aktívna bunka. Napríklad sa pozrite na obrázok nižšie.
# 1 - Odkazy v Exceli VBA
V našich predchádzajúcich článkoch sme videli, ako odkazovať na bunky vo VBA. Vlastnosťou Aktívna bunka môžeme označiť bunku.
Napríklad, ak chceme vybrať bunku A1 a vložiť hodnotu „Hello“, môžeme ju napísať dvoma spôsobmi. Ďalej je uvedený spôsob výberu bunky a vloženia hodnoty pomocou objektu VBA „RANGE“
Kód:
Sub ActiveCell_Example1 () Range ("A1"). Vyberte Range ("A1"). Hodnota = "Hello" End Sub
Najprv sa vyberie bunka A1 „ Rozsah („ A1 “). Vyberte ”
Potom vloží hodnotu „Hello“ do rozsahu bunky A1 („A1“). Value = „Hello“
Teraz odstránim riadok Range („A1“). Hodnota = „Dobrý deň“ a na vloženie hodnoty použite vlastnosť Aktívna bunka.
Kód:
Sub ActiveCell_Example1 () Range ("A1"). Vyberte ActiveCell.Value = "Hello" End Sub
Podobne najskôr vyberie bunku A1 „ Rozsah („ A1 “). Vyberte ”
Ale tu som namiesto Range (“A1”) použil ActiveCell.Value = “Hello” . Value = “Hello”
Dôvod, prečo som použil vlastnosť Active Cell, pretože v okamihu, keď vyberiem bunku A1, stane sa z nej aktívna bunka. Na vloženie hodnoty teda môžeme použiť vlastnosť Excel VBA Active Cell.
# 2 - Aktívna adresa bunky, hodnota, riadok a číslo stĺpca
Aby sme to ešte lepšie pochopili, ukážme si v okne správy adresu aktívnej bunky. Teraz sa pozrite na obrázok nižšie.
Na obrázku vyššie je aktívna bunka „B3“ a hodnota je 55. Napíšeme kód do VBA, aby sme získali adresu aktívnej bunky.
Kód:
Sub ActiveCell_Example2 () MsgBox ActiveCell.Address End Sub
Tento kód spustite pomocou klávesu F5 alebo manuálne. Potom zobrazí adresu aktívnej bunky v schránke správ.
Výkon:
Podobne sa v nasledujúcom kóde zobrazí hodnota aktívnej bunky.
Kód:
Sub ActiveCell_Example2 () MsgBox ActiveCell.Value End Sub
Výkon:
Nasledujúci kód zobrazí číslo riadku aktívnej bunky.
Kód:
Sub ActiveCell_Example2 () MsgBox ActiveCell.Row End Sub
Výkon:
Nasledujúci kód zobrazí číslo stĺpca aktívnej bunky.
Kód:
Sub ActiveCell_Example2 () MsgBox ActiveCell.Column End Sub
Výkon:
# 3 - Parametre aktívnej bunky v programe Excel VBA
Vlastnosť aktívna bunka má tiež parametre. Po zadaní vlastnosti program ActiveCell otvorí zátvorku, aby sa zobrazili parametre.
Pomocou tohto parametra môžeme odkázať aj na inú bunku.
Napríklad ActiveCell (1,1) znamená, ktorá bunka je aktívna. Ak sa chcete presunúť o jeden riadok nižšie, môžete použiť ActiveCell (2,1). Tu 2 neznamená posun o dva riadky nižšie, ale iba o jeden riadok nadol. Podobne, ak chcete presunúť jeden stĺpec doprava, jedná sa o kód ActiveCell (2,2)
Napríklad sa pozrite na obrázok nižšie.
Na vyššie uvedenom obrázku je aktívnou bunkou A2. Ak chcete vložiť hodnotu do aktívnej bunky, napíšete tento kód.
Kód:
ActiveCell.Value = “Hiiii” alebo ActiveCell (1,1). Value = “Hiiii”
Tento kód spustite manuálne alebo pomocou klávesu F5. Týmto sa do bunky vloží hodnota „Hiiii“.
Ak teraz chcete vložiť rovnakú hodnotu do bunky nižšie, môžete použiť tento kód.
Kód:
ActiveCell (2,1) .Hodnota = „Hiiii“
Týmto sa vloží hodnota do bunky pod aktívnou bunkou.
Ak chcete vložiť hodnotu do jedného stĺpca práve potom, môžete použiť tento kód.
Kód:
ActiveCell (1,2). Hodnota = „Hiiii“
Týmto sa do ďalšej bunky stĺpca aktívnej bunky vloží „Hiiii“.
Takto môžeme odkazovať na bunky vo VBA pomocou vlastnosti Active Cell.
Dúfam, že sa vám páčilo. Ďakujeme za váš čas, ktorý ste s nami strávili.
Tu si môžete stiahnuť šablónu VBA Active Cell Excel tu: - Šablóna VBA Active Cell Excel
