大于和小于范围

Question

我试图通过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

Answer 1

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

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

Answer 2

Dim value As Double

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

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