< návrat zpět

MS Excel

Téma: Náhodná čísla rss

Zaslal/a Lugr 24.2.2019 17:02

LugrDobrý 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

Zaslat odpověď >
JoKe(24.2.2019 21:44)#042822
avatar
Range("B1:D10").Selectcitovat
elninoslov(24.2.2019 23:03)#042823
elninoslov
Príklad generovania do voliteľných multioblastí.
Příloha: zip42823_generator-cisel-do-multioblasti.zip (19kB, staženo 30x)
citovat
Lugr(25.2.2019 12:16)#042828
Lugr
Je to bomba, moc děkuji elninoslovcitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje