• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse