VBA编程-使用 Select Case 语句

时　间:2023-01-12 07:36:45
作　者:福哥(QQ86053924)   ID：1784  城市：成都
摘　要:VBA编程-使用 Select Case 语句。
正　文:

      使用 Select Case 语句作为在 If... 中 使用 ElseIf 的 替代方法。然后...将 一个表达式与几个 不同的值 进行比较时，Else 语句。 If...Then...Else 语句可计算每个 ElseIf 语句的不同表达式， Select Case 语句则只在控制结构顶部计算一次表达式。

      在以下示例中， Select Case 语句计算传递给过程的参数。 请注意，每个 Case 语句可以包含多个值、一系列值或值和 比较运算符的组合。 如果 Select Case 语句与任何 Case 语句中的值均不匹配，将运行可选的 Case Else 语句。

VB复制

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