Aktīvā šūna programmā Excel VBA
Aktīvā šūna ir pašlaik atlasītā darblapas šūna, aktīvo VBA šūnu var izmantot kā atsauci, lai pārietu uz citu šūnu vai mainītu tās pašas aktīvās šūnas īpašības vai šūnu atsauci, kas sniegta no aktīvās šūnas, VBA aktīvā šūna var piekļūt, izmantojot metodi application.property ar atslēgvārdu aktīvā šūna.
Lai efektīvi strādātu ar VBA kodēšanu, ir svarīgi saprast diapazona objektu un šūnu īpašību jēdzienu VBA. Šajos jēdzienos ir jāizskata vēl viens jēdziens, kas ir “VBA Active Cell”.
Programmā Excel ir miljoniem šūnu, un jūs noteikti šaubāties par to, kura ir aktīvā šūna. Piemēram, apskatiet zemāk redzamo attēlu.

Iepriekš minētajā vienā attēlā mums ir daudz šūnu. Lai atrastu, kura ir aktīva šūna, tas ir ļoti vienkārši, neatkarīgi no tā, kura šūna ir atlasīta tieši tagad. To VBA sauc par “Active Cell”.
Ja jūsu aktīvā šūna nav redzama jūsu logā, skatiet nosaukuma lodziņu, tajā tiks parādīta aktīvās šūnas adrese. Iepriekš redzamajā attēlā aktīvā šūnas adrese ir B3.
Pat tad, ja daudzas šūnas tiek atlasītas kā šūnu diapazons, neatkarīgi no tā, kur atrodas pirmā šūna, atlase kļūst par aktīvo šūnu. Piemēram, apskatiet zemāk redzamo attēlu.

# 1 - Atsauces Excel VBA
Savos iepriekšējos rakstos mēs esam redzējuši, kā atsaukties uz VBA šūnām. Pēc rekvizīta Active Cell mēs varam atsaukties uz šūnu.
Piemēram, ja mēs vēlamies atlasīt šūnu A1 un ievietot vērtību “Hello”, mēs to varam rakstīt divos veidos. Zemāk ir veids, kā atlasīt šūnu un ievietot vērtību, izmantojot objektu VBA “RANGE”
Kods:
Sub ActiveCell_Example1 () diapazons ("A1"). Atlasiet diapazonu ("A1"). Vērtība = "Labdien" Beigas Sub

Vispirms tiks atlasīta šūna A1 “ Diapazons (“ A1 ”). Atlasīt ”
Tad tā ievietos vērtību “Sveiki” šūnas A1 diapazonā (“A1”). Vērtība = “Sveiki”
Tagad es noņemšu līniju Range (“A1”). Vērtība = “Labdien” un vērtības ievietošanai izmantojiet rekvizītu Active Cell.
Kods:
Sub ActiveCell_Example1 () diapazons ("A1"). Atlasiet ActiveCell.Value = "Labdien" Beigu apakšdaļa

Līdzīgi vispirms tā atlasīs šūnu A1 “ Diapazons (“ A1 ”). Atlasīt ”
Bet šeit es diapazona (“A1”) vietā izmantoju ActiveCell.Value = “Hello” . Vērtība = “Hello”
Iemesls, kāpēc esmu izmantojis rekvizītu Active Cell, jo brīdī, kad atlasu šūnu A1, tā kļūst par aktīvu šūnu. Tātad, lai ievietotu vērtību, mēs varam izmantot rekvizītu Excel VBA Active Cell.
# 2 - aktīvās šūnas adrese, vērtība, rinda un kolonnas numurs
Lai to vēl labāk saprastu, ziņojuma lodziņā parādīsim aktīvās šūnas adresi. Tagad apskatiet zemāk esošo attēlu.

Iepriekš redzamajā attēlā aktīvā šūna ir “B3”, un vērtība ir 55. Uzrakstīsim kodu VBA, lai iegūtu aktīvās šūnas adresi.
Kods:
Sub ActiveCell_Example2 () MsgBox ActiveCell. Adrese End Sub

Palaidiet šo kodu, izmantojot F5 taustiņu vai manuāli. Pēc tam ziņojuma lodziņā tiks parādīta aktīvās šūnas adrese.

Izeja:

Līdzīgi zemāk redzamais kods parādīs aktīvās šūnas vērtību.
Kods:
Sub ActiveCell_Example2 () MsgBox ActiveCell.Value End Sub

Izeja:

Zemāk redzamais kods parādīs aktīvās šūnas rindas numuru.
Kods:
Sub ActiveCell_Example2 () MsgBox ActiveCell. Rindas beigu apakšsadaļa

Izeja:

Zemāk redzamais kods parādīs aktīvās šūnas kolonnas numuru.
Kods:
Sub ActiveCell_Example2 () MsgBox ActiveCell.Column End Sub

Izeja:

# 3 - Aktīvās šūnas parametri programmā Excel VBA
Aktīvajai šūnas īpašībai ir arī parametri. Pēc rekvizīta ievadīšanas ActiveCell atver iekavas, lai redzētu parametrus.

Izmantojot šo parametru, mēs varam atsaukties arī uz citu šūnu.
Piemēram, ActiveCell (1,1) nozīmē, kura šūna ir aktīva. Ja vēlaties pārvietoties vienā rindā uz leju zemāk, varat izmantot ActiveCell (2,1). Šeit 2 nenozīmē pārvietoties pa divām rindām, drīzāk tikai par vienu rindu uz leju. Līdzīgi, ja vēlaties pārvietot vienu kolonnu pa labi, tad tas ir kods ActiveCell (2,2)
Piemēram, apskatiet zemāk redzamo attēlu.

Iepriekš redzamajā attēlā aktīvā šūna ir A2. Lai aktīvajā šūnā ievietotu vērtību, ierakstiet šo kodu.
Kods:
ActiveCell.Value = “Hiiii” vai ActiveCell (1,1). Value = “Hiiii”

Palaidiet šo kodu manuāli vai izmantojot taustiņu F5. Šūnā tiks ievietota vērtība “Hiiii”.

Tagad, ja vēlaties ievietot to pašu vērtību zemāk esošajā šūnā, varat izmantot šo kodu.
Kods:
ActiveCell (2,1). Vērtība = “Hiiii”

Tādējādi vērtība tiks ievietota šūnā zem aktīvās šūnas.

Ja vēlaties uzreiz ievietot vērtību vienā kolonnā, varat izmantot šo kodu.
Kods:
ActiveCell (1,2). Vērtība = “Hiiii”

Tādējādi aktīvās šūnas nākamajā kolonnas šūnā tiks ievietots “Hiiii”.

Šādi mēs varam norādīt VBA šūnas, izmantojot Active Cell Property.
Es ceru, ka jums tas ir paticis. Paldies par jūsu laiku kopā ar mums.
VBA Active Cell Excel veidni varat lejupielādēt šeit: - VBA Active Cell Template