无法将Application.ScreenUpdating设置为false

我有一些VBA代码如下：

Sub copyData(fromRange as Range, toRange as Range) Application.ScreenUpdating = False <copy paste code here> Application.ScreenUpdating = True End Sub 

即使我将Application.ScreenUpdating设置为False，它仍然为True。 我已经使用F8validation了这一点，并hover在Application.ScreenUpdating （它显示True）。

我的复制粘贴代码的作品。 它切换工作表，但由于ScreenUpdating保持为True，我可以看到屏幕闪烁。

有没有办法将Application.ScreenUpdating设置为False？

PS我在这个论坛上看到了类似的问题，但是没有具体的解决办法。

任何帮助将不胜感激！

Answer 1

试试这段代码，在即时窗口中查看每个值Ctrl + G ：

 Sub copyData() Dim r As Boolean r = Application.ScreenUpdating = False Debug.Print "'Application.ScreenUpdating' is set to " & r r = Application.ScreenUpdating = True Debug.Print "'Application.ScreenUpdating' is set to " & r End Sub