< návrat zpět
MS Excel
Téma: náhodné číslo ![rss](./plugins/templates/wall_2C/images/icons/rss.png)
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.
Stalker(13.2.2011 23:58)#004085 ![Stalker](./pictures/avatars/5a84a0f55ed4d.jpg)
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 ![avatar](./pictures/avatars/no-avatar.jpg)
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.
![2](./plugins/templates/wall_2C/images/smileys/2.gif)
Dík. Jo, kde se dá najít nějaký souhrn funkcí a syntaxe? Díky moc.
citovat