Лічильник в Excel VBA

Існують різні способи підрахунку в MS Excel. Ми можемо використовувати вбудовані функції, такі як Count, CountIf, CountA, CountBlank, які є в Excel. Але ці функції не працюватимуть належним чином у VBA, а також мають обмеження. Щоб подолати це, у нас є багато функцій і команд, і процес, за допомогою якого ми можемо виконати лічильник VBA. Лічильник VBA використовується для підрахунку комірки, підрахунку вмісту комірки, а також використовується як таймер підрахунку, коли ми можемо реалізувати таблицю часу для вимірювання будь-якої задачі.

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

Як створити лічильник в Excel VBA?

Нижче наведено різні приклади створення лічильника в Excel за допомогою коду VBA.

Ви можете завантажити шаблон шаблону VBA Counter Excel тут - Шаблон VBA Counter Excel

Лічильник VBA - приклад №1

У нас є кілька даних випадкових чисел у стовпці А. Усі згадані значення є випадковими і не мають зв'язку, наприклад у послідовності чи ряді. Тепер за допомогою процесу лічильника VBA ми підрахуємо найвищі та найнижчі числа та отримаємо вихід у комірках D2 та D3.

Ми будемо рахувати кількість і одночасно їх забарвлювати відповідно до кольорового тексту у комірці С2 та С3.

Для цього виконайте наступні кроки:

Крок 1: Створіть кнопку Command, яка доступна на вкладці Developer у розділі Active X Control меню Вставка, як показано нижче.

Крок 2: Тепер створіть кнопку, як показано нижче.

Крок 3: Клацніть правою кнопкою на створеній кнопці та перейдіть до параметра Властивості .

Крок 4: Змініть підпис кнопки, яка за замовчуванням є CommandButton2, на будь-яке бажане ім’я. Тут ми змінили це на « Підрахунок клітин за значенням ».

Крок 5: Після завершення натисніть правою кнопкою миші на створеній кнопці та виберіть опцію Переглянути код, щоб отримати вікно VBA.

Visual Basic Editor відкрито зараз, і за замовчуванням для командної кнопки вже створена підпрограма.

Код:

 Приватний Sub CommandButton2_Click () Кінець Sub

Крок 6: Тепер нам потрібно оголосити 3 змінних. Оголосимо першу змінну, де ми будемо зберігати числа та другу змінну, за допомогою якої будемо використовувати лічильник як цілі числа, як показано нижче. І 3- я змінна буде такою ж довгою, щоб рахувати числа, що зберігаються в кожному рядку.

Код:

 Приватний Sub CommandButton2_Click () Dim A як ціле число Dim Count як ціле число Dim LRow As Long End Sub

Крок 7: Тепер ми виберемо першу комірку аркуша, яка є А1 як наш діапазон. Звідси ми будемо вибирати комірки, поки вони не матимуть цифри.

Код:

 Private Sub CommandButton2_Click () Dim A As Integer Dim Count As Integer Dim LRow As Long LRow = Діапазон ("A1"). CurrentRegion.End (xlDown) .Row End Sub

Крок 8: Тепер ми відкриємо і запишемо умову в циклі For для, якщо комірка має значення більше 10, тоді колір шрифту комірок буде змінено на Жовтий, а для значення менше 10 - колір шрифту комірки буде змінено на Синій з кольоровими показниками 44 та 55 відповідно.

Код:

 Private Sub CommandButton2_Click () Dim A As Integer Dim Count As Integer Dim LRow As Long LRow = Діапазон ("A1"). CurrentRegion.End (xlDown). Row For A = 1 To LARow If Cells (A, 1) .Value> 10 Потім підрахуйте = підрахунок + 1 комірка (A, 1) .Font.ColorIndex = 44 інші клітини (A, 1) .Font.ColorIndex = 55 End, якщо Next A End Sub

Крок 9: Тепер, щоб побачити вихід значень з комірки A1 до кінця, ми виберемо комірки, як обговорювалося вище, кодом нижче.

Код:

 Private Sub CommandButton2_Click () Dim A As Integer Dim Count As Integer Dim LRow As Long LRow = Діапазон ("A1"). CurrentRegion.End (xlDown). Row For A = 1 To LARow If Cells (A, 1) .Value> 10 Потім підрахуйте = підрахунок + 1 осередок (A, 1) .Font.ColorIndex = 44 інші клітини (A, 1) .Font.ColorIndex = 55 Кінці, якщо наступні A A Cell (2, 4) .Value = Count count (3, 4) .Value = 12 - Count End Sub

Крок 10: Тепер запустіть код натисканням кнопки.

Ми побачимо, клітини, що містять цифри менше 10, виділені синім кольором. А той, який перевищує 10, виділяється жовтим кольором.

Лічильник VBA - приклад №2

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

Для цього виконайте наступні кроки:

Крок 1: Створіть 2 вкладки будь-якої форми з меню Вставити параметри фігур, як показано нижче. Ми вибираємо прямокутник: куточки Rounder .

Крок 2: Створіть 2 кнопки та назвіть їх як Пуск та Скидання, за допомогою яких ми запустимо таймер та очистимо час.

Крок 3: Тепер перейдіть до VBA і відкрийте модуль у меню Вставка.

Крок 4: У цьому запишіть підкатегорію Таймер запуску, як показано нижче.

Код:

 Sub Start () Кінець Sub

Крок 5: Розглянемо слово для наступного рядка, наприклад NextRow, де ми виберемо робочий аркуш, в якому ми хочемо реалізувати код. Ось наш аркуш - Лист2 . І тут ми будемо рахувати Рядки від клітини +1, яка є клітиною A2, поки ми не отримаємо значення файлу курсору.

Код:

 Sub Start () NextRow = ThisWorkbook.Sheets ("Sheet2"). Клітини (Rows.Count, 1) .End (xlUp) .Row + 1 End Sub

Крок 6: Тепер для переходу до наступного рядка ми будемо використовувати формат вершин, де 1 у дужці - для осі Y.

Код:

 Sub Start () NextRow = ThisWorkbook.Sheets ("Sheet2"). Клітини (Rows.Count, 1) .End (xlUp). Row + 1 Cell (NextRow, 1) = Sub End Time Sub

Крок 7: Напишіть код для Скидання під тим же Стартовим кодом.

Код:

 Sub Reset () Закінчення Sub

Крок 8: Тепер для скидання ми збережемо той самий код, що і «Пуск», але ключове слово буде змінено на LastRow, і ми видалимо +1 просто так, що нам не доведеться потрапляти в інший рядок.

Код:

 Sub Reset () lastrow = ThisWorkbook.Sheets ("Sheet2"). Cell (Rows.Count, 1) .End (xlUp) .Row End Sub

Крок 9: Тепер для очищення даних в останній комірці стовпця А до першої комірки спочатку виберіть діапазон комірок з функцією ClearContents .

Код:

 Sub Reset () lastrow = ThisWorkbook.Sheets ("Sheet2"). Клітини (Rows.Count, 1) .End (xlUp) .Row Range ("A2: A" & lastrow) .ClearContents End Sub

Тепер закрийте вікно VBA.

Крок 10: Клацніть правою кнопкою миші на вкладці « Пуск » і виберіть пункт « Призначити макрос» .

Крок 11: Виберіть початкове підкодування, яке ми зробили вище.

Крок 12: Те саме робимо і для кнопки Скидання. Призначте підкод Скидання кнопці Скидання та натисніть кнопку ОК та вийдіть з режиму проектування для виконання коду.

Крок 13: Тепер спочатку натисніть кнопку « Пуск ». Ми отримаємо час початку 3:51:33.

Крок 14: Тепер знову натисніть кнопку "Пуск" 2-3 рази, щоб отримати декілька проміжок часу. Ми побачимо, у кожній ітерації є розрив на кілька секунд.

Крок 15: Тепер після цього ми перевіримо кнопку Скидання . Клацніть на Скидання. Ми побачимо, тепер дані очищені та готові до чергових кіл часу.

Плюси лічильника Excel VBA

  • Реалізувати лічильник часових пробілів дуже просто, як ми бачили в прикладі-2.
  • Лічильник VBA має багато типів реалізації, це не обмежується лише прикладами, які ми бачили.

Що потрібно пам’ятати

  • Завжди краще присвоїти код будь-якій кнопці, коли ми виконали 2 або більше типів коду за один процес.
  • Вийдіть із режиму проектування, коли призначення та виконання коду виконано на вкладці Developer.
  • Ми також можемо створити лічильник часу, де ми можемо бачити відлік часу або дивитись час у реальному часі.
  • Збережіть макрос у форматі Macro enable у форматі Excel, щоб ми не втратили код.

Рекомендовані статті

Це посібник з лічильника VBA. Тут ми обговорюємо, як створити лічильник VBA в Excel за допомогою коду VBA разом із практичними прикладами та шаблоном Excel, який можна завантажити. Ви також можете переглянути наступну статтю, щоб дізнатися більше -

  1. Використання помилки переповнення VBA в Excel
  2. Приклади помилки VBA 1004
  3. Як використовувати VBA DoEvents?
  4. Методи приховування стовпців у VBA

Категорія:

VBA