excelvba怎么写( 二 )


在下面的示例中,Select Case 语句会计算发送给此过程的参数performance 。请注意,每个 Case 语句可以包含一个以上的值,一个值的范围,或是一个值的组合以及比较运算符 。如果 Select Case 语句与Case 语句的任何值相匹配,则可选的 Case Else 语句运行 。
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
在VBA内自定义了函数后,就可以在单元格中直接使用:
在B1中输入=Locate(A1),若A1的值是5、6、8、13,就得到“北京”

excelvba怎么写

文章插图