Случайное число из диапазона значений

Случайное число из диапазона значений, Изменять диапазон значений на рабочем листе

Пользователь

Сообщений: 67 Регистрация: 19.03.2020

02.08.2020 17:09:16

Доброго времени суток. Возник следующий вопрос. Существует некая таблица в столбец которой необходимо вставить случайное число из заданного диапазона чисел. Использовал встроенную функцию Excel " =случмежду(10;30)", часто приходится изменять диапазон. Как можно сделать так, чтобы этот диапазон можно было бы менять на рабочем листе в ячейках L7-нижний предел и M7-верхний, а не в коде программы. Файл-пример прилагаю.

Прикрепленные файлы

Пример.xlsm (16.02 КБ)

БМВ

Модератор

Сообщений: 23284 Регистрация: 28.12.2016

Excel 2013, 2016

02.08.2020 17:16:43

Код

Sub Primer()
Dim b As Integer, d As Integer, n As Integer
n = 8
With Worksheets("Лист1")
Do While .Cells(n, 1) <> 0
b = .Cells(4, 12).Value
d = .Cells(4, 13).Value
'Формула случайного числа вставляемая в ячейку из диапазона от 10 до 20
.Cells(n, 9).FormulaR1C1 = "=RANDBETWEEN(" & .Range("L7") & "," & .Range("M7") & ")"
  n = n + 1
Loop
End With
End Sub

По вопросам из тем форума, личку не читаю.

Фарит Пользователь Сообщений: 67 Регистрация: 19.03.2020	#3 02.08.2020 17:22:35 Огромное спасибо, заработало!!!