VBA Select Case: примеры, синтаксис, особенности

Select Case в VBA это инструкция для поиска совпадений в списке возможных значений. Он позволяет выполнять код в зависимости от значения переменной или выражения.

Пример:

Sub CheckDayOfWeek()

Dim dayOfWeek As Integer

dayOfWeek = Weekday(Now())

Select Case dayOfWeek

Case 1

MsgBox "Sunday"

Case 2

MsgBox "Monday"

Case 3

MsgBox "Tuesday"

Case 4

MsgBox "Wednesday"

Case 5

MsgBox "Thursday"

Case 6

MsgBox "Friday"

Case 7

MsgBox "Saturday"

End Select

End Sub

В этом примере использована функция Weekday, которая возвращает цифру, соответствующую дню недели. Затем мы используем Select Case для проверки этого значения и отображения соответствующего сообщения пользователю. Выражение, переданное в Select Case, может быть произвольным, включая числа, строки и логические значения.

Если нужно проверить несколько условий одновременно, то можно использовать множественные Case. Пример:

Sub CheckGrade()

Dim score As Integer

score = InputBox("Enter your score:")

Select Case score

Case 90 To 100

MsgBox "Your grade is A"

Case 80 To 89

MsgBox "Your grade is B"

Case 70 To 79

MsgBox "Your grade is C"

Case 60 To 69

MsgBox "Your grade is D"

Case Is < 60

MsgBox "Your grade is F"

End Select

End Sub

В этом примере мы проверяем оценку, полученную пользователем, и отображаем соответствующее сообщение. Мы использовали диапазоны значений с помощью конструкции To и проверку на "меньше" (<). В конце можно добавить "Case Else" для обработки всех остальных значений.

Таким образом, Select Case в VBA представляет собой удобный инструмент для проверки переменных/выражений на соответствие определенным значениям и выполнения соответствующего кода в зависимости от результата проверки.