Больше чем и меньше чем диапазон

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