当我使用Sleep时,如何防止背景宏停止？

Question

每当我运行Sleep时,我的所有背景宏都会停止工作.我希望能够在睡眠不断运行的同时进行OnKey事件.

这是睡眠API的一部分

Sub Bombs()
 Do While bomb.Offset(, 1).Value <> "*"
    bomb.clear
    Set bomb = bomb.Offset(, 1)
    bomb.Interior.Color = vbRed
    Sleep (200)
Loop
End Sub

它基本上导致红细胞在屏幕上移动.

Answer 1

我使用了Wait()几年前创建的定制子,我通常用它代替Sleep.看看它是否对你有所帮助.这是我为测试目的而创建的一个非常基本的示例.

Sub Bombs()
    Application.OnKey "{DOWN}", "Sample"

    Dim bomb As Range

    Set bomb = ActiveCell

    Do While bomb.Offset(, 1).Value <> "*"
        bomb.Clear
        Set bomb = bomb.Offset(, 1)
        bomb.Interior.Color = vbRed
        Wait 5
    Loop

    Application.OnKey "{DOWN}", ""
End Sub

Private Sub Wait(ByVal nSec As Long)
    nSec = nSec + Timer
    While nSec > Timer
        DoEvents
    Wend
End Sub