excel - ScreenUpdating 不会更新 Excel 2013 中的屏幕

Question

我的代码需要 30 多分钟才能运行。在大多数代码运行时，我已将屏幕更新设置为 false，但我不时将其设置为 true，然后直接返回 false。

在 2003 年、2007 年和 2010 年，这允许屏幕临时更新。在 2013 年它不起作用。

如何使 Excel 2013 临时更新屏幕中间宏？

Sub Test()
    Application.ScreenUpdating = False
    ' Do loads of stuff here
    Application.ScreenUpdating = True ' Enable to refresh screen
    Application.ScreenUpdating = False ' Disable again
    ' Do more stuff here
    Application.ScreenUpdating = True
End Sub

Answer 1

DoEvents 为我工作。我不知道是什么原因造成的，但在循环方法中插入 DoEvents 似乎可以在我使用它时纠正我的问题。

Sub LoopMethod
    Foreach i in Identity
        Call Loopthis 
    Next For
EndSub

Sub Loopthis 
    DoEvents
    select.Cells(i, 6)
EndSub