VBA COUNTA | Як використовувати функцію робочого аркуша COUNTA в Excel VBA?

Функція робочого аркуша COUNTA в Excel VBA

У нашій попередній статті “Excel COUNTA” ми бачили, як використовувати функцію COUNT для підрахунку числових значень із діапазону значень. Як щодо підрахунку всіх значень у діапазоні комірок? Так, ми можемо порахувати і це. Для підрахунку всіх значень комірок у діапазоні комірок нам потрібно використовувати формулу “COUNTA” в Excel VBA. У цій статті ми покажемо вам, як використовувати функцію COUNTA у VBA для підрахунку всіх значень комірок у наданому діапазоні.

Приклади функції COUNTA у VBA

Однією з правди є те, що функція “COUNTA” не є функцією VBA. Я знаю, що ваше запитання полягає в тому, що якщо це не функція VBA, то як ми її використовуємо? Нічого страшного, навіть якщо це не функція VBA, ми все одно можемо використовувати її під класом функції робочого аркуша в кодуванні VBA.

Завантажити цей шаблон VBA COUNTA Excel можна тут - Шаблон Excel VBA COUNTA

Гаразд, давайте напишемо код, щоб застосувати excel VBA COUNTA.

Крок 1: Створіть ім'я підпроцедури.

Крок 2: Тепер спочатку вирішіть, де ми будемо зберігати результат функції VBA COUNTA. У цьому прикладі я хочу зберегти результат у комірці C2. Отже, мій код буде Range (“C2”). Значення.

Код:

 Sub Counta_Example1 () Діапазон ("C2"). Значення = Кінець Sub 

Крок 3: У комірці C2 нам потрібне значення функції VBA COUNTA. Отже, щоб застосувати функцію excel VBA COUNTA, спочатку можна застосувати клас функції робочого аркуша.

Код:

 Sub Counta_Example1 () Діапазон ("C2"). Значення = Sub End End 

Крок 4: Після застосування класу функцій робочого аркуша виберіть формулу COUNTA, поставивши крапку.

Код:

 Sub Counta_Example1 () Діапазон ("C2"). Значення = WorksheetFunction.Count End Sub 

Крок 5: Тепер нам потрібно надати діапазон клітинок, що підраховуються. У цьому прикладі нам потрібно підрахувати діапазон комірок від А1 до А11. Тож поставте комірки за допомогою об’єкта VBA RANGE.

Код:

 Sub Counta_Example1 () Діапазон ("C2"). Значення = WorksheetFunction.CountA (Діапазон ("A1: A11")) Кінець Sub 

Добре, давайте запустимо код, щоб отримати результат у клітинці C2.

Отже, той самий результат повернув і VBA COUNTA.

Подібно до цього, ми можемо використовувати COUNTA для підрахунку непустих або непорожніх клітинок із наданого діапазону.

Кодування за допомогою змінних

Змінні VBA - це ключ до побудови проекту. Тепер для тих самих даних ми можемо оголосити змінні VBA і отримати результат.

Для прикладу перегляньте наведений нижче код.

Код:

 Sub Counta_Example2 () Приглушити CountaRange As Range Dim CountaResultCell As Range Set CountaRange = Range ("A1: A11") Set CountaResultCell = Range ("C2") CountaResultCell = WorksheetFunction.CountA (CountaRange) End Sub End 

Пояснимо наведений вище код зараз.

Спочатку я оголосив змінну “CountaRange” як діапазон для посилання на діапазон значень.

 Приглушити CountaRange As Range

Далі я встановив посилання як Діапазон A1 на A11.

 Встановити CountaRange = Діапазон ("A1: A11")

Друга змінна - посилання на комірку результату COUNTA.

 Приглушити CountaResultCell As Range

Для цієї змінної я встановив клітинку як C2.

 Встановити CountaResultCell = діапазон ("C2")

Зараз, як зазвичай, я застосував функцію COUNTA, використовуючи змінні замість жорстко закодованих діапазонів. Тепер подивіться на старий код і цей код VBA.

Код 1:

Код 2:

In code 1 we have Range C2, in Code 2 we have the variable name “CountaResultCell”. Here the variable “CountaResultCell” set reference as C2 cell. So this variable is C2 cell now.

In code 1 COUNTA function range is A1 to A11, in code 2 it is variable called “CountaRange”. This variable holds a reference to the range A1 to A11.

This is what is the difference between old code and code with variables.

So, the COUNTA function helps us to count all the non-empty cells from the supplied range irrespective of the data it has.