Этот сайт использует cookies. Продолжение работы с сайтом означает, что Вы согласны!
Перечисления
Перечисление — это совокупность целочисленных констант, описывающих допустимые значения переменной. Объявление перечисления имеет следующий формат:
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
.
Помощь сайту
Yandex-деньги: 410011140483022
ПАО Сбербанк:
Счет: 40817810855006152256
Реквизиты банка:
Наименование: СЕВЕРО-ЗАПАДНЫЙ БАНК ПАО СБЕРБАНК
Корреспондентский счет: 30101810500000000653
БИК: 044030653
КПП: 784243001
ОКПО: 09171401
ОКОНХ: 96130
Скриншот реквизитов