View Single Post
  #7   Report Post  
Posted to microsoft.public.excel.worksheet.functions
L. Howard Kittle L. Howard Kittle is offline
external usenet poster
 
Posts: 698
Default 'Flash' random numbers

Hi Jock,
Try this, in the sheets VB editor. In A1 enter =RANDBETWEEN(1,30) AND IN
F10 enter =A1.
Run the sub FourSec()

Option Explicit

Sub FourSec()
Dim Myseconds
Myseconds = 4
Call MyPause(Myseconds)
End Sub

Sub MyPause(Myseconds)
Dim MyTime
'1/86400 = 0.0000115740740740741 = 1 second (fraction of a day)
MyTime = Time
Do Until Time = MyTime + (1 / 86400 * Myseconds)
If Time < MyTime Then Exit Do 'For after midnight
Loop
Calculate
Call FourSec
'MsgBox "We paused for 4 seconds!"

End Sub

HTH
Regards,
Howard

"Jock" wrote in message
...
Is it possible to have numbers from a predetermined list, appear in a
specified cell at a specified time interval?
IE from a list in (A1:A30) containing numbers from 1-30, I would like a
random number to appear in F10 every 4 seconds.
What do you think?
--
Traa Dy Liooar

Jock