генератор случайных чисел

[Nicolas_46]

Господа, простейший вопрос, но не как не могу догодаться.
Пытаюсь пользоваться генератором случайных чисел.
как сделать чтобы оставалась целая часть числа не изменной, а дробная
менялась случайным образом.
пытался сделать вот таким образом, но необходимо чтобы целая часть задавалась в ячейке, или в userform.

Sub Генератор()

Randomize
     
    Dim cell As Range, ra As Range
    Set ra = Intersect(Selection, ActiveSheet.UsedRange)
    If ra Is Nothing Then
    MsgBox "Пустые ячейки отсутствуют!", _
                vbExclamation, "Ничего не заполнять"
     Else
        Application.ScreenUpdating = False    
        For Each cell In ra.Cells
        If Trim(cell) = "" Then cell = "22," & Fix(Rnd() * 9 + 1)
        Next cell
        End If
End Sub

[IgorGO]

а так не пойдет:

cell = 22 + Rnd()

[Nicolas_46]

cell = 22 + Rnd()

Так догодался как сделать, необходимо чтобы целая часть задавалась в ячейке в ручную
не знаю на что нужно заменить "22," встроке
Then cell = "22," & Fix(Rnd() * 9 + 1)
чтобы вместо 22 вставлялось например значение из ячейки М1

[Nicolas_46]

Но лучше бы было если бы можно задавать диапозон
например: с 20,1 до 22,3
тогда целая часть может быть переменной.
но диапозон тоже необходимо задавать в ручную в ячейках

[IgorGO]

однако...
когда в школе математика была, курили по подворотням?
= [m1]+([m2]-[m1])*rnd()
в ячейке М1 - минимальное значение
в ячейке М2 - максимальное

[IgorGO]

давайте еще проще: в М1 и М2 - границы диапазона

[DiemonStar]

=B1 + (C1-B1)*СЛЧИС()

где в B1 и C1 заданы границы

[Nicolas_46]

Благодарю вас господа, все заработало))) А на математике интегральные уравнения щелкал, про случайные числа почему-то не где не встречал.

[IgorGO]

на математике интегральные уравнения щелкал

это институтский курс высшей математики, у меня с этим проблемы, теперь хоть буду знать к кому обратиться.

заранее, спасибо!

[Nicolas_46]

Сообщение от IgorGO

это институтский курс высшей математики, у меня с этим проблемы, теперь хоть буду знать к кому обратиться.

заранее, спасибо!

буду рад помоч)