VBA COUNTA | Kuidas kasutada Exceli VBA COUNTA töölehe funktsiooni?

COUNTA töölehe funktsioon Exceli VBA-s

Oma varasemas artiklis “Excel COUNTA” oleme näinud, kuidas funktsiooni COUNT abil saab arvväärtusi arvude vahemikust lugeda. Kuidas oleks kõigi lahtrivahemikus olevate väärtuste lugemisega? Jah, me võime ka seda lugeda. Kõigi lahtrivahemiku lahtriväärtuste loendamiseks peame Exceli VBA-s kasutama valemit “COUNTA”. Selles artiklis me näitame teile, kuidas kasutada funktsiooni COUNTA VBA-s kõigi tarnitud vahemikus olevate lahtrite väärtuste loendamiseks.

Näited COUNTA funktsioonist VBA-s

Üks tõde on see, et funktsioon "COUNTA" ei ole VBA funktsioon. Ma tean, et teie küsimus on, kui see pole VBA funktsioon, siis kuidas me seda kasutame? Pole midagi muret, isegi kui see pole VBA funktsioon, saame seda siiski kasutada töölehe funktsiooniklassi all VBA kodeerimisel.

Selle VBA COUNTA Exceli malli saate alla laadida siit - VBA COUNTA Exceli mall

Ok, kirjutame Exceli VBA COUNTA rakendamiseks koodi.

1. samm: looge alamprotseduuri nimi.

2. samm: otsustage nüüd kõigepealt, kuhu salvestame funktsiooni VBA COUNTA tulemuse. Selles näites soovin tulemuse salvestada lahtrisse C2. Minu koodiks on vahemik („C2“). Väärtus.

Kood:

 Sub Counta_Example1 () vahemik ("C2"). Väärtus = End Sub 

3. samm: lahtris C2 vajame funktsiooni VBA COUNTA väärtust. Exceli VBA COUNTA funktsiooni rakendamine võimaldab kõigepealt töölehe funktsiooniklassi rakendada.

Kood:

 Sub Counta_Example1 () vahemik ("C2"). Väärtus = Work End Sub 

4. samm: pärast töölehe funktsiooniklassi rakendamist valige punktiga valem COUNTA.

Kood:

 Alam Counta_Example1 () Range ("C2"). Väärtus = WorksheetFunction.Count End Sub 

5. samm: Nüüd peame pakkuma loendatavate rakkude vahemiku. Selles näites peame loendama lahtrite vahemiku A1 kuni A11. Varustage lahtrid objekti VBA RANGE abil.

Kood:

 Alam Counta_Example1 () Range ("C2"). Väärtus = WorksheetFunction.CountA (Range ("A1: A11")) End Sub 

Ok, käivitame koodi, et saada tulemus lahtrisse C2.

Nii et sama tulemuse tagastas ka VBA COUNTA.

Niimoodi saame kasutada COUNTA-d, et lugeda tühjad või tühjad lahtrid tarnitud vahemikust.

Kodeerimine muutujatega

VBA muutujad on projekti ehitamise võti. Nüüd saame samade andmete jaoks deklareerida VBA muutujad ja jõuda tulemuseni.

Näite saamiseks vaadake allolevat koodi.

Kood:

 Sub Counta_Example2 () Dim CountaRange As Range Dim CountaResultCell As Range Set CountaRange = Range ("A1: A11") Set CountaResultCell = Range ("C2") CountaResultCell = WorksheetFunction.CountA (CountaRange) End Sub 

Selgitame ülaltoodud koodi nüüd.

Esiteks olen deklareerinud muutuja “CountaRange” vahemikuna, et viidata väärtuste vahemikule.

 Hämar CountaRange As Range

Järgmisena olen määranud viite vahemikuks A1 väärtuseks A11.

 Set CountaRange = Range ("A1: A11")

Teine muutuja on viide COUNTA tulemuste lahtrile.

 Hämar CountaResultCell vahemikuna

Selle muutuja jaoks olen määranud lahtriks C2.

 Set CountaResultCell = Range ("C2")

Nüüd, nagu tavaliselt, olen rakendanud funktsiooni COUNTA, kasutades kõvakodeeritud vahemike asemel muutujaid. Nüüd vaadake vana koodi ja seda VBA koodi.

Kood 1:

Kood 2:

Koodis 1 on meil vahemik C2, koodis 2 muutuja nimi „CountaResultCell“. Siin määras muutuja “CountaResultCell” C2 lahtriks viite. See muutuja on nüüd C2 lahter.

Koodis 1 on COUNTA funktsioonivahemik A1 kuni A11, koodis 2 on see muutuja nimega “CountaRange”. See muutuja omab viidet vahemikule A1 kuni A11.

See on erinevus vana koodi ja muutujatega koodi vahel.

Niisiis, funktsioon COUNTA aitab meil loendada kõiki tarnitud vahemikus olevaid tühje lahtreid, olenemata nende andmetest.


$config[zx-auto] not found$config[zx-overlay] not found