COUNTA-regnearkfunksjon i Excel VBA
I vår tidligere artikkel "Excel COUNTA" har vi sett hvordan du bruker COUNT-funksjonen til å telle de numeriske verdiene fra verdiområdet. Hva med å beregne alle kostnadene innen celler? Ja, det kan vi også anslå. For å telle alle celleverdiene i celleområdet, må vi bruke formelen “COUNTA” i excel VBA. I denne artikkelen vil vi vise deg hvordan du bruker COUNTA-funksjonen i VBA til å telle alle celleverdiene i det medfølgende området.
Eksempler på COUNTA-funksjon i VBA
En av sannheten er at "COUNTA" -funksjonen ikke er en VBA-funksjon. Jeg vet at spørsmålet ditt er, hvis det ikke er en VBA-funksjon, hvordan bruker vi den? Ingenting bekymrer seg selv om det ikke er en VBA-funksjon; Likevel kan vi bruke den under regnearkfunksjonsklassen i VBA-koding.
Ok, la oss skrive koden for å bruke excel VBA COUNTA.
Trinn 1: Opprett et underprosedyrenavn.
Trinn 2: Nå må du først bestemme hvor vi vil lagre resultatet av VBA COUNTA-funksjonen. I dette eksemplet vil jeg beholde arbeidet i celle C2. Så koden min vil være Range (“C2”). Verdi.
Kode:
Sub Counta_Example1 () Range ("C2"). Verdi = End Sub
Trinn 3: I celle C2 trenger vi verdien av VBA COUNTA-funksjonen. Så for å bruke excel VBA COUNTA-funksjonen, la oss først bruke regnearkets funksjonsklasse.
Kode:
Sub Counta_Example1 () Range ("C2"). Verdi = Work End Sub
Trinn 4: Når du har brukt regnearkets funksjonsklasse, velger du formelen COUNTA ved å sette en prikk.
Kode:
Sub Counta_Example1 () Range ("C2"). Verdi = WorksheetFunction.Count End Sub
Trinn 5: Nå må vi levere rekkevidden av celler som skal telles. I dette eksemplet må vi beregne rekkevidden av celler fra A1 til A11. Å gi cellene ved hjelp av VBA RANGE-objektet.
Kode:
Sub Counta_Example1 () Range ("C2"). Verdi = WorksheetFunction.CountA (Range ("A1: A11")) End Sub
Ok, la oss kjøre koden for å få resultatet i celle C2.
Så det samme resultatet returnerte også VBA COUNTA.
Slik kan vi bruke COUNTA til å telle ikke-tomme eller ikke-tomme celler fra det medfølgende området.
Koding med variabler
VBA-variabler er nøkkelen til å bygge et prosjekt. Nå for de samme dataene, kan vi erklære VBA-variabler og komme til resultatet.
Se for eksempel på koden nedenfor.
Kode:
Sub Counta_Example2 () Dim CountaRange As Range Dim CountaResultCell Som Range Set CountaRange = Range ("A1: A11") Set CountaResultCell = Range ("C2") CountaResultCell = WorksheetFunction.CountA (CountaRange) End Sub
La oss forklare koden ovenfor nå.
Først har jeg erklært variabelen "CountaRange" som et område for å referere til verdiområdet.
Dim CountaRange As Range
Deretter har jeg satt referansen som område A1 til A11.
Sett CountaRange = Range ("A1: A11")
Den andre variabelen er å referere til COUNTA-resultatcellen.
Dim CountaResultCell As Range
For denne variabelen har jeg satt cellen som C2.
Sett CountaResultCell = Område ("C2")
Nå, som vanlig, har jeg brukt COUNTA-funksjonen ved hjelp av variabler i stedet for hardkodede områder. Nå, se på den gamle koden og denne VBA-koden.
Kode 1:
Kode 2:
I kode 1 har vi Range C2. I kode 2 har vi variabelnavnet "CountaResultCell." Her angir variabelen “CountaResultCell” referanse som C2-celle. Så denne variabelen er C2-celle nå.
I kode 1 er COUNTA-funksjonsområdet A1 til A11. I regel 2 er det en variabel kalt "CountaRange." Denne variabelen har en referanse til området A1 til A11.
Dette er hva som er forskjellen mellom gammel kode og kode med variabler.
Så, COUNTA-funksjonen hjelper oss med å telle alle celler som ikke er tomme fra det medfølgende området, uavhengig av dataene den har.
