Question

我正在编写一个带有For循环的脚本，如下所示：

Sub test()
    For i = 1 to 200000
        'Some code
        Debug.print i
    Next i
End Sub

当我上升到某个时刻，立即窗口的更新停止时，整个应用程序看起来冻结而没有响应，直到200000循环全部完成。

我已将电子表格最小化并已禁用ScreenUpdating。

在成功完成一场比赛方面没什么大不了的，但我认为我应该能够跟进进度，就像在跑步即将结束时给我一个想法。当前我在部分之间使用Wait函数来允许窗口更新以解决问题，但我觉得这是一种愚蠢的方式...我认为系统应该足够聪明，可以分配资源更新窗口......

有更好的主意吗？

Answer 1

而不是使用Wait，如何使用DoEvents？