如何在 vba 中每秒多次運行宏？

Question

我目前正在嘗試使用 Application.OnTime 每秒運行大約五次宏，但它在不到一秒的時間內不起作用。 我知道 excel 可以多次處理我的宏，因為我已經將它分配給一個鍵並按住它。 那么有沒有其他方法可以每秒多次運行我的宏？

非常感謝。

Answer 1

Interval = 0.2
CurrentTime = Timer

Do While True
    If Timer > CurrentTime + Interval Then

        'Write your code here.
        
        Current = Timer
    End If
    DoEvents
Loop