Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Генерация пар чисел в заданных диапазонах с выполнением определнного условиях
 
Здравствуйте, у вас на форуме впервые, но вроде ничего по моему вопросу не нашел. Как в Exсel реализовать генерацию чисел, с зависимостью? Например мне нужна выборка чисел A и B с заданными пределами: A изменяется от 35 до 42, B изменяется в диапазоне от 17 до 25. При этом мне необходимо чтобы числа генерировались с условием: 7<A-B<17
 
Код
Sub PairRND()
Randomize
Do
    A = Int(8 * Rnd + 35)
    B = Int(9 * Rnd + 17)
Loop Until (A - B) > 7 And (A - B) < 17
Range("B1") = A
Range("B2") = B
End Sub
Изменено: Sanja - 11 Июл 2019 22:42:59
Согласие есть продукт при полном непротивлении сторон.
 
Sanja, Как их просто генерировать я понял, но как это осуществить на листе документа. А имеено мне нужно чтобы генерировались числа в столбцы Wl и Wp с условием, чтобы значения в столбце Ip (Ip=Wl-Wp) были с определенным ограничением, более 17, от 7 до 17 или еще возможно менее 7. Файлик прикрепил, я его только формирую, поэтому он немного грязноват.
Изменено: Ewgeny Zotov - 11 Июл 2019 23:00:31
 
Код
Sub PairRND()
Randomize
lrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lrow
    Do
        A = Int(8 * Rnd + 35)
        B = Int(9 * Rnd + 17)
    Loop Until (A - B) > 7 And (A - B) < 17 'разница между 7 и 17
    'Loop Until (A - B) <7   'разница меньше 7
    'Loop Until (A - B) >17   'разница больше 17
    Range("I" & i) = A
    Range("J" & i) = B
Next
End Sub
Согласие есть продукт при полном непротивлении сторон.
Страницы: 1
Читают тему (гостей: 1)
Наверх