[英]Using AND in VBA excel with Select case
I am trying to write a simple function that give me band 1 if value is zero Band 2 if its between 0 to 150k Band 3 if between 150 k to 500k and so on 我正在尝试编写一个简单的函数,如果值是零,则给我带1;如果值是0至150k,则给我带2;如果150k至500k之间,则给我带3,依此类推。
I only get 1 if value is zero and everything else is 2 , even if I enbter 10 million 即使值是1000万,我也只能在值为0且其他所有值为2时得到1
Please help 请帮忙
Function Band(ARR)
Select Case ARR
Case Is = 0
Band = 1
Case Is >= 0.1 And ARR <= 150000
Band = 2
Case Is >= 150000.01 And ARR <= 500000
Band = 3
Case Is >= 500000.01 And ARR <= 1500000
Band = 4
Case Is >= 1500000.01
Band = 5
Case Else
Band = 6
End Select
End Function
VBA Select Case 'short-circuits' (ie no further cases are examined) once a matching criteria is met so there is no need for And operators. 一旦满足匹配条件,则VBA选择案例“短路”(即不检查其他案例),因此不需要And运算符。
Function Band(ARR)
Select Case true
Case ARR < 0
Band = 6
Case arr = 0
Band = 1
Case arr <= 150000
Band = 2
Case arr <= 500000
Band = 3
Case arr <= 1500000
Band = 4
Case else
Band = 5
End Select
End Function
You could use the "To" keyword to specify a range. 您可以使用“ To”关键字来指定范围。 See here for more information.
浏览此处获取更多信息。
Function Band(arr)
Select Case arr
Case 0
Band = 1
Case 0.01 To 150000
Band = 2
Case 150000.01 To 500000
Band = 3
Case 500000.01 To 1500000
Band = 4
Case arr >= 1500000.01
Band = 5
Case Else
Band = 6
End Select
End Function
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.