COUNTA darblapas funkcija programmā Excel VBA
Mūsu agrākajā rakstā “Excel COUNTA” mēs esam redzējuši, kā izmantot funkciju COUNT, lai skaitliskās vērtības skaitītu no vērtību diapazona. Kā būtu, aprēķinot visas izmaksas šūnu jomā? Jā, mēs varam arī to novērtēt. Lai uzskaitītu visas šūnu vērtības šūnu diapazonā, mums Excel VBA ir jāizmanto formula “COUNTA”. Šajā rakstā mēs parādīsim, kā izmantot funkciju COUNTA VBA, lai uzskaitītu visas šūnu vērtības piegādātajā diapazonā.

COUNTA funkcijas piemēri VBA
Viena no patiesībām ir tā, ka funkcija “COUNTA” nav VBA funkcija. Es zinu, ka jūsu jautājums ir, ja tā nav VBA funkcija, tad kā mēs to izmantojam? Nekas neuztraucas, kaut arī tā nav VBA funkcija; tomēr mēs to varam izmantot darblapas funkciju klasē VBA kodēšanā.
Labi, uzrakstīsim kodu, lai piemērotu Excel VBA COUNTA.
1. darbība: izveidojiet apakšprocedūras nosaukumu.
2. solis: Tagad vispirms izlemiet, kur mēs saglabāsim funkcijas VBA COUNTA rezultātu. Šajā piemērā es vēlos saglabāt darbu šūnā C2. Tātad mans kods būs diapazons (“C2”).
Kods:
Sub Counta_Example1 () diapazons ("C2"). Vērtība = End Sub

3. solis: Šūnā C2 mums ir nepieciešama funkcijas VBA COUNTA vērtība. Lai izmantotu Excel VBA COUNTA funkciju, vispirms izmantojiet darblapas funkciju klasi.
Kods:
Sub Counta_Example1 () diapazons ("C2"). Vērtība = Work End Sub

4. solis: Pēc darblapas funkciju klases pielietošanas atlasiet formulu COUNTA, ieliekot punktu.
Kods:
Sub Counta_Example1 () diapazons ("C2"). Vērtība = WorksheetFunction.Count End Sub

5. solis: Tagad mums jāpiegādā skaitāmo šūnu diapazons. Šajā piemērā mums jāaprēķina šūnu diapazons no A1 līdz A11. Lai nodrošinātu šūnas, izmantojot objektu VBA RANGE.
Kods:
Sub Counta_Example1 () diapazons ("C2"). Vērtība = WorksheetFunction.CountA (Range ("A1: A11")) Beigas Sub

Labi, palaidīsim kodu, lai iegūtu rezultātu šūnā C2.

Tātad to pašu rezultātu atgrieza arī VBA COUNTA.
Šādi mēs varam izmantot COUNTA, lai uzskaitītu tukšās vai tukšās šūnas no piegādātā diapazona.
Kodēšana ar mainīgajiem
VBA mainīgie ir projekta veidošanas atslēga. Tagad par tiem pašiem datiem mēs varam deklarēt VBA mainīgos un nonākt pie rezultāta.
Piemēram, apskatiet zemāk redzamo kodu.
Kods:
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
Tagad paskaidrosim iepriekš minēto kodu.
Pirmkārt, es esmu deklarējis mainīgo “CountaRange” kā diapazonu, lai atsauktos uz vērtību diapazonu.
Dim CountaRange As Range
Pēc tam es iestatīju atsauci kā diapazonu A1 līdz A11.
Iestatīt CountaRange = Range ("A1: A11")
Otrais mainīgais ir atsauce uz COUNTA rezultātu šūnu.
Dim CountaResultCell kā diapazons
Šim mainīgajam esmu iestatījis šūnu kā C2.
Iestatiet CountaResultCell = Diapazons ("C2")
Tagad, kā parasti, esmu izmantojis funkciju COUNTA, izmantojot mainīgos, nevis cieti kodētos diapazonus. Tagad apskatiet veco kodu un šo VBA kodu.
1. kods:

2. kods:

1. kodā mums ir diapazons C2. Kodā 2 mums ir mainīgā nosaukums “CountaResultCell”. Šeit mainīgais “CountaResultCell” nosaka atsauci kā C2 šūnu. Tātad šis mainīgais tagad ir C2 šūna.
1. kodā funkciju COUNTA diapazons ir no A1 līdz A11. 2. noteikumā tas ir mainīgais, ko sauc par “CountaRange”. Šis mainīgais satur atsauci uz diapazonu no A1 līdz A11.
Šī ir atšķirība starp veco kodu un kodu ar mainīgajiem.
Tātad funkcija COUNTA palīdz mums saskaitīt visas tukšās šūnas no piegādātā diapazona neatkarīgi no tā, kādi dati tajā ir.