vba - 如何在使用 sleep 时阻止 Excel 变得无响应

Question

我正在玩 excel VBA，我正在努力做到这一点，这样我就可以看到宏在单元格中滚动。当我尝试使用 sleep 来缓慢迭代单元格(使用 for 循环)时，Excel 在大约 20 次迭代后变得无响应。然后它挂起直到结束，然后在子程序完全执行后返回。

这是实现它的代码:

Option Explicit

Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)

Sub test()
    Dim i As Integer
    For i = 1 To 50
        Sleep 250
        Selection.Offset(1, 0).Select
    Next i
End Sub

我怎样才能阻止这种情况发生？

Answer 1

添加 DoEvents到你的循环。

Sub test()
    Dim i As Integer
    For i = 1 To 50
        Sleep 250
        Selection.Offset(1, 0).Select
        DoEvents '/ Add do events to return the resource to interface.
    Next i
End Sub