[решено] Visual basic задача ячейки

[denis130697]

Уважаемые пользователи oszone.net помогите мне пожалуйста решить задачу по информатике:
В ячейки B5..Bn записать случайные числа. В столбец C выписать те числа, которые удовлетворяют условию на картинке

[denis130697]

Это нужно сделать через цикл for

[Iska]

Option Explicit

Sub Sample()
Dim n As Variant
Dim i As Integer

Dim objRange As Range


n = InputBox("Enter max row number", "Enter max row number", 25)

If Len(n) > 0 Then
Randomize Timer

With ThisWorkbook.Worksheets.Item(1)
.UsedRange.Clear

For i = 5 To CInt(n)
Set objRange = .Cells.Item(i, 2)

objRange.Value = Int(100 * Rnd)

If 20 <= objRange.Value And objRange.Value <= i * i Then
objRange.Offset(0, 1).Value = objRange.Value
End If
Next i
End With
End If
End Sub