VBA Enum

Енум скорочується як перерахування. Це процес, в якому ми згадуємо щось по одному. Аналогічно, ми маємо перерахування в будь-якій мові програмування, будь то JAVA, C або excel VBA. У VBA у нас є кілька вбудованих перерахувань, які починаються з VB, як VBnewLine використовується для вставки нового рядка. Це перерахування. У Excel VBA ми також можемо створювати власні власні перерахування.

У VBA Enum насправді є змінною, як і ціле число, або рядок та інші. Ми можемо скласти список елементів у VBA і використовувати змінні. Переліки створюються для того, щоб зробити їх простішими у використанні або їх легко знайти. Наприклад, для такої компанії мотоциклів, як перерахування Bajaj, буде список велосипедів, які вони виробляють, такі як пульсар, Месник, Домінар і т.д. представлення однієї інтерпретації. Існує також інший спосіб використання повідомлень про стан, використовуючи постійні, але вони можуть бути стомлюючими, оскільки вони не згруповані і поєднуються з усіма іншими переліченими змінними VBA. Але за допомогою VBA ENUM ми можемо згрупувати свої перерахування в одну групу і використовувати їх коли завгодно.

Синтаксис Enum в Excel VBA

Синтаксис використання ENUM у excel VBA такий:

 Enum EnumName EnumValue (= LongValue) EnumValue (= LongValue) ((_EnumValue)) (= LongValue) Кінець Enum

Важливо пам’ятати, що значення, вказані в ENUM, повинні мати конкретні значення, але якщо ми не надаємо йому жодного значення, VBA автоматично дає перше значення перерахунку як 0, а наступне - як 1 тощо.

Отже, як я вже говорив про компанію, що виробляє мотоцикли, перерахування для них буде таким.

 ENUM Велосипеди Pulsar Avenger = 4 Dominar End ENUM

Тепер у наведеному вище зразку enum я призначив значення лише Avenger, тому за замовчуванням pulsar дорівнює нулю, а dominar - 5, як попереднє значення списку було 4. Ось як значення присвоюються значенням ENUM.

Спочатку давайте розберемося, чому перерахування важливі у VBA, а потім перейдемо до прикладів, як зробити власні перерахування у VBA.

Для демонстрації коду VBA спробуйте звернутися до комірки А1, і як тільки ми застосуємо оператор крапки, ми побачимо, що з'являється багато інших перерахувань, які можуть бути або не потрібні нам. Подивіться на скріншот нижче.

Ми можемо бачити, що на наведеному вище скріншоті існує багато перерахувань, починаючи з А. Це вбудовані перерахування VBA.

Тепер давайте навчимося робити власні перерахування в VBA на кількох прикладах.

Примітка. Для використання Excel VBA переконайтесь, що ввімкнено вкладку розробника з вкладки файлів та розділу параметрів.

Як зробити власні перерахування в Excel VBA

Ми дізнаємось, як зробити власні перерахування (Enum) за допомогою декількох прикладів у Excel VBA.

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

Excel VBA Enum - приклад №1

Давайте спочатку зробимо дуже просте перерахування. У цьому прикладі ми визначимо привітання дня як деякі числа та відобразимо їх як персональне повідомлення.

Для використання VBA Enum виконайте наведені нижче дії.

Крок 1. На вкладці розробника натисніть на Visual Basic, щоб відкрити редактор VB.

Крок 2: Вставте новий модуль із вкладки вставок у редакторі VB.

Крок 3: Оголосіть функцію Enum ім'ям enum.

Код:

 Enum Привітання Кінець Enum

Крок 4: Оголосіть значення перерахунку наступним чином,

Код:

 Енум привітання вранці = 1 післяобідній час = 2 вечір = 3 ночі = 4 кінці Енума

Крок 5: Тепер оголосіть підфункцію під функцією enum, щоб використовувати enum.

Код:

 Enum Привітання Ранок = 1 післяобідній час = 2 вечір = 3 ночі = 4 End Enum Sub UseEnum () End Sub

Крок 6: Відображення персоналізованого повідомлення за допомогою функції msgbox.

Код:

 Enum Greetings Ранок = 1 післяобідній час = 2 вечір = 3 ночі = 4 End Enum Sub UseEnum () MsgBox "Вітальний номер" End Sub

Крок 7: Щоб відобразити номер привітання, ми використовуємо enum наступним чином,

Код:

 Enum Greetings Ранок = 1 післяобідній час = 2 вечір = 3 ночі = 4 End Enum Sub UseEnum () MsgBox "Вітальний номер" та привітання. Кінець Під

Крок 8: Виберіть будь-яке зі значень привітання наступним чином.

Код:

 Enum Greetings Ранок = 1 післяобідній час = 2 вечір = 3 ночі = 4 End Enum Sub UseEnum () MsgBox "Вітальний номер" & Привітання.

Крок 9: Після завершення складіть і запустіть повний код, натиснувши на кнопку відтворення, розташовану трохи нижче, на панелі меню. Коли ми запускаємо код, ми бачимо наступний результат.

Створити перерахування та використовувати їх було дуже просто. Це зрозуміло з наведеного вище прикладу.

Excel VBA Enum - приклад №2

Тепер у цьому прикладі використаємо перерахування для зберігання даних на аркуші excel. Ми будемо використовувати приклад мотоциклів, що використовуються у розділі про вступ.

У нас є якийсь попередньо записаний розрахунок в аркуші 1 наступним чином.

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

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

Крок 1: Перейдіть на вкладку розробника, щоб натиснути на візуальний базовий, щоб відкрити редактор VB.

Крок 2: Вставте новий модуль із вкладки вставок у редакторі VB.

Крок 3: Визначте функцію enum як мотоцикли.

Код:

 Enum Мотоцикли End Enum

Крок 4: Оголосіть список перерахунків наступним чином,

Код:

 Enum Мотоцикли Pulsar = 20 Avenger = 15 Dominar = 10 Platina = 25 End Enum

Крок 5: Тепер оголосимо підфункцію для використання цих перерахувань.

Код:

 Enum Мотоцикли Pulsar = 20 Avenger = 15 Dominar = 10 Platina = 25 End Enum Sub TotalCalculation () End Sub

Крок 6: Ми знаємо, що для використання властивостей аркуша 1 нам потрібно активувати аркуш спочатку за допомогою наступного коду.

Код:

 Enum Мотоцикли Pulsar = 20 Avenger = 15 Dominar = 10 Platina = 25 End Enum Sub TotalCalculation () Робочі таблиці ("Sheet1").

Крок 7: Тепер призначте значення комірки, використовуючи перерахування наступним чином,

Код:

 Enum Motorbikes Pulsar = 20 Avenger = 15 Dominar = 10 Platina = 25 End Enum Sub TotalCalculation () Робочі таблиці ("Sheet1"). Активуйте діапазон ("B2"). Value = Мотоцикли. . Діапазон Месника ("B4"). Значення = Мотоцикли. Діапазон домену ("B5"). Значення = Мотоцикли.Платина Кінець Sub

Крок 8: Запустіть вищезгаданий код кнопкою запуску або натисніть F5 і подивіться наступний результат на аркуші 1.

У наведеному вище прикладі ми бачимо, що ми додавали значення до комірок за допомогою перерахунку VBA.

Наведеними вище прикладами нам дуже зрозуміло, що таке ENUM у VBA. ENUM - числова змінна в VBA, яка легко створює дані та посилається на конкретні значення. У Enum ми групуємо повідомлення, щоб їх можна було ефективно використовувати.

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

ENUM - це числова змінна, яку можна побудувати на замовлення, але вона також вбудована в VBA.
Якщо ми не призначимо жодних значень значенням ENUM, VBA автоматично присвоює їм значення.
Для використання перерахунків VBA у нашому коді ми посилаємо їх на ім'я перерахунків.