Брой на VBA - Бройте числови стойности, използвайки функцията за броене в Excel VBA

Функция за броене във VBA Excel

Във функцията VBA Count се използва, за да се преброи, че колко броя клетки имат стойности в нея, трябва да помним, че клетките, които имат числа или текст, затворени в двойни кавички, или тези клетки, чиито стойности се въвеждат директно, се броят, тези клетки които имат случайни данни, които не могат да бъдат преведени от Excel не се броят.

Във VBA, COUNT е функция на работен лист, която може да се приложи чрез клас на функция на работен лист. Това не е вградена функция. Функцията VBA COUNT може да отчита всички числови стойности от предоставения диапазон от стойности.

В тази статия ще ви покажем как да използвате функцията COUNT във VBA.

Примери за функцията за броене на VBA

Нека вземем няколко практически примера за VBA Count Function, за да разберем нейната работа.

Пример за броя на VBA # 1

Нека напишете кода сами, за да приложите тази функция COUNT в Excel VBA.

Стъпка 1: Стартирайте макроса, като стартирате процедурата Sub.

Код:

Sub Count_Example1 () Край Sub

Стъпка 2: Сега ще съхраним резултата от функцията COUNT в клетка C2. Така че нашият код трябва да бъде като "Обхват (" C2 "). Стойност =

Код:

Sub Count_Example1 () Диапазон ("C2"). Стойност = Край Sub

Стъпка 3: Тъй като това не е вградена функция на VBA, трябва да кандидатстваме чрез клас Function Worksheet. Така че достъп чрез функционален клас на работен лист.

Код:

Sub Count_Example1 () Диапазон ("C2"). Стойност = Функция на работния лист. Брой (Край на Sub

Стъпка 4: Сега предоставете диапазона от A1 до A7.

Код:

Sub Count_Example1 () Range ("C2"). Value = WorksheetFunction.Count (Range ("A1: A7")) End Sub

Добре, това са три прости стъпки, за да стигнете до резултата.

Сега стартирайте кода, за да видите резултата в клетка C2.

Както обикновено, ние получихме резултата като 3 като това, което получихме, когато приложихме функцията VBA COUNT в работен лист.

Ако наблюдаваме лентата с формули, нямаме формула. По-скоро просто получихме резултата от формулата. За да приложим формулата към клетката C2, трябва да променим нашия код. По-долу е даден кодът за прилагане на формулата.

Код:

Sub Count_Example1 () Обхват ("C2"). Value = "= Count (A1: A7)" End Sub

Изпълнете този VBA код, като използвате клавиша F5 или ръчно. След това това ще приложи формулата към клетката C2.

Пример за броя на VBA # 2

Сега вижте още един пример с функцията COUNT. За този пример вижте данните по-долу.

Имаме няколко цифрови и нечислови стойности от А1 до А11. Сега ще приложа кода по-долу, за да преброя числовите стойности от диапазона А1 до А11.

Код:

Sub Count_Example2 () Обхват ("C2"). Value = "= Count (A1: A11)" End Sub

Когато изпълняваме горния код ръчно или с помощта на клавиша F5, получаваме резултата като 5.

Когато обаче разгледаме отблизо данните от А1 до А11, имаме числови стойности в клетки А1, А2, А3, А4, А5, А7 и А11. Така общо имаме числови стойности в 7 клетки, но формулата е върнала резултата само като 5.

Причината за това е, когато разгледаме внимателно всяка клетка в клетки A5 и A7, стойностите се съхраняват като текст, а не като числа. Така че функцията COUNT е върнала резултата само като 5, тъй като третира тези клетки, които са форматирани или съхранени като текст като нечислови стойности и игнорира от числовия брой.

По този начин можем да използваме функцията COUNT в Excel като част от работните листове и функциите на VBA, за да преброим числовите стойности от списъка.

Интересни статии...