请教高手！我循环写的太大老是不响应，我想用DOEVENTS函数 但是试了几次没成功
请问金字塔的VBA支持DOEVENTS 函数吗 能给个例子吗？
PeekAndPump 方法
处理应用程序未处理的消息，可以用在一个循环操作较长的代码里，防止因为占用CPU过长而导致程序停止响应。
例如：
for i = 0 to 200000
Application.PeekAndPump
Next
MsgBox "计算完了"
上述代码在长时间循环执行时，还可以执行软件的其他操作。
提醒用户，异步操作对编程能力要求很高，尤其要注意多个事件同时处理时公用变量的同步，未完成对象的销毁处理前要退出循环执行，稍有不注意就会导致程序崩溃。
问题解决 万分感谢！