COUNTA-regnearkfunktion i Excel VBA
I vores tidligere artikel "Excel COUNTA" har vi set, hvordan man bruger COUNT-funktionen til at tælle de numeriske værdier fra værdiområdet. Hvad med at beregne alle omkostningerne inden for cellerne? Ja, det kan vi også estimere. 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; stadig kan vi bruge det under regnearkets funktionsklasse i VBA-kodning.
Ok, lad os skrive koden for at anvende excel VBA COUNTA.
Trin 1: Opret et underprocedurens navn.
Trin 2: Beslut nu først, hvor vi vil gemme resultatet af VBA COUNTA-funktionen. I dette eksempel vil jeg beholde arbejdet 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 skal vi først bruge 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 det rækkevidde af celler, der skal tælles. I dette eksempel skal vi beregne celleområdet fra A1 til A11. At levere 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.
Se f.eks. 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")
Som normalt har jeg 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 rækkevidde 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 regel 2 er det en variabel 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 medfølgende område uanset de data, den har.
