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

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

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.

Предыдущая статья Все статьи Следующая статья