VBA Celulă activă

Celulă activă înseamnă celula specifică care este activă în foaia de lucru activă curentă. De exemplu, dacă în foaia 2 este selectată celula B4 înseamnă că celula activă este B4 în foaia 2. În VBA folosim o referință a celulei active pentru a schimba proprietățile sau valorile celulei active. SAU folosim această funcție în anumite situații atunci când trebuie să facem unele modificări în celula activă în anumite condiții care îndeplinesc cerințele.

Celula activă este o proprietate în VBA. Îl folosim în diferite situații în VBA. Putem atribui valori unei celule active folosind funcția VBA Active Cell sau să aducem adresa celulei active. Ce s-au întors aceste funcții? Funcția celulelor active returnează proprietatea intervalului celulei active din foaia de lucru activă. Așa cum s-a explicat în afirmația de mai sus, în definiție, dacă foaia 2 este activă și celula B4 este celulă activă, funcția de celulă activă în VBA va obține proprietățile intervalului celulei B4 în foaia 2.

Sintaxa celulei active în Excel VBA

Mai jos este sintaxa de Cell Active în Excel VBA

Sintaxa este utilizată pentru a atribui o anumită valoare celulei active.

 Activecell.Value = ""

Sintaxa va selecta valoarea sau proprietatea celulei active din foaia de lucru activă.

 Application.Activecell

Dacă trebuie să schimbăm fontul celulei active, sintaxa va fi după cum urmează

 Activecell.Font. (Fontul dorit) = True

De asemenea, putem afișa rândurile și coloana celulei active folosind următoarea sintaxă

 Application.Activecell

Să folosim sintaxa de mai sus explicată în câteva exemple și să învățăm cum să jucăm cu celulele active.

Notă: Pentru a utiliza VBA, asigurați-vă că aveți activat fila dezvoltatorului din fila Fișier din secțiunea de opțiuni.

Exemple de celule active VBA Excel

Mai jos sunt diferite exemple de celule VBA active în Excel:

Puteți descărca acest șablon Excel pentru celule active VBA aici - șablonul Excel pentru celule active VBA

Celulă activă VBA - Exemplul # 1

În acest exemplu, vrem să schimbăm valoarea celulei curente cu o celulă ceva. De exemplu în foaia 1, selectăm celula A2 și introducem valoarea ca ANAND și dorim să schimbăm valoarea pentru celula activă ca ARAN.

Urmați pașii de mai jos pentru a utiliza celula activă VBA în Excel.

Pasul 1: Accesați fila Dezvoltatorului și faceți clic pe Visual Basic pentru a deschide VB Editor.

Pasul 2: Faceți clic pe fila Insert și faceți clic pe module pentru a insera un nou modul.

Pasul 3: Declarați o sub-funcție pentru a începe să scrieți codul.

Cod:

 Sub eșantion () End Sub

Pasul 4: Activați foaia de lucru 1 utilizând funcția de mai jos.

Cod:

 Sub Eșantion () Fișe de lucru („Foaie1”)

Pasul 5: Putem verifica dacă în celula A2 din foaia 1 avem valoarea ca ANAND și este celula activă.

Pasul 6: Folosiți următoarea instrucțiune pentru a modifica valoarea celulei active.

Cod:

 Sub Eșantion () Fișe de lucru ("Foaie1"). Activare ActiveCell.Value = "ARAN" End Sub

Pasul 7: Rulați codul de mai sus din butonul de rulare furnizat sau apăsați F5.

Putem vedea că valoarea din celula A2 a fost modificată.

Celulă activă VBA - Exemplul # 2

Acum am schimbat valoarea celulei active de la ANAND la ARAN. Cum afișăm valoarea curentă a celulei active? Acest lucru îl vom învăța în acest exemplu.

Urmați pașii de mai jos pentru a utiliza celula activă VBA în Excel.

Pasul 1: Accesați fila dezvoltatorului și faceți clic pe Visual Basic pentru a deschide VB Editor.

Pasul 2: În același modul declarați o sub-funcție pentru a începe să scrieți codul.

Cod:

 Sub Eșantion1 () Final Sub

Pasul 3: Activați foaia de lucru 1 cu următorul cod.

Cod:

 Sub Eșantion1 () Fișe de lucru („Foaie1”)

Pasul 4: Să selectăm acum celula activă după următorul cod.

Cod:

 Sub Eșantion1 () Fișe de lucru ("Foaie1"). Activați Setul selectatCell = Aplicație.ActiveCell Sub

Pasul 5: Să afișăm acum valoarea celulei selectate prin următorul cod.

Cod:

 Sub Eșantion1 () Fișe de lucru („Foaie1”). Activare Set selectCell = Application.ActiveCell MsgBox selectatCell.Value End Sub

Pasul 6: Rulați codul de mai sus apăsând F5 sau pe butonul de rulare furnizat și vedeți următorul rezultat.

Celula activă a fost A2 și are valoarea ca ARAN, deci proprietatea afișată este ARAN.

Celulă activă VBA - Exemplul # 3

Să schimbăm fontul celulei A2 care a fost celula selectată. Să facem fontul ca BOLD. Inițial, nu a fost selectat un font.

Pentru aceasta, urmați pașii de mai jos pentru a utiliza celula activă VBA în Excel.

Pasul 1: Accesați fila Dezvoltatorului și faceți clic pe Visual Basic pentru a deschide VB Editor.

Pasul 2: În același modul declarați o sub-funcție pentru a începe să scrieți codul.

Cod:

 Sub Eșantion2 () Final Sub

Pasul 3: Să activăm mai întâi foaia de lucru pentru a utiliza celula activă.

Cod:

 Sub Eșantion2 () Fișe de lucru („Foaie1”)

Pasul 4: Să schimbăm fontul celulei selectate cu următorul cod.

Cod:

 Sub Exemplu 2 () Fișe de lucru ("Foaie1"). Activare ActiveCell.Font.Bold = Sub final final

Pasul 5: Rulați codul de mai sus apăsând F5 sau pe butonul de rulare furnizat și vedeți rezultatul.

Fontul celulei active este schimbat în BOLD.

Celulă activă VBA - Exemplul # 4

Acum vrem să știm în ce rând sau în ce coloană se află celula activă în prezent. Cum să facem acest lucru vom învăța în acest exemplu.

Pentru aceasta, urmați pașii de mai jos pentru a utiliza celula activă VBA în Excel.

Pasul 1: Accesați fila Dezvoltatorului și faceți clic pe Visual Basic pentru a deschide editorul VB.

Pasul 2: În același modul declarați o sub-funcție pentru a începe să scrieți codul.

Cod:

 Sub Eșantion3 () Final Sub

Pasul 3: Să activăm mai întâi foaia de lucru pentru a utiliza proprietățile active ale celulei.

Cod:

 Sub Eșantion 3 () Fișe de lucru („Foaie1”)

Pasul 4: Acum selectăm celula activă după următorul cod.

Cod:

 Sub Eșantion 3 () Fișe de lucru ("Foaie1"). Activați Setul selectatCell = Application.ActiveCell End Sub

Pasul 5: Acum putem afișa rândul curent al celulei active prin următorul cod.

Cod:

 Sub Eșantion 3 () Fișe de lucru („Foaie1”). Activare Set selectCell = Application.ActiveCell MsgBox selectCell.Row Sub Sub

Pasul 6: De asemenea, putem obține coloana curentă a celulei active prin următorul cod.

Cod:

 Sub Exemplu3 () Fișe de lucru ("Foaie1"). Activare Set selectCell = Application.ActiveCell MsgBox selectatCell.Row MsgBox selectatCell.Column End Sub

Pasul 7: Acum apăsați F5 sau butonul de rulare furnizat pentru a rula codul de mai sus și vedeți rezultatul următor.

Rezultatul de mai sus a fost rândul celulei active. Apăsați ok pentru a vedea coloana celulei active.

Lucruri de amintit

Există câteva lucruri pe care trebuie să le amintim despre celulele active din VBA:

  • Celula activă este celula activă sau selectată în orice foaie de lucru.
  • Putem afișa sau modifica proprietățile adresei celulei active în VBA.
  • Pentru a utiliza proprietățile celulei active, trebuie să activăm mai întâi foaia de lucru curentă.

Articole recomandate

Acesta a fost un ghid pentru Excel VBA Cell Cell. Aici am discutat despre cum să utilizăm proprietatea VBA Active Cell pentru a atribui valoare sau a prelua adresa celulei active în Excel împreună cu câteva exemple practice și șablonul excel descărcabil. De asemenea, puteți parcurge și alte articole sugerate -

  1. Utilizarea VBA IFError în Excel
  2. Cum să folosiți panouri de congelare Excel?
  3. Tutoriale pe VBA Paste
  4. Personalizați și utilizați bara de stare în Excel

Categorie:

VBA