MS Excel

Téma: Náhodná čísla

Zaslal/a Lugr 24.2.2019 17:02

Dobrý den,

našel jsem Makro na generování čísel.
Potřeboval bych ho upravit tak, aby generoval čísla do vybrané oblasti (Range(B1:B10,D1:D10)).

Bohužel mi nejde poslat příloha, ale makro vypadá takto:

Sub Generator_cisel()

lbnd = InputBox("Zadejte spodní hranici")
ubnd = InputBox("Zadejte horní hranici")
nudp = InputBox("Stiskni OK pro celá čísla nebo D pro desetinná místa")

If UCase(nudp) = "D" Then
With Selection
.ClearContents
.NumberFormat = "#,##0.00"
End With
For Each Cell In Selection
Cell.Value = Rnd() * (ubnd - lbnd) + lbnd
Next Cell
Else
With Selection
.ClearContents
.NumberFormat = "#,##0"
End With
For Each Cell In Selection
Cell.Value = Int(Rnd() * (ubnd - lbnd + 1) + lbnd)
Next Cell
End If

End Sub

Děkuji za pomoc