VBA COUNTIF
Kritērijos balstītās funkcijas ir Excel noteicēji aprēķinos. Excel mācīšanās sākumā mums noteikti ir jāapgūst COUTNIF process excel. Iepriekšējos rakstos mēs parādījām, kā strādāt ar funkciju COUNTIF programmā Excel VBA.
Skatiet mūsu rakstu par COUNTIF formulu programmā Excel, lai uzzinātu COUNTIF funkcijas pamatus programmā Excel VBA. Šajā rakstā mēs parādīsim, kā to pašu funkciju izmantot VBA kodēšanā. Tagad mēs redzēsim to pašu formulu VBA. Pirmkārt, COUNTIF nav VBA funkcija; tā vietā tā ir darblapas funkcija, kurai var piekļūt darblapas funkciju klasē.
Excel VBA Countif funkcijas piemērs
Labi, apskatīsim vienkāršo piemēru.
Apskatiet zemāk redzamo pašu vērtību skaitīšanas piemēru no partijas.
Iepriekš redzamajā attēlā mums ir pilsētu nosaukumi no šūnas A1 līdz A10. Šūnā C3 mums jāuzskaita, cik reizes pilsētas nosaukums “Bangalore” parādās diapazonā no A1 līdz A10.
Labi, veiciet tālāk norādītās darbības, lai uzrakstītu kodu, lai lietotu funkciju COUNTIF.
1. darbība: sāciet apakšpasākumu.
Kods:
Opcija Nepārprotama apakšnodaļa Countif_Example1 () Beigas Sub
2. solis: Tā kā mums rezultāts jāuzglabā šūnā C3, sāciet diapazonu (“C3”).
Kods:
Sub Countif_Example1 () diapazons ("C3"). Vērtība = End Sub
3. solis: šūnā C3, izmantojot Excel VBA COUNTIF funkciju, mēs cenšamies sasniegt rezultātu. Tātad, lai piekļūtu funkcijai, mums vispirms jāizmanto Worksheet Function klase.
Kods:
Sub Countif_Example1 () diapazons ("C3"). Vērtība = WorksheetFunction. Beigu apakšnodaļa
4. solis: No pazudušās atlases Excel VBA COUNTIF funkcijas.
Kods:
Sub Countif_Example1 () diapazons ("C3"). Vērtība = WorksheetFunction.CountIf (End Sub
5. solis: ja paskatās uz funkcijas VBA COUNTIF parametriem, mēs neredzam parametru, kā redzam darblapā.
Kā redzam iepriekš redzamajā darblapas attēlā, mums ir precīza sintakse, bet VBA mēs varam redzēt tikai Arg 1 un Arg 2.
Arg 1 ir diapazons, tāpēc atlasiet diapazonu kā A1 līdz A10.
Kods:
Sub Countif_Example1 () diapazons ("C3"). Vērtība = WorksheetFunction.CountIf (Range ("A1: A10"), End Sub
6. solis: Arg 2 ir tā vērtība, kas mums jāuzskaita no diapazona A1 līdz A10. Šajā piemērā mums jāaprēķina “Bangalore”.
Kods:
Sub Countif_Example1 () diapazons ("C3"). Vērtība = WorksheetFunction.CountIf (Range ("A1: A10"), "Bangalore") Beigas Sub
Labi, mēs esam galā.
Palaidiet kodu, lai redzētu rezultātu šūnā C3.
Rezultāts tika iegūts kā 4. Tā kā pilsētas nosaukums “Bangalore”, kas parādās šūnās A1, A4, A7 un A10 VBA COUNTIF, atgrieza produktu kā 4.
Ja redzat, ka VBA kods ir atgriezis tikai formulas rezultātu, mēs nezinām procedūru formulu joslā.
Lai nonāktu pie formulas, kods ir jāraksta nedaudz savādāk. Zemāk ir kods, lai jūs varētu lietot pašu formulu šūnā.
Kods:
Sub Countif_Example1 () diapazons ("C3"). Formula = "= CountIf (A1: A10," "Bangalore" ")" End Sub
Formulu izmantos šūnai C3.
Ierašanās rezultāts ar mainīgajiem
Mainīgie ir neatņemama jebkuras kodēšanas valodas sastāvdaļa. Mums jādeklarē mainīgie, lai tie efektīvi darbotos ar VBA kodu. Piemēram, apskatiet zemāk redzamo kodu.
Kods:
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 kā virkne
CriteriaValue = “Bangalore”
Tāpēc tagad mainīgajam “CriteteriaValue” pieder vērtība “Bangalore”.
Nākamajā rindā, kā parasti, esmu izmantojis funkciju COUTNIF.
ResultCell = WorksheetFunction.CountIf (ValuesRange, CriteriaValue)
Šādi mēs varam piemērot funkciju COUNTIF programmā Excel VBA, lai tas atbilstu mūsu vajadzībām.
