如何使用excel表格里VBA语言写程序啊！

发布网友发布时间：2023-11-08 04:57

共2个回答

热心网友时间：2024-12-02 21:59

你既然提到VBA，就应知道SELECT CASE：

Function Locate(Number)
Select Case Number

Case 5,6,8,13
Locate = "北京"

Case Else
Locate = "错误"
End Select
End Function

两个Case之间还可以加入其它的判断,请参考:

使用 Select Case 语句

当一个表达式与几个不同的值相比较时，可以使用 Select Case 语句来交替使用在 If...Then...Else 语句中的 ElseIf。If...Then...Else 语句会计算每个 ElseIf 语句的不同的表达式，在控制结构的顶部，Select Case 语句只计算表达式一次。

在下面的示例中，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，就得到“北京”

热心网友时间：2024-12-02 21:59

不用VBA，用公式就可以了。
countif函数。