Перечисления

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

Enum <Название перечисления>
   <Название константы1>[ = <Значение1>]
   ...
   <Название константыN>[ = <ЗначениеN>]
End Enum

Пример объявления перечисления:

Enum Цвет
   Синий
   Красный
   Зеленый
   Черный
End Enum

Это объявление следует поместить в самом начале модуля. Размещать объявление внутри процедуры или функции нельзя. После создания перечисления его название можно использовать при объявлении переменной в операторе Dim:

Dim colour As Цвет
colour = Зеленый
Debug.Print colour ' Выведет: 2

Константам Синий, Красный, Зеленый и Черный автоматически присваиваются целочисленные значения, начиная с нуля. Значение каждой последующей константы будет на единицу больше предыдущей. Нумерация производится слева направо. Таким образом, константа Синий будет иметь значение 0, Красный — 1, Зеленый — 2, а Черный — 3.

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

Enum Цвет
   Синий = 3
   Красный
   Зеленый = 7
   Черный
End Enum

В этом примере, константа Синий будет иметь значение 3, а не 0, Красный — 4, Зеленый — 7, а Черный — 8.

Visual Basic for Applications (VBA)
Самоучитель по VBA

Помощь сайту

Yandex-деньги: 410011140483022

ПАО Сбербанк:
Счет: 40817810855006152256
Реквизиты банка:
Наименование: СЕВЕРО-ЗАПАДНЫЙ БАНК ПАО СБЕРБАНК
Корреспондентский счет: 30101810500000000653
БИК: 044030653
КПП: 784243001
ОКПО: 09171401
ОКОНХ: 96130
Скриншот реквизитов

Поиск по сайту в Яндексе