![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » VBA - [решено] Visual basic задача ячейки |
|
VBA - [решено] Visual basic задача ячейки
|
Новый участник Сообщения: 5 |
Уважаемые пользователи oszone.net помогите мне пожалуйста решить задачу по информатике:
В ячейки B5..Bn записать случайные числа. В столбец C выписать те числа, которые удовлетворяют условию на картинке |
|
Отправлено: 19:19, 10-06-2016 |
Новый участник Сообщения: 5
|
Профиль | Отправить PM | Цитировать Это нужно сделать через цикл for
|
Отправлено: 19:21, 10-06-2016 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Ветеран Сообщения: 27449
|
Профиль | Отправить 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 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
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 |
|