VBA Active Cell

Aktivna ćelija znači određenu ćeliju koja je aktivna u trenutnom aktivnom radnom listu. Na primjer, ako je na listu 2 odabrana ćelija B4 znači da je aktivna ćelija B4 u listu 2. U VBA koristimo referencu aktivne ćelije za promjenu svojstava ili vrijednosti aktivne ćelije. ILI koristimo ovu funkciju u određenim situacijama kada je potrebno izvršiti neke promjene u aktivnoj ćeliji pod određenim uvjetima koji zadovoljavaju uvjete.

Aktivna ćelija je svojstvo u VBA. Koristimo ga u različitim situacijama u VBA. Aktivnoj ćeliji možemo dodijeliti vrijednosti pomoću funkcije VBA Active Cell ili dohvatiti adresu aktivne ćelije. Što su se te funkcije vratile? Aktivna funkcija ćelije vraća svojstvo raspona aktivne ćelije u aktivnom listu. Kao što je objašnjeno u gornjoj tvrdnji u definiciji, ako je list 2 aktivan, a ćelija B4 je aktivna ćelija, funkcija aktivne stanice u VBA donijet će svojstva raspona ćelije B4 u listu 2.

Sintaksa aktivne ćelije u Excelu VBA

Ispod je sintaksa aktivne ćelije u Excelu VBA

Sintaksa se koristi za dodjeljivanje određene vrijednosti aktivnoj ćeliji.

 Activecell.Value = ""

Sintaksa će odabrati vrijednost ili svojstvo aktivne ćelije u aktivnom radnom listu.

 Application.Activecell

Ako trebamo promijeniti font aktivne ćelije, tada će sintaksa biti sljedeća

 Activecell.Font. (Font koji želimo) = Točno

Također možemo prikazati redove i stupac aktivne ćelije koristeći sljedeću sintaksu

 Application.Activecell

Koristimo gornju sintaksu objašnjenu u nekoliko primjera i naučimo kako se igrati s aktivnim stanicama.

Napomena: Da biste koristili VBA, provjerite je li omogućena kartica razvojnog programera na kartici Datoteka iz odjeljka s opcijama.

Primjeri Excel VBA Active Cell

Ispod su sljedeći primjeri VBA aktivne ćelije u Excelu:

Ovdje možete preuzeti ovaj VBA predložak aktivne ćelije u Excelu - VBA predložak programa Excel Excel

VBA aktivna stanica - primjer br. 1

U ovom primjeru želimo promijeniti vrijednost trenutne ćelije s nečim ćelijom. Na primjer, u listu 1, odaberite ćeliju A2 i umetnite vrijednost kao ANAND i želimo promijeniti vrijednost za tu aktivnu ćeliju kao ARAN.

Slijedite dolje navedene korake za upotrebu VBA Active Cell u Excelu.

Korak 1: Otvorite karticu programera i kliknite Visual Basic da biste otvorili VB uređivač.

2. korak: Kliknite karticu Umetanje i kliknite na module da biste umetnuli novi modul.

Korak 3: Proglasite potfunkciju za početak pisanja koda.

Kodirati:

 Pod uzorak () Kraj Sub

Korak 4: Aktivirajte radni list 1 pomoću donje funkcije.

Kodirati:

 Pod uzorci () radni listovi ("Sheet1"). Aktivirajte krajnji sub

Korak 5: Možemo provjeriti da u ćeliji A2 u listu 1 imamo vrijednost kao ANAND i da je ona aktivna ćelija.

Korak 6: Sada pomoću sljedeće izjave promijenite vrijednost aktivne ćelije.

Kodirati:

 Pod uzorci () radni listovi ("Sheet1"). Aktiviraj ActiveCell.Value = "ARAN" Kraj pot

Korak 7: Pokrenite gornji kôd s priloženog gumba za pokretanje ili pritisnite F5.

Vidimo da je vrijednost u ćeliji A2 promijenjena.

VBA aktivna stanica - primjer br. 2

Sada smo promijenili vrijednost aktivne ćelije iz ANAND u ARAN. Kako prikazujemo trenutnu vrijednost aktivne ćelije? To ćemo naučiti u ovom primjeru.

Slijedite dolje navedene korake za upotrebu VBA Active Cell u Excelu.

Korak 1: Otvorite karticu programera i kliknite Visual Basic da biste otvorili VB uređivač.

Korak 2: U istom modulu izjavite potfunkciju za početak pisanja koda.

Kodirati:

 Sub Sample1 () Kraj Sub

Korak 3: Aktivirajte radni list 1 sljedećim kodom.

Kodirati:

 Radni listovi Sub Sample1 () ("Sheet1"). Aktivirajte Kraj Sub

Korak 4: Sada odabiremo aktivnu ćeliju sljedećim kodom.

Kodirati:

 Sub Sample1 () Radni listovi () Sheet1 ". Aktiviraj Set selectedCell = Application.ActiveCell End Sub

Korak 5: Sada ćemo prikazati vrijednost odabrane ćelije sljedećim kodom.

Kodirati:

 Sub Sample1 () Radni listovi ("Sheet1"). Aktiviraj Set selectedCell = Application.ActiveCell MsgBox selectedCell.Value End Sub

Korak 6: Pokrenite gornji kôd pritiskom na F5 ili tipkom za pokretanje i pogledajte sljedeći rezultat.

Aktivna ćelija bila je A2 i ima vrijednost kao ARAN, pa je prikazano svojstvo ARAN.

VBA aktivna stanica - primjer # 3

Promijenimo font ćelije A2 koja je bila odabrana ćelija. Napravimo font kao BOLD. U početku nije odabran font.

U tu svrhu, slijedite dolje navedene korake za upotrebu VBA aktivne ćelije u Excelu.

Korak 1: Otvorite karticu programera i kliknite Visual Basic da biste otvorili VB uređivač.

Korak 2: U istom modulu izjavite potfunkciju za početak pisanja koda.

Kodirati:

 Sub Sample2 () Kraj Sub

3. korak: Najprije aktiviramo radni list kako bismo koristili aktivnu ćeliju.

Kodirati:

 Radni listovi Sub Sample2 () ("Sheet1"). Aktivirajte Kraj Sub

Korak 4: Promijenimo font odabrane ćelije sljedećim kodom.

Kodirati:

 Sub Sample2 () radni listovi ("Sheet1"). Aktivirajte ActiveCell.Font.Bold = True End Sub

Korak 5: Pokrenite gornji kôd pritiskom na F5 ili tipkom za pokretanje i pogledajte rezultat.

Font aktivne ćelije promijenjen je u BOLD.

VBA aktivna stanica - primjer # 4

Sada želimo znati u kojem se retku ili u kojem stupcu nalazi trenutno aktivna ćelija. Kako to učiniti, naučit ćemo u ovom primjeru.

U tu svrhu, slijedite dolje navedene korake za upotrebu VBA aktivne ćelije u Excelu.

Korak 1: Otvorite karticu programera i kliknite Visual Basic da biste otvorili VB uređivač.

Korak 2: U istom modulu izjavite potfunkciju za početak pisanja koda.

Kodirati:

 Sub Sample3 () Kraj Sub

3. korak: Najprije aktiviramo radni list kako bismo koristili svojstva aktivnih ćelija.

Kodirati:

 Radni listovi Sub Sample3 () ("Sheet1"). Aktivirajte Kraj Sub

Korak 4: Sada odabiremo aktivnu ćeliju sljedećim kodom.

Kodirati:

 Sub Sample3 () Radni listovi () Sheet1 ". Aktiviraj Set selectedCell = Application.ActiveCell End Sub

Korak 5: Sada možemo prikazati trenutni red aktivne ćelije sljedećim kodom.

Kodirati:

 Sub Sample3 () Radni listovi ("Sheet1"). Aktiviraj Set selectedCell = Application.ActiveCell MsgBox selectedCell.Row End Sub

Korak 6: Sljedeći kôd također možemo dobiti trenutni stupac aktivne ćelije.

Kodirati:

 Sub Sample3 () Radni listovi ("Sheet1"). Aktiviraj Set selectedCell = Application.ActiveCell MsgBox selectedCell.Row MsgBox selectedCell.Column End Sub

Korak 7: Sada pritisnite F5 ili gumb za pokretanje pod uvjetom da pokrenete gornji kôd i vidite sljedeći rezultat.

Gornji rezultat bio je red aktivne ćelije. Pritisnite ok za prikaz stupca aktivne ćelije.

Stvari koje treba zapamtiti

Nekoliko je stvari koje moramo zapamtiti o aktivnoj ćeliji u VBA:

  • Aktivna ćelija je trenutno aktivna ili odabrana ćelija na bilo kojem radnom listu.
  • Možemo prikazati ili promijeniti svojstva aktivne adrese ćelije u VBA.
  • Da bismo iskoristili svojstva aktivne ćelije, moramo prvo aktivirati trenutni radni list.

Preporučeni članci

Ovo je vodič za Excel VBA Active Cell. Ovdje smo raspravljali o načinu korištenja svojstva VBA Active Cell za dodjeljivanje vrijednosti ili dohvaćanje adrese aktivne ćelije u Excelu, zajedno s nekoliko praktičnih primjera i preuzeti Excel predložak. Možete i pregledati naše druge predložene članke -

  1. Korištenje VBA IFError u Excelu
  2. Kako koristiti okna Excel Freeze?
  3. Vodiči o VBA paste
  4. Prilagodite i koristite traku statusa u Excelu

Kategorija:

VBA