Aktívna bunka VBA

Aktívna bunka znamená špecifickú bunku, ktorá je aktívna v aktuálnom aktívnom pracovnom hárku. Napríklad, ak je v hárku 2 vybratá bunka, znamená to, že aktívna bunka je B4 v hárku 2. Vo VBA používame referenciu aktívnej bunky na zmenu vlastností alebo hodnôt aktívnej bunky. ALEBO túto funkciu používame v určitých situáciách, keď potrebujeme vykonať určité zmeny v aktívnej bunke za určitých podmienok, ktoré spĺňajú požiadavky.

Aktívna bunka je vlastnosť VBA. Používame ho v rôznych situáciách vo VBA. Pomocou aktívnej bunky VBA môžeme priradiť hodnoty aktívnej bunke alebo načítať adresu aktívnej bunky. Čo sa tieto funkcie vrátili? Funkcia aktívnych buniek vracia vlastnosť range aktívnej bunky v aktívnom pracovnom hárku. Ako je vysvetlené vo vyššie uvedenom výroku v definícii, ak list 2 je aktívny a bunka B4 je aktívna bunka, funkcia aktívnej bunky vo VBA načíta vlastnosti rozsahu bunky B4 v liste 2.

Syntax aktívnej bunky v Excel VBA

Nižšie je uvedená syntax aktívnej bunky v programe Excel VBA

Syntax sa používa na priradenie určitej hodnoty k aktívnej bunke.

 Activecell.Value = ““

Syntax vyberie hodnotu alebo vlastnosť aktívnej bunky v aktívnom pracovnom hárku.

 Application.Activecell

Ak potrebujeme zmeniť písmo aktívnej bunky, potom bude nasledovať syntax

 Activecell.Font. (Požadované písmo) = True

Môžeme tiež zobraziť riadky a stĺpce aktívnej bunky pomocou nasledujúcej syntaxe

 Application.Activecell

Použime vyššie uvedenú syntax vysvetlenú v niekoľkých príkladoch a naučíme sa hrať s aktívnymi bunkami.

Poznámka: Aby ste mohli používať VBA, musíte mať povolenú kartu vývojára na karte File (Súbor) v časti Možnosti.

Príklady aktívnej bunky Excel VBA

Nasledujú rôzne príklady aktívnej bunky VBA v Exceli:

Túto šablónu aktívnej bunky Excel VBA si môžete stiahnuť tu - šablónu aktívnej bunky Excel VBA

Aktívna bunka VBA - Príklad č. 1

V tomto príklade chceme zmeniť hodnotu aktuálnej bunky pomocou niečoho. Napríklad v hárku 1 vyberte bunku A2 a vložte hodnotu ako ANAND a chceme zmeniť hodnotu pre túto aktívnu bunku ako ARAN.

Ak chcete použiť VBA Active Cell v Exceli, postupujte podľa nasledujúcich krokov.

Krok 1: Prejdite na kartu Vývojár a kliknutím na Visual Basic otvorte editor VB.

Krok 2: Kliknite na kartu Vložiť a kliknutím na moduly vložte nový modul.

Krok 3: Vyhlásením podprogramu začnete písať kód.

kód:

 Čiastková vzorka () Koniec č

Krok 4: Aktivujte hárok 1 pomocou funkcie uvedenej nižšie.

kód:

 Pracovný hárok čiastkových vzoriek () („List1“)

Krok 5: Môžeme skontrolovať, že v bunke A2 v hárku 1 máme hodnotu ako ANAND a je to aktívna bunka.

Krok 6: Teraz použite nasledujúci príkaz na zmenu hodnoty aktívnej bunky.

kód:

 Sample Sample () Pracovné hárky ("Sheet1"). Activate ActiveCell.Value = "ARAN" End Sub

Krok 7: Spustite vyššie uvedený kód z poskytnutého spúšťacieho tlačidla alebo stlačte kláves F5.

Vidíme, že hodnota v bunke A2 sa zmenila.

Aktívna bunka VBA - Príklad č. 2

Teraz sme zmenili hodnotu aktívnej bunky z ANAND na ARAN. Ako zobrazíme aktuálnu hodnotu aktívnej bunky? Toto sa naučíme v tomto príklade.

Ak chcete použiť VBA Active Cell v Exceli, postupujte podľa nasledujúcich krokov.

Krok 1: Prejdite na kartu vývojára a kliknutím na Visual Basic otvorte editor VB.

Krok 2: V tom istom module deklarujte subfunkciu na spustenie zápisu kódu.

kód:

 Čiastková vzorka1 () Koncová čiastková č

Krok 3: Aktivujte list 1 pomocou nasledujúceho kódu.

kód:

 Sample1 () Pracovné hárky („Sheet1“). Aktivácia End Sub

Krok 4: Teraz si zvolíme aktívnu bunku podľa nasledujúceho kódu.

kód:

 Sub Sample1 () Pracovné hárky ("List1"). Aktivovať Set selectedCell = Application.ActiveCell End Sub

Krok 5: Teraz zobrazme hodnotu vybranej bunky pomocou nasledujúceho kódu.

kód:

 Sub Sample1 () Pracovné hárky ("Sheet1"). Aktivovať Set selectedCell = Application.ActiveCell MsgBox selectedCell.Value End Sub

Krok 6: Spustite vyššie uvedený kód stlačením klávesu F5 alebo pomocou poskytnutého tlačidla spustenia a pozrite si nasledujúci výsledok.

Aktívna bunka bola A2 a má hodnotu ako ARAN, takže zobrazená vlastnosť je ARAN.

Aktívna bunka VBA - Príklad č

Zmeňte písmo bunky A2, ktorá bola vybranou bunkou. Urobme font ako BOLD. Spočiatku nebolo vybraté žiadne písmo.

Ak chcete použiť VBA Active Cell v Exceli, postupujte podľa nasledujúcich krokov.

Krok 1: Prejdite na kartu Vývojár a kliknutím na položku Visual Basic otvorte editor VB.

Krok 2: V tom istom module deklarujte subfunkciu na spustenie zápisu kódu.

kód:

 Čiastková vzorka 2 () Koniec č

Krok 3: Najprv aktivujte pracovný hárok, aby sme mohli používať aktívnu bunku.

kód:

 Sub Sample2 () Pracovné hárky („List1“). Aktivácia End Sub

Krok 4: Zmeňte písmo vybranej bunky pomocou nasledujúceho kódu.

kód:

 Sub Sample2 () Pracovné hárky ("List1"). Aktivovať ActiveCell.Font.Bold = True End Sub

Krok 5: Spustite vyššie uvedený kód stlačením klávesu F5 alebo pomocou poskytnutého tlačidla spustenia a pozrite si výsledok.

Písmo aktívnej bunky sa zmení na BOLD.

Aktívna bunka VBA - Príklad č. 4

Teraz chceme vedieť, v ktorom riadku alebo v akom stĺpci je aktuálne aktívna bunka. Ako to urobiť, sa naučíme v tomto príklade.

Ak chcete použiť VBA Active Cell v Exceli, postupujte podľa nasledujúcich krokov.

Krok 1: Prejdite na kartu Vývojár a kliknutím na položku Visual Basic otvorte editor VB.

Krok 2: V tom istom module deklarujte subfunkciu na spustenie zápisu kódu.

kód:

 Čiastková vzorka 3 () Koniec č

Krok 3: Najprv aktivujte pracovný hárok, aby sme mohli využívať aktívne vlastnosti buniek.

kód:

 Sample3 () Pracovné hárky („Sheet1“). Aktivácia End Sub

Krok 4: Teraz vyberieme aktívnu bunku podľa nasledujúceho kódu.

kód:

 Sub Sample3 () Pracovné hárky ("List1"). Aktivovať Set selectedCell = Application.ActiveCell End Sub

Krok 5: Teraz môžeme zobraziť nasledujúci riadok aktívnej bunky pomocou nasledujúceho kódu.

kód:

 Sub Sample3 () Pracovné hárky ("List1"). Aktivovať Set selectedCell = Application.ActiveCell MsgBox selectedCell.Row End Sub

Krok 6: Aktuálny stĺpec aktívnej bunky môžeme získať aj pomocou nasledujúceho kódu.

kód:

 Sub Sample3 () Pracovné hárky ("List1"). Aktivovať Set selectedCell = Application.ActiveCell MsgBox selectedCell.Row MsgBox selectedCell.Column End Sub Sub

Krok 7: Teraz stlačte kláves F5 alebo poskytnuté tlačidlo spustenia, aby ste spustili vyššie uvedený kód a videli nasledujúci výsledok.

Vyššie uvedený výsledok bol rad aktívnych buniek. Stlačením tlačidla Ok zobrazíte stĺpec aktívnej bunky.

Čo je potrebné pamätať

Existuje niekoľko vecí, ktoré si musíme pamätať o aktívnej bunke vo VBA:

  • Aktívna bunka je aktuálne aktívna alebo vybraná bunka v ľubovoľnom pracovnom hárku.
  • Môžeme zobraziť alebo zmeniť vlastnosti aktívnej adresy bunky vo VBA.
  • Aby sme mohli využívať vlastnosti aktívnej bunky, musíme najskôr aktivovať aktuálny pracovný hárok.

Odporúčané články

Toto bol sprievodca aktívnej bunky Excel VBA. Diskutovali sme o tom, ako pomocou vlastnosti VBA Active Cell priradiť hodnotu alebo načítať adresu aktívnej bunky v Exceli, spolu s niekoľkými praktickými príkladmi a šablónou Excel na stiahnutie. Môžete si tiež prečítať naše ďalšie navrhované články -

  1. Použitie VBA IFError v Exceli
  2. Ako používať zmrazené tabule programu Excel?
  3. Výukové programy o VBA Paste
  4. Prispôsobte a používajte stavový riadok v Exceli

Kategórie:

VBA