ВБА ЦОУНТИФ
Функције засноване на критеријумима су владари екцела у прорачунима. На почетку учења екцела морали смо научити ЦОУТНИФ процес у екцелу. У нашим ранијим чланцима показали смо вам како да радите са функцијом ЦОУНТИФ у програму Екцел ВБА.
Погледајте наш чланак о формули ЦОУНТИФ у програму Екцел да бисте сазнали основе функције ЦОУНТИФ у програму Екцел ВБА. У овом чланку ћемо вам показати како да користите исту функцију у ВБА кодирању. Сад ћемо видети исту формулу и у ВБА. Прво, ЦОУНТИФ није ВБА функција; уместо тога, то је функција радног листа којој се може приступити у класи функције радног листа.
Пример функције Екцел Цоунтер Цоунтер
Ок, да видимо једноставан пример.
Погледајте доњи исти пример бројања вредности из партије.
На горњој слици имамо имена градова од ћелије А1 до А10. У ћелији Ц3 морамо да избројимо колико се пута назив града „Бангалоре“ појављује у опсегу од А1 до А10.
Ок, следите кораке у наставку да бисте написали код за примену функције ЦОУНТИФ.
Корак 1: Покрените Суб поступак.
Шифра:
Опција Експлицитно Суб Цоунтиф_Екампле1 () Крај Суб
Корак 2: Будући да морамо да сачувамо резултат у ћелији Ц3, покрените опсег („Ц3“). Вредност.
Шифра:
Суб Цоунтиф_Екампле1 () Опсег ("Ц3"). Вредност = Крај Суб
Корак 3: У ћелији Ц3, применом екцел ВБА ЦОУНТИФ функције, покушавамо да дођемо до резултата. Дакле, да бисмо приступили функцији, прво морамо да користимо класу Функција радног листа.
Шифра:
Суб Цоунтиф_Екампле1 () опсег ("Ц3"). Вредност = Функција радног листа. Енд Суб
Корак 4: Из изгубљене изаберите екцел ВБА ЦОУНТИФ функцију.
Шифра:
Суб Цоунтиф_Екампле1 () опсег ("Ц3"). Валуе = ВорксхеетФунцтион.ЦоунтИф (Енд Суб
Корак 5: Ако погледате параметре функције ВБА ЦОУНТИФ, ми нећемо видети параметар, као што видимо на радном листу.
Као што можемо видети на горњој слици у радном листу, имамо тачну синтаксу, али у ВБА можемо видети само Арг 1 и Арг 2.
Арг 1 је опсег, па одаберите опсег од А1 до А10.
Шифра:
Суб Цоунтиф_Екампле1 () опсег ("Ц3"). Валуе = ВорксхеетФунцтион.ЦоунтИф (Ранге ("А1: А10"), Енд Суб
Корак 6: Арг 2 је вредност коју треба да рачунамо од опсега А1 до А10. У овом примеру морамо израчунати „Бангалоре“.
Шифра:
Суб Цоунтиф_Екампле1 () опсег ("Ц3"). Вредност = ВорксхеетФунцтион.ЦоунтИф (опсег ("А1: А10", "Бангалоре") Енд Суб
Ок, готови смо.
Покрените код да бисте видели резултат у ћелији Ц3.
Резултат смо добили као 4. Пошто је име града „Бангалоре“ које се појављује у ћелији А1, А4, А7 и А10 ВБА ЦОУНТИФ функција вратила производ као 4.
Ако видите да је ВБА код вратио само резултат формуле, не упознајемо поступак на траци са формулама.
Да бисмо дошли до формуле, морамо мало другачије да напишемо код. Испод је код за примену саме формуле на ћелију.
Шифра:
Суб Цоунтиф_Екампле1 () опсег ("Ц3"). Формула = "= ЦоунтИф (А1: А10," "Бангалоре" ")" Енд Суб
Ово ће применити формулу на ћелију Ц3.
Дођите до резултата са променљивим
Променљиве су саставни део било ког језика кодирања. Морамо прогласити променљиве за ефикасан рад са ВБА кодом. На пример, погледајте доњи код.
Шифра:
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.
Дим ЦритериаВалуе Ас Стринг
ЦритериаВалуе = “Бангалоре”
Дакле, сада променљива „ЦритетериаВалуе“ држи вредност „Бангалоре“.
У следећем реду, као и обично, применио сам функцију ЦОУТНИФ.
РесултЦелл = ВорксхеетФунцтион.ЦоунтИф (ВалуесРанге, ЦритериаВалуе)
Овако, у Екцел ВБА можемо применити функцију ЦОУНТИФ у складу са својим потребама.
