大于和小于范围

时间:2011-11-10 17:37:34

标签: excel vba excel-vba

我试图通过0到1之间的随机数并将它们分组成一个数组。每个数组都包含从0到0.1,0.1到0.2等数字的值。如何编写If语句以使我的代码包含0.1?截至目前,它只读取大于0的部分。

这就是我所拥有的:

If Range("A1").Offset(i - 1, 0).Value > 0 < 0.1 Then
count1 = count1 + 1

2 个答案:

答案 0 :(得分:2)

您必须使用临时变量,因为您已经检查了两次:

dim temp as single
temp = Range("a1").Offset(i - 1, 0).Value

if temp >= 0 and temp < 0.1 then
    ' ...
else if temp >= 0.1 and temp < 0.2 then
    ' ...
'...

或者你可以用更聪明的方式做到这一点:

dim index as integer
index = temp / 0.1

' et-voilà, you know where to insert it

答案 1 :(得分:1)

Dim value As Double

value = Range("a1").Offset(i - 1, 0).Value

If value > 0 And value < 0.1 Then
  ' ...
End If