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

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

1 个答案: