Aktivna ćelija u programu Excel VBA
Aktivna stanica je trenutno odabrana ćelija na radnom listu, aktivna stanica u VBA može se koristiti kao referenca za prelazak u drugu ćeliju ili promjenu svojstava iste aktivne stanice ili referenca za stanice dobivene iz aktivne stanice, aktivna stanica u VBA može može se pristupiti upotrebom metode application.property s ključnom riječi aktivna ćelija.
Za učinkovit rad s VBA kodiranjem važno je razumjeti koncept svojstva objekta i ćelije raspona u VBA. U tim konceptima postoji još jedan koncept koji trebate proučiti, a to je "VBA Active Cell".
U Excelu postoje milijuni stanica, a vi sigurno sumnjate koja je Aktivna stanica. Na primjer, pogledajte donju sliku.
Na gornjoj jednoj slici imamo mnogo stanica. Da biste pronašli koja je aktivna stanica, vrlo je jednostavno, ovisno o tome koja je stanica trenutno odabrana. U VBA se naziva "Aktivna ćelija".
Ako vaša aktivna ćelija nije vidljiva u vašem prozoru, pogledajte okvir s imenom, pokazat će vam adresu aktivne ćelije. Na gornjoj je slici aktivna adresa ćelije B3.
Čak i kad je mnogo stanica odabrano kao raspon stanica, bez obzira u kojoj se nalazi prva stanica, odabir postaje aktivna stanica. Na primjer, pogledajte donju sliku.
# 1 - Reference u Excelu VBA
U našim ranijim člancima vidjeli smo kako se referenciraju stanice u VBA. Svojstvom Active Cell možemo se pozvati na ćeliju.
Na primjer, ako želimo odabrati ćeliju A1 i umetnuti vrijednost "Zdravo", možemo je zapisati na dva načina. Ispod je način odabira ćelije i umetanja vrijednosti pomoću VBA "RANGE" objekta
Kodirati:
Sub ActiveCell_Example1 () Raspon ("A1"). Odaberite raspon ("A1"). Value = "Hello" End Sub
Ovo će prvo odabrati ćeliju A1 " Raspon (" A1 "). Odaberi"
Zatim će umetnuti vrijednost "Zdravo" u ćeliju A1 Raspon ("A1"). Vrijednost = "Zdravo"
Sada ću ukloniti liniju Raspon ("A1"). Vrijednost = "Pozdrav" i koristite svojstvo Active Cell za umetanje vrijednosti.
Kodirati:
Sub ActiveCell_Example1 () Raspon ("A1"). Odaberite ActiveCell.Value = "Hello" End Sub
Slično tome, prvo će odabrati ćeliju A1 " Raspon (" A1 "). Odaberi"
Ali ovdje sam koristio ActiveCell.Value = "Hello" umjesto Range ("A1"). Value = "Hello"
Razlog zašto sam koristio svojstvo Active Cell jer čim odaberem ćeliju A1 ona postaje aktivna ćelija. Tako možemo koristiti Excel VBA Active Cell svojstvo za umetanje vrijednosti.
# 2 - Adresa aktivne stanice, vrijednost, redak i broj stupca
Da bismo je još bolje razumjeli, pokažimo adresu aktivne ćelije u okviru za poruke. Sada pogledajte donju sliku.
Na gornjoj je slici aktivna ćelija "B3", a vrijednost je 55. Napišimo kod u VBA da bismo dobili adresu aktivne ćelije.
Kodirati:
Sub ActiveCell_Example2 () MsgBox ActiveCell.Address End Sub
Pokrenite ovaj kod pomoću tipke F5 ili ručno. Zatim će u okviru za poruke prikazati adresu aktivne ćelije.
Izlaz:
Slično tome, donji kod prikazat će vrijednost aktivne ćelije.
Kodirati:
Sub ActiveCell_Example2 () MsgBox ActiveCell.Value End Kraj
Izlaz:
Donji kod prikazat će broj retka aktivne ćelije.
Kodirati:
Sub ActiveCell_Example2 () MsgBox ActiveCell.Row End Sub
Izlaz:
Donji kod prikazat će broj stupca aktivne ćelije.
Kodirati:
Sub ActiveCell_Example2 () MsgBox ActiveCell.Column End Sub
Izlaz:
# 3 - Parametri aktivne ćelije u programu Excel VBA
Svojstvo aktivne ćelije ima i parametre. Nakon unosa svojstva, ActiveCell otvara zagrade kako bi se vidjeli parametri.
Pomoću ovog parametra možemo se pozvati i na drugu ćeliju.
Na primjer, ActiveCell (1,1) znači koja god stanica aktivna. Ako se želite pomaknuti za jedan redak prema dolje, možete koristiti ActiveCell (2,1). Ovdje 2 ne znači pomicanje dva reda dolje, već samo jedan red dolje. Slično tome, ako želite pomaknuti jedan stupac udesno, ovo je kod ActiveCell (2,2)
Na primjer, pogledajte donju sliku.
Na gornjoj je slici aktivna ćelija A2. Da biste umetnuli vrijednost u aktivnu ćeliju, napišite ovaj kod.
Kodirati:
ActiveCell.Value = “Hiiii” ili ActiveCell (1,1) .Value = “Hiiii”
Pokrenite ovaj kod ručno ili preko tipke F5. Ovo će u ćeliju umetnuti vrijednost "Hiiii".
Sada, ako želite umetnuti istu vrijednost u donju ćeliju, možete upotrijebiti ovaj kod.
Kodirati:
ActiveCell (2,1) .Value = "Hiiii"
Ovo će umetnuti vrijednost u ćeliju ispod aktivne ćelije.
Ako tada želite umetnuti vrijednost u jedan stupac, možete upotrijebiti ovaj kod.
Kodirati:
ActiveCell (1,2) .Vrijednost = "Hiiii"
Ovo će umetnuti "Hiiii" u sljedeću ćeliju stupca aktivne ćelije.
Ovako, možemo referencirati stanice u VBA koristeći Active Cell Properties.
Nadam se da ste uživali. Zahvaljujemo na vašem vremenu s nama.
Predložak VBA Active Cell Excel možete preuzeti ovdje: - VBA Active Cell Predložak
