Excel - operace s pseudonáhodně generovanými čísly

A v čem máš problém? to je na dva řádky VBA kódu plus inicializaci generátoru v "hlavičce" sešitu.

http://www.vbexplorer.com/VBExplorer/random/random _numbers_1.asp

Předpokládám, že udělat tlačítko a napsat k němu kód, který aktualizuje buňku umíš.

Popravdě, zvládnul jsem jenom vyvolat náhodné číslo a ani to nefunguje.

Private Sub CommandButton1_Click()
Range("G89").Select
ActiveCell.FormulaR1C1 = "=randbetween (2,12)"
End Sub

co tohle:

Private Sub CommandButton1_Click()
Dim nah_cislo As Long
'náhodné číslo v rozsahu 2 až 12
nah_cislo = WorksheetFunction.RandBetween(2, 12)
' do buňky A1 se zobrazí náhodné číslo
Range("A1").Value = nah_cislo
'v buňce D1 se bude přičítat náhodné číslo ke stávajícímu
Range("D1").FormulaR1C1 = Range("D1").Value + nah_cislo
End Sub

Buňky si jistě nastavíš sám

Díky, to funguje.

OMFG... míchat funkce excelu do VBA, to se jen tak nevidí..

Předpokládám, žes na ten link ani neklikl..

Žabáku jen pro Tebe

Private Sub CommandButton1_Click()

Dim nah_cislo As Long
Dim spodni_mez As Double
Dim horni_mez As Double

spodni_mez = 2
horni_mez = 12

'náhodné číslo v rozsahu 2 až 12
nah_cislo = Int((horni_mez - spodni_mez + 1) * Rnd + spodni_mez)

' do buňky A1 se zobrazí náhodné číslo
Range("A1").Value = nah_cislo

'v buňce D1 se bude přičítat náhodné číslo ke stávajícímu
Range("D1").FormulaR1C1 = Range("D1").Value + nah_cislo
End Sub

Doufám, že je to podle představ

Klikl. Jsem úplný začátečník, nevím, proč bych nemohl hodit do VBA funkci, která mi do buňky vloží excelovskou funkci!? Je mi jasné, že je to amatérské, ale já jsem amatér.

proč bych nemohl hodit do VBA funkci, která mi do buňky vloží excelovskou funkci!?

Proč nemůžu jezdit ponorkou do práce?!

Protože na to nemáš dost peněz