VBA COUNTA | Hvordan bruges COUNTA-regnearkfunktion i Excel VBA?

COUNTA-regnearkfunktion i Excel VBA

I vores tidligere artikel “Excel COUNTA” har vi set, hvordan man bruger funktionen COUNT til at tælle de numeriske værdier fra værdiområdet. Hvad med at tælle alle værdierne i celleområdet? Ja, det kan vi også tælle. For at tælle alle celleværdierne i celleområdet skal vi bruge formlen "COUNTA" i excel VBA. I denne artikel viser vi dig, hvordan du bruger COUNTA-funktionen i VBA til at tælle alle celleværdierne i det medfølgende område.

Eksempler på COUNTA-funktion i VBA

En af sandheden er, at "COUNTA" -funktionen ikke er en VBA-funktion. Jeg ved, at dit spørgsmål er, hvis det ikke er en VBA-funktion, hvordan bruger vi den så? Intet bekymrer sig, selvom det ikke er en VBA-funktion, kan vi stadig bruge den under regnearkets funktionsklasse i VBA-kodning.

Du kan downloade denne VBA COUNTA Excel-skabelon her - VBA COUNTA Excel-skabelon

Ok, lad os skrive koden for at anvende excel VBA COUNTA.

Trin 1: Opret et underprocedurens navn.

Trin 2: Beslut først først, hvor vi skal gemme resultatet af VBA COUNTA-funktionen. I dette eksempel vil jeg gemme resultatet i celle C2. Så min kode vil være Range ("C2"). Værdi.

Kode:

 Sub Counta_Example1 () Range ("C2"). Værdi = End Sub 

Trin 3: I celle C2 har vi brug for værdien af ​​VBA COUNTA-funktionen. Så for at anvende excel VBA COUNTA-funktionen kan vi først anvende regnearkets funktionsklasse.

Kode:

 Sub Counta_Example1 () Range ("C2") Værdi = Work End Sub 

Trin 4: Efter anvendelse af regnearkets funktionsklasse skal du vælge formlen COUNTA ved at sætte en prik.

Kode:

 Sub Counta_Example1 () Range ("C2"). Value = WorksheetFunction.Count End Sub 

Trin 5: Nu skal vi levere rækkevidden af ​​celler, der skal tælles. I dette eksempel skal vi tælle celleområdet fra A1 til A11. Så lever cellerne ved hjælp af VBA RANGE-objektet.

Kode:

 Sub Counta_Example1 () Range ("C2"). Value = WorksheetFunction.CountA (Range ("A1: A11")) End Sub 

Ok, lad os køre koden for at få resultatet i celle C2.

Så det samme resultat returnerede også af VBA COUNTA.

På denne måde kan vi bruge COUNTA til at tælle de ikke-tomme eller ikke-tomme celler fra det medfølgende interval.

Kodning med variabler

VBA-variabler er nøglen til at opbygge et projekt. Nu for de samme data kan vi erklære VBA-variabler og nå frem til resultatet.

For et eksempel se nedenstående kode.

Kode:

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

Lad os forklare ovenstående kode nu.

Først har jeg erklæret variablen "CountaRange" som et område for at henvise til værdiområdet.

 Dim CountaRange som rækkevidde

Dernæst har jeg indstillet referencen som område A1 til A11.

 Indstil CountaRange = Range ("A1: A11")

Den anden variabel er at henvise til COUNTA-resultatcellen.

 Dim CountaResultCell As Range

For denne variabel har jeg indstillet cellen som C2.

 Indstil CountaResultCell = Range ("C2")

Nu har jeg som sædvanligt anvendt COUNTA-funktionen ved hjælp af variabler i stedet for hardkodede områder. Se nu på den gamle kode og denne VBA-kode.

Kode 1:

Kode 2:

I kode 1 har vi område C2, i kode 2 har vi variabelnavnet “CountaResultCell”. Her indstiller variablen "CountaResultCell" reference som C2-celle. Så denne variabel er C2-celle nu.

I kode 1 er COUNTA-funktionsområdet A1 til A11, i kode 2 er det variabelt kaldet “CountaRange”. Denne variabel har en henvisning til området A1 til A11.

Dette er hvad der er forskellen mellem gammel kode og kode med variabler.

Så COUNTA-funktionen hjælper os med at tælle alle de ikke-tomme celler fra det leverede område uanset de data, den har.