Автоматизировать подсчет количества случаев

[nike64n]

Было дано задание:

Моделировать данные о температуре воздуха в течение месяца (температура воздуха варьируется в пределах от -5 до 5°С). Автоматизировать подсчет количества случаев, когда температура опускалась ниже 0°С.

Я написал:

Sub Нахождение()
Dim T As Integer
T = InputBox("Введите число")
If T < 0 Then
MsgBox (" Введенное число подходит условию ")
Else
MsgBox (" Введенное число не подходит условию ")
End If
End Sub

не знаю как написать код со случайными числами от -5 до 5 и чтоб выводил результат...Заранее благодарен.

[Казанский]

А зачем тут VBA? Заполните ячейки А1:А31 формулой

=СЛУЧМЕЖДУ(-5;5)

В какую-нибудь другую ячейку введите

=СЧЁТЕСЛИ(A1:A31;"<0")

Это и будет число случаев. F9 для обновления.

[nike64n]

Задание конкретно на VBA. С преподователем не поспоришь=)

[nike64n]

Sub Нахождение()
Dim T As Integer
Randomize
T = Int(11 * Rnd - 5)
If T < 0 Then
MsgBox (" число подходит условию ")
Else
MsgBox (" число не подходит условию ")
End If
End Sub

Что нужно сделать что бы Автоматизировать подсчет количества случаев, когда температура опускалась ниже 0°С.

а то он мне выдаёт либо оно " число не подходит условию " или " число подходит условию " Нужно чтобы выводил результат количества случаев...

[nike64n]

Sub nn()
Randomize
Cells.Clear
For i = 1 To 30
Cells(i, 1) = i
Cells(i, 2) = Int(Rnd * 11) - 5
If Cells(i, 2) < 0 Then k = k + 1
Next
MsgBox "К-во дней с температуорй меньше 0=" & k
End Sub