COUNTA töölehe funktsioon Exceli VBA-s
Oma varasemas artiklis „Excel COUNTA” oleme näinud, kuidas funktsiooni COUNT abil saab arvväärtusi arvulugude vahemikust lugeda. Kuidas oleks kõigi kulude arvutamisega lahtrite valdkonnas? Jah, saame ka seda hinnata. Lahtrivahemiku kõigi 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, et kui see pole VBA funktsioon, siis kuidas me seda kasutame? Miski ei muretse, kuigi see pole VBA funktsioon; siiski saame seda kasutada töölehe funktsiooniklassi all VBA kodeerimisel.
Ok, kirjutame Exceli VBA COUNTA rakendamiseks koodi.
1. samm: looge alamprotseduuri nimi.
2. samm: nüüd otsustage kõigepealt, kuhu salvestame funktsiooni VBA COUNTA tulemused. Selles näites tahan hoida tööd lahtris 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 rakendamiseks laseb kõigepealt kasutada töölehe funktsiooniklassi.
Kood:
Sub Counta_Example1 () vahemik ("C2"). Väärtus = Work End Sub

4. samm: Pärast töölehe funktsiooniklassi rakendamist valige punkt valemiga valem COUNTA.
Kood:
Sub Counta_Example1 () vahemik ("C2"). Väärtus = WorksheetFunction.Count End Sub

5. samm: nüüd peame pakkuma loendatavate rakkude vahemiku. Selles näites peame arvutama lahtrite vahemiku A1 kuni A11. Lahtrite pakkumiseks 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äiteks 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 on meil muutuja nimi „CountaResultCell”. Siin määras muutuja “CountaResultCell” viite C2 lahtriks. See muutuja on nüüd C2 lahter.
Koodis 1 on funktsioonide COUNTA vahemik A1 kuni A11. Reeglis 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, sõltumata selle andmetest.