【VBA】延时函数

延时函数（单位秒），例如延时0.5秒

Sub 延时()
    delay (0.5)
    Debug.Print "延时0.5秒"
End Sub

Sub delay(T As Single)
    Dim T1 As Single
    T1 = Timer
    Do
    DoEvents
    Loop While Timer - T1 < T
End Sub