3.4.2 Оператор Select Case
Проверка условий в VBA, оператор Select Case
Оператор Select Case идеально подходят для проверки одного и того же значения, которое нужно много раз сравнить с разными выражениями. Синтаксис его очень прост:
Select Case sDayOfWeek
Case "Понедельник"
MsgBox "Салат из шпината"
Case "Вторник"
MsgBox "Салат из морской капусты"
…
Case Else
MsgBox "На этот день у нас ничего не предусмотрено"
End Select
Некоторые замечания по поводу Select Case:
- строка Case "Понедельник" на самом деле означает Case sDayOfWeek = "Понедельник", просто такое равенство подразумевается по умолчанию. Но вам ничего не мешает использовать другой оператор сравнения или целый набор таких операторов:
Case 0 To 5, 15, Is > 55
MsgBox "Напомнить о прививках"
- Слово Is при этом можно пропустить — компилятор VBA добавит это ключевое слово за Вас. Несколько критериев в Case объединяются аналогично операторы OR — то есть выполнение пойдет по этой ветви, если тестируемое значение будет удовлетворять хотя бы одному из критериев. Критерии для сравнения разделяются запятыми.
- при использовании диапазона (0 To 5) включаются и границы диапазона (в данном случае 0 и 5).