End Select. Вначале вычисляется выражение

Вначале вычисляется выражение. Полученное значение последовательно сравнивается со всеми значениями в предложениях Case. Если получено равенство, т.е. Выражение = 3начение, то вы­полняются действия после соответствующего предложения Case. Если Выражение не совпадает ни с одним значением, то выполняется оператор, стоящий после Case Else.

Тип Значений должен совпадать с типом проверяемого Выражения.

Пример:

Select Case A

Case l

В = "А равно 1"

Case 2

В = "А равно 2"

Case Else

В = "Переменная А не равна 1 или 2"

End Select

В области Значение можно указать не одно, а диапазон значений.

Если в области Значение находится условие, то необходимо использовать ключевое словосочетание Case Is < условие>.

Пример:

Select Case Range("B 1")

Case ""

Range("Bl") = 0

Case Is > 100

Range ("Bl") = 100

Case 8 to 16

Range("Bl") = 0

End Select