VBA COUNTIF
Функциите, базирани на критерии, са владетелите на Excel в изчисленията. В началото на изучаването на Excel трябва да сме научили процеса COUTNIF в Excel. В нашите по-ранни статии ви показахме как да работите с функцията COUNTIF в Excel VBA.
Обърнете се към нашата статия за формула COUNTIF в Excel, за да знаете основите на функцията COUNTIF в Excel VBA. В тази статия ще ви покажем как да използвате същата функция при VBA кодиране. Сега ще видим същата формула във VBA. Първо, COUNTIF не е функция на VBA; вместо това това е функция на работен лист, която може да бъде достъпна под клас на функция на работния лист.
Пример за функция за брояч на Excel VBA
Добре, нека видим простия пример.
Погледнете същия пример за преброяване на стойности от партидата.
В горното изображение имаме имена на градове от клетка А1 до А10. В клетка C3 трябва да преброим колко пъти името на града „Бангалор“ се появява в диапазона от A1 до A10.
Добре, следвайте стъпките по-долу, за да напишете кода, за да приложите функцията COUNTIF.
Стъпка 1: Стартирайте процедурата Sub.
Код:
Опция Изрично Sub Countif_Example1 () Край Sub
Стъпка 2: Тъй като трябва да съхраним резултата в клетка C3, стартирайте Range (“C3”). Стойност.
Код:
Sub Countif_Example1 () Диапазон ("C3"). Стойност = Край Sub
Стъпка 3: В клетка C3, чрез прилагане на функцията excel VBA COUNTIF, ние се опитваме да стигнем до резултата. Така че, за да осъществим достъп до функцията, първо трябва да използваме класа Function Worksheet.
Код:
Sub Countif_Example1 () Диапазон ("C3"). Стойност = Функция на работен лист. Крайна под
Стъпка 4: От загубената изберете excel VBA COUNTIF функция.
Код:
Sub Countif_Example1 () Диапазон ("C3"). Стойност = WorksheetFunction.CountIf (End Sub
Стъпка 5: Ако разгледате параметрите на функцията VBA COUNTIF, ние не виждаме параметъра, както виждаме в работния лист.
Както виждаме на горното изображение в работния лист, имаме точен синтаксис, но във VBA можем да видим само Arg 1 и Arg 2.
Arg 1 е Range, така че изберете диапазона от A1 до A10.
Код:
Sub Countif_Example1 () диапазон ("C3"). Стойност = WorksheetFunction.CountIf (диапазон ("A1: A10"), край Sub
Стъпка 6: Arg 2 е каква е стойността, която трябва да преброим от диапазона A1 до A10. В този пример трябва да изчислим „Бангалор“.
Код:
Sub Countif_Example1 () Range ("C3"). Value = WorksheetFunction.CountIf (Range ("A1: A10"), "Bangalore") End Sub
Добре, приключихме
Изпълнете кода, за да видите резултата в клетка C3.
Получихме резултата като 4. Тъй като името на града „Бангалор“, появяващо се в клетка A1, A4, A7 и A10 VBA COUNTIF, функцията върна продукта като 4.
Ако виждате, че кодът на VBA е върнал само резултата от формулата, не се запознаваме с процедурата в лентата с формули.
За да стигнем до формулата, трябва да напишем кода малко по-различно. По-долу е даден кодът за прилагане на самата формула към клетката.
Код:
Sub Countif_Example1 () Диапазон ("C3"). Формула = "= CountIf (A1: A10," "Бангалор" ")" Край Sub
Това ще приложи формулата към клетката C3.
Пристигане на резултат с променливи
Променливите са неразделна част от всеки език за кодиране. Трябва да декларираме променливи, за да работим ефективно с кода на VBA. Например погледнете кода по-долу.
Код:
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 = “Бангалор”
Така че сега променливата „CriteteriaValue“ съдържа стойността „Бангалор“.
В следващия ред, както обикновено, съм приложил функцията COUTNIF.
ResultCell = WorksheetFunction.CountIf (ValuesRange, CriteriaValue)
По този начин можем да приложим функцията COUNTIF в Excel VBA, за да отговорим на нашите нужди.
