小编use*_*162的帖子

每当我运行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

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