VBA Enum

Enum сокращенно обозначается как перечисление. Это процесс, в котором мы упоминаем что-то один за другим. Точно так же у нас есть перечисления в каждом языке программирования, будь то JAVA, C или Excel VBA. В VBA у нас есть некоторые встроенные перечисления, которые начинаются с VB, например, VBnewLine используется для вставки новой строки. Это перечисление. В Excel VBA мы также можем создавать наши собственные нумерации.

В VBA Enum на самом деле является переменной, такой же как целое число или строка и другие. Мы можем составить список элементов в VBA и использовать переменные. Перечисления сделаны, чтобы сделать вещи проще в использовании или легко найти. Например, для такой мотоциклетной компании, как Bajaj, список будет производиться как велосипеды, такие как пульсар, мститель, доминар и т. Д. Единственное, что нам нужно помнить, это то, что enum похож на числовую переменную, которую можно использовать как представление одной интерпретации. Существует также другой способ использовать сообщения о состоянии, используя константу, но они могут быть утомительными, поскольку они не сгруппированы и идут вместе со всеми другими перечисляемыми переменными VBA. Но с помощью VBA ENUM мы можем сгруппировать наши перечисления в одну группу и использовать их, когда захотим.

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

Синтаксис для использования ENUM в Excel VBA выглядит следующим образом:

 Enum EnumName EnumValue (= LongValue) EnumValue (= LongValue) ((_EnumValue)) (= LongValue) End Enum

Важно помнить, что значения, указанные в ENUM, должны иметь конкретные значения, но если мы не предоставляем никаких значений, VBA автоматически присваивает первому значению enum значение 0, а следующему - 1 и т. Д.

Поэтому, как я уже говорил выше, для мотоциклетной компании, производящей велосипеды, перечень будет таким:

 ENUM Bikes Pulsar Avenger = 4 Доминар Энд ENUM

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

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

Для демонстрации в коде VBA попытайтесь обратиться к ячейке A1, и как только мы используем оператор точки, мы увидим, что всплывают многие другие перечисления, которые могут или не могут потребоваться для нас. Посмотрите на скриншот ниже.

На приведенном выше снимке экрана видно, что существует множество перечислений, начиная с A. Это встроенные перечисления 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 Editor.

Шаг 2: Вставьте новый модуль с вкладки «Вставка» в VB Editor.

Шаг 3: Объявите функцию Enum с именем enum.

Код:

 Enum Greetings End Enum

Шаг 4: Объявите значения перечисления следующим образом:

Код:

 Enum Поздравления Утро = 1 День = 2 Вечер = 3 Ночь = 4 Конец Enum

Шаг 5: Теперь объявите подфункцию ниже функции enum для использования enum.

Код:

 Enum Приветствия Утро = 1 День = 2 Вечер = 3 Ночь = 4 End En Sub Sub UseEnum () End Sub

Шаг 6: Показать персональное сообщение, используя функцию msgbox.

Код:

 Enum Greetings Morning = 1 День = 2 Вечер = 3 Ночь = 4 End En Sub SubEnum () MsgBox "Greeting Number" End Sub

Шаг 7: Для отображения номера приветствия мы используем перечисление следующим образом:

Код:

 Enum Greetings Утро = 1 День = 2 Вечер = 3 Ночь = 4 End Enum Sub UseEnum () MsgBox "Greeting Number" & Greetings. End Sub

Шаг 8: Выберите любое из значений приветствия следующим образом.

Код:

 Enum Greetings Morning = 1 День = 2 Вечер = 3 Ночь = 4 End Sub Sub UseEnum () MsgBox "Greeting Number" & Greetings.Af днем ​​End Sub

Шаг 9: Когда закончите, скомпилируйте и запустите полный код, нажав на кнопку воспроизведения, расположенную чуть ниже строки меню. Когда мы запускаем код, мы видим следующий результат.

Было очень легко создать перечисление и использовать их, это ясно из приведенного выше примера.

Excel VBA Enum - Пример № 2

Теперь в этом примере давайте воспользуемся перечислением для хранения данных в листе Excel. Мы будем использовать пример мотоциклов, использованных во вводном разделе.

У нас есть какой-то предварительный расчет на листе 1 следующим образом.

Мы заполним ячейки подсчета мотоциклов, используя перечисления, которые подсчитают общую стоимость этих мотоциклов.

Для этого выполните следующие действия, чтобы использовать VBA Enum:

Шаг 1: Перейдите на вкладку разработчика, чтобы щелкнуть Visual Basic, чтобы открыть VB Editor.

Шаг 2: Вставьте новый модуль с вкладки «Вставка» в VB Editor.

Шаг 3: Объявите функцию enum как мотоциклы.

Код:

 Enum Motorbikes End Enum

Шаг 4: Объявите список перечислений следующим образом:

Код:

 Enum Motorbikes Pulsar = 20 Мститель = 15 Доминар = 10 Платина = 25 End Enum

Шаг 5: Теперь объявите подфункцию для использования этих перечислений.

Код:

 Enum Motorbikes Pulsar = 20 Мститель = 15 Доминар = 10 Платина = 25 End En Sub Sub TotalCalculation () End Sub

Шаг 6: Мы знаем, что для использования свойств листа 1 нам нужно сначала активировать лист с помощью следующего кода.

Код:

 Enum Motorbikes Pulsar = 20 Мститель = 15 Доминар = 10 Платина = 25 End En Sub SubCalculation () Рабочие таблицы ("Sheet1"). Активировать End Sub

Шаг 7: Теперь присвойте значения ячейке, используя перечисление следующим образом:

Код:

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

Шаг 8: Запустите приведенный выше код с помощью кнопки запуска или нажмите F5 и просмотрите следующий результат на листе 1.

В приведенном выше примере мы видим, что мы добавили значения в ячейки, используя перечисление VBA.

Теперь из приведенных выше примеров нам очень ясно, что такое ENUM в VBA. ENUM - это числовая переменная в VBA, которая используется для создания данных и простого обращения к конкретным значениям. В Enum мы группируем сообщения, чтобы их можно было эффективно использовать.

То, что нужно запомнить

  • ENUM - это числовая переменная, которая может быть создана пользователем, но также встроена в VBA.
  • Если мы не присваиваем значения ENUM, VBA автоматически присваивает им значения.
  • Чтобы использовать перечисления VBA в нашем коде, мы ссылаемся на них по имени enum.

Рекомендуемые статьи

Это был путеводитель по VBA Enum. Здесь мы обсудили, как сделать пользовательские перечисления в Excel VBA вместе с практическими примерами и загружаемым шаблоном Excel. Вы также можете просмотреть наши другие предлагаемые статьи -

  1. VBA Range | Учебники по Excel
  2. Группировка столбцов в Excel
  3. VBA Active Cell
  4. VLOOKUP Учебник в Excel

Категория:

VBA