Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)
-   -   [решено] Visual basic задача ячейки (http://forum.oszone.net/showthread.php?t=315768)

denis130697 10-06-2016 19:19 2642037
Visual basic задача ячейки
 
Вложений: 1
Уважаемые пользователи oszone.net помогите мне пожалуйста решить задачу по информатике:
В ячейки B5..Bn записать случайные числа. В столбец C выписать те числа, которые удовлетворяют условию на картинке

denis130697 10-06-2016 19:21 2642038
Это нужно сделать через цикл for

Iska 11-06-2016 11:26 2642122
Скрытый текст
Код:
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


Время: 22:15.

Время: 22:15.
© OSzone.net 2001-