vba没有像vb的timer函数吗？

Question

 有没有这个功能呢？
 比如激活一次，timer就自动计算一次。如vb的timer控件一样。

Answer 1

？？
Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Press Yes to pause for 5 seconds", 4)) = vbYes Then
    PauseTime = 5    ' Set duration.
    Start = Timer    ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.
    Loop
    Finish = Timer    ' Set end time.
    TotalTime = Finish - Start    ' Calculate total time.
    MsgBox "Paused for " & TotalTime & " seconds"
Else
    End
End If

Answer 2

还是给你列出来吧
Public dTime
Public gTime
Public Sub MyMacro()
    dTime = Now + TimeValue("00:00:10") '10秒是测试用途，可以改为15分钟
    Application.OnTime dTime, "xs", , True
    gb
End Sub
Public Sub xs()
    UserForm1.Show
End Sub
Public Sub gb()
    Unload UserForm1
End Sub

Answer 3

vba中也可以用API函数，可以用settimer