MS Excel

Téma: náhodné číslo

Zaslal/a george 13.2.2011 22:15

hezký den přeji,

potřebuji otevřít soubor a uložit jej pod názvem TMP a náhodné číslo. zkoušel jsem to takto v thisworkbook :

Sub Workbook_Open()
Dim cesta As String
Dim Nazev As String
Dim nahodne As Long
nahodne = 10000 * Rnd()
Nazev = "TMP" & nahodne
cesta = ThisWorkbook.path
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs cesta & "\" & Nazev
Application.DisplayAlerts = True
End Sub

problém je v tom, že to vygeneruje pokaždé stejné číslo.
Když stejný vzorec dám do smyčky na listu, vypisuje řadu různých čísel. V čem jsem udělal chybu? Děkuji moc za radu.

Zaslat odpověď >

Stalker(13.2.2011 23:58)#004085

Co tohle:
Sub Workbook_Open()
Dim cesta As String
Dim Nazev As String
Dim nahodne As Long
nahodne = WorksheetFunction.RandBetween(1000, 10000)
Nazev = "TMP" & nahodne
cesta = ThisWorkbook.Path
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs cesta & "\" & Nazev
Application.DisplayAlerts = True
End Sub
citovat

George(14.2.2011 12:55)#004088

Fakt funguje. Díky moc. Sice nechápu jak je to s funkcí rnd() a proč se to takto chová, ale problém je vyřešen.

Dík. Jo, kde se dá najít nějaký souhrn funkcí a syntaxe? Díky moc.citovat

Uživatelské menu

Nejste přihlášen(a)

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.