Pro náhodný výběr od 1 do 15
Vyber = Round(Rnd * 14) + 1
A pro pozastaveni běhu kódu na cca 15sec
Application.Wait (Now + TimeValue("0:00:15"))citovat
Vyber = Round(Rnd * 14) + 1
A pro pozastaveni běhu kódu na cca 15sec
Application.Wait (Now + TimeValue("0:00:15"))citovat