主题：[求助]循环写的太大 求解决办法

请教高手！我循环写的太大老是不响应，我想用DOEVENTS函数 但是试了几次没成功

请问金字塔的VBA支持DOEVENTS 函数吗 能给个例子吗？

PeekAndPump 方法

处理应用程序未处理的消息，可以用在一个循环操作较长的代码里，防止因为占用CPU过长而导致程序停止响应。

例如：

for i = 0 to 200000
    Application.PeekAndPump
Next
MsgBox "计算完了"

上述代码在长时间循环执行时，还可以执行软件的其他操作。

提醒用户，异步操作对编程能力要求很高，尤其要注意多个事件同时处理时公用变量的同步，未完成对象的销毁处理前要退出循环执行，稍有不注意就会导致程序崩溃。

问题解决 万分感谢！