Вместо нескольких Если Затем заявление в Excel VBA, вы можете использовать структуру Select Case.

Ситуация:

Select Case in Excel VBA

Поместите командную кнопку на листе и добавьте строки следующего кода:

  1. Во-первых, объявить две переменные. Одна переменная типа Integer с именем балла и одна переменная строкового типа по имени результата.

Dim score As Integer, result As String

  1. Мы инициализируем счет переменной со значением ячейки A1.

score = Range("A1").Value

  1. Добавить структуру Select Case.

Select Case score

Case Is >= 80

result = "very good"

Case Is >= 70

result = "good"

Case Is >= 60

result = "sufficient"

Case Else

result = "insufficient"

End Select

Объяснение: Excel VBA использует значение переменного балла, чтобы проверить каждое последующее заявление случая, чтобы увидеть, если код по утверждению случая должен быть выполнен.

  1. Записать значение переменного результата в ячейку B1.

Range("B1").Value = result

  1. Проверьте программу.

Результат при нажатии на кнопку управления на листе:

Select Case Result

Примечание: Excel VBA выполняет код под вторым оператором Case для всех значений, превышающих или равных 70 и меньше 80.