Excel的自動計時器，設定每N秒重算1次

'Excel的自動計時器，設定每2秒重算1次

Sub Test1()
myTimer (2)
End Sub
Sub myTimer(secN)
   Dim StartTime As Single
   Do While True
       StartTime = Timer
       Do While Timer < StartTime + secN
           DoEvents
       Loop
       SendKeys "{F9}", True
   Loop
End Sub