Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Генерация пар чисел в заданных диапазонах с выполнением определнного условиях
 
#1
11.07.2019 22:19:28
Здравствуйте, у вас на форуме впервые, но вроде ничего по моему вопросу не нашел. Как в Exсel реализовать генерацию чисел, с зависимостью? Например мне нужна выборка чисел A и B с заданными пределами: A изменяется от 35 до 42, B изменяется в диапазоне от 17 до 25. При этом мне необходимо чтобы числа генерировались с условием: 7<A-B<17
 
 
 
#2
11.07.2019 22:40:09
Код
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.07.2019 22:42:59
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
11.07.2019 22:59:33
Sanja, Как их просто генерировать я понял, но как это осуществить на листе документа. А имеено мне нужно чтобы генерировались числа в столбцы Wl и Wp с условием, чтобы значения в столбце Ip (Ip=Wl-Wp) были с определенным ограничением, более 17, от 7 до 17 или еще возможно менее 7. Файлик прикрепил, я его только формирую, поэтому он немного грязноват.
Изменено: Ewgeny Zotov - 11.07.2019 23:00:31
 
 
 
#4
11.07.2019 23:21:56
Код
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
Наверх