Использование операторов Select CaseUsing Select Case statements

Используйте оператор Select Case в качестве альтернативы для использования ElseIf в операторе If... Then... Else при сравнении одного выражения с несколькими разными значениями.Use the Select Case statement as an alternative to using ElseIf in If...Then...Else statements when comparing one expression to several different values. Хотя операторы If...Then...Else могут вычислять отдельное выражение для каждого оператора ElseIf, оператор Select Case вычисляет выражение всего один раз — в верхней точке управляющей структуры.While If...Then...Else statements can evaluate a different expression for each ElseIf statement, the Select Case statement evaluates an expression only once, at the top of the control structure.

В следующем примере оператор Select Case оценивает аргумент, который передается в процедуру.In the following example, the Select Case statement evaluates the argument that is passed to the procedure. Обратите внимание, что каждый оператор Case может содержать несколько значений, диапазон значений или комбинацию значений и операторов сравнения.Note that each Case statement can contain more than one value, a range of values, or a combination of values and comparison operators. Необязательный оператор Case Else выполняется, если оператор Select Case не соответствует значению в любом из операторов Case.The optional Case Else statement runs if the Select Case statement doesn't match a value in any of the Case statements.

Function Bonus(performance, salary) 
  Select Case performance 
    Case 1 
      Bonus = salary * 0.1 
    Case 2, 3 
      Bonus = salary * 0.09 
    Case 4 To 6 
      Bonus = salary * 0.07 
    Case Is > 8 
      Bonus = 100 
    Case Else 
      Bonus = 0 
  End Select 
End Function 

См. такжеSee also

Поддержка и обратная связьSupport and feedback

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи?Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.