Имя пользователя:
Пароль:
 | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » VBA - [решено] Visual basic задача ячейки

Ответить
Настройки темы
VBA - [решено] Visual basic задача ячейки

Новый участник


Сообщения: 5
Благодарности: 0

Профиль | Отправить PM | Цитировать


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

Отправлено: 19:19, 10-06-2016

 

Новый участник


Сообщения: 5
Благодарности: 0

Профиль | Отправить PM | Цитировать


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

Отправлено: 19:21, 10-06-2016 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать


Скрытый текст
Код: Выделить весь код
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
Это сообщение посчитали полезным следующие участники:

Отправлено: 11:26, 11-06-2016 | #3



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » VBA - [решено] Visual basic задача ячейки

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
visual basic 6 иоанн Хочу все знать 1 27-04-2009 18:51
visual basic 6 guma Программирование и базы данных 1 26-04-2007 20:41
Visual Basic DevilHaker Программирование и базы данных 3 15-01-2006 09:52
Visual Basic !!! skulida Программирование и базы данных 2 06-04-2003 12:13
Visual Basic Anton R Программирование и базы данных 2 03-04-2003 16:35




 
Переход