VBA-TÆLLER
Kriteriebaserede funktioner er linealerne for excel i beregninger. I begyndelsen af indlæringen af excel skal vi have lært COUTNIF-processen i excel. I vores tidligere artikler har vi vist dig, hvordan du arbejder med COUNTIF-funktionen i Excel VBA.
Se vores artikel om COUNTIF-formel i Excel for at kende de grundlæggende funktioner i COUNTIF-funktionen i Excel VBA. I denne artikel viser vi dig, hvordan du bruger den samme funktion til VBA-kodning. Nu ser vi den samme formel i VBA. Første ting først, COUNTIF er ikke en VBA-funktion; i stedet er det en regnearksfunktion, der kan åbnes under regnearkets funktionsklasse.
Eksempel på Excel VBA Countif-funktion
Ok, lad os se det enkle eksempel.
Se nedenstående samme eksempel på tælling af værdier fra partiet.
I ovenstående billede har vi bynavne fra celle A1 til A10. I celle C3 skal vi tælle, hvor mange gange bynavnet “Bangalore” vises i området A1 til A10.
Ok, følg nedenstående trin for at skrive koden for at anvende COUNTIF-funktionen.
Trin 1: Start underproceduren.
Kode:
Mulighed Eksplicit Under Countif_Example1 () Afslut Sub
Trin 2: Da vi har brug for at gemme resultatet i celle C3, skal du starte området ("C3").
Kode:
Sub Countif_Example1 () Range ("C3"). Værdi = End Sub
Trin 3: I celle C3 forsøger vi at nå resultatet ved at anvende excel VBA COUNTIF-funktionen. Så for at få adgang til funktionen skal vi først bruge klassen Worksheet Function.
Kode:
Sub Countif_Example1 () Range ("C3"). Værdi = WorksheetFunction. Afslut sub
Trin 4: Fra den mistede vælger du excel VBA COUNTIF-funktion.
Kode:
Sub Countif_Example1 () Range ("C3"). Value = WorksheetFunction.CountIf (End Sub
Trin 5: Hvis du ser på parametrene for VBA COUNTIF-funktionen, ser vi ikke parameteren, som vi ser i regnearket.
Som vi kan se i ovenstående billede i regnearket, har vi nøjagtig syntaks, men i VBA kan vi kun se Arg 1 & Arg 2.
Arg 1 er område, så vælg området som A1 til A10.
Kode:
Sub Countif_Example1 () Range ("C3"). Værdi = WorksheetFunction.CountIf (Range ("A1: A10"), End Sub
Trin 6: Arg 2 er, hvad er den værdi, vi skal tælle fra området A1 til A10. I dette eksempel skal vi beregne "Bangalore."
Kode:
Sub Countif_Example1 () Range ("C3"). Value = WorksheetFunction.CountIf (Range ("A1: A10"), "Bangalore") End Sub
Okay, vi er færdige.
Kør koden for at se resultatet i celle C3.
Vi fik resultatet som 4. Da bynavnet “Bangalore” vises i celle A1, A4, A7 og A10 VBA COUNTIF-funktionen returnerede produktet som 4.
Hvis du kan se, at VBA-koden kun har returneret resultatet af formlen, lærer vi ikke proceduren at kende i formellinjen.
For at nå frem til formlen skal vi skrive koden lidt anderledes. Nedenfor er koden, som du kan anvende selve formlen på cellen.
Kode:
Sub Countif_Example1 () Range ("C3"). Formula = "= CountIf (A1: A10," "Bangalore" ")" End Sub
Dette vil anvende formlen på cellen C3.
Ankomst resultat med variabler
Variabler er en integreret del af ethvert kodningssprog. Vi er nødt til at erklære variabler, der fungerer effektivt med VBA-koden. Se f.eks. Nedenstående kode.
Kode:
Sub Countif_Example2() Dim ValuesRange As Range Dim ResultCell As Range Dim CriteriaValue As String Set ValuesRange = Range("A1:A10") Set ResultCell = Range("C3") CriteriaValue = "Bangalore" ResultCell = WorksheetFunction.CountIf(ValuesRange, CriteriaValue) End Sub
Let me decode the code for you to understand better.
Firstly I have declared the two variables as Range.
Dim ValuesRange As Range: This is to reference the list of values.
Dim ResultCell As Range: This to reference the result cell.
Then I have set the range of references to both the variables.
Set ValuesRange = Range(“A1: A10”): This is the range where all the city names are there.
Set ResultCell = Range(“C3”): In this cell, we will store the result of the COUNTIF function.
In the meantime, I have declared one more variable to store the criteria value.
Dim CriteriaValue As String
CriteriaValue = “Bangalore”
Så nu har variablen "CriteteriaValue" værdien "Bangalore."
I den næste linje har jeg som sædvanlig anvendt COUTNIF-funktionen.
ResultCell = WorksheetFunction.CountIf (ValuesRange, CriteriaValue)
På denne måde kan vi anvende COUNTIF-funktionen i Excel VBA, så den passer til vores behov.
