各位高手，安安
最近本鲁写了一个简单的 VBA 程式，
因为要判断的东西比较多，
所以循环大约有4层，
为了确定循环目前进度，
我在最外层的循环中加了 Debug.Print，
来显示循环中的资讯，
可是我发现只能显示前几次的 Debug.Print，
接下来 excel 就像当机一样，但是实际上没有当机，
等30~60min循环跑完就正常了，
即时视窗的东西也都会显示出来。
所以我的问题是，
如何 强制即时视窗显示内容，
谢谢。

难 你拉个textbox然后一直附加字串可能还比较有效起码那还可以用doevents逼他更新

写到记事本，虽然要一直开记事本来看比较麻烦就是了

如果加个sleep或wait不知道有没有帮助？

DoEvents 治百病...把执行权暂时还给ExcelExcel才有机会更新画面不然就是一直忙着你循环中的所有工作没时间显示视窗的新内容但要注意 DoEvents 的次数越多，循环执行时间就越长可以另外用一个变量去接 Timer() 函数传回值判断目前Timer值与上次值的差异决定多久执行一次 DoEvents