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

Question

I'm currently trying to run a macro around five times per second using the Application.OnTime but it doesn't work with times less than a second. I know excel can handle my macro that many times as I've assigned it to a key and held it down. So is there any other way I can run my macro multiple times per second?

Thanks a lot.

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