[已解决]Application.ScreenUpdating = False 遇到一条语句时被置为true，为什么

吕?布

我这里也是False,是哪一步变的呢?监视一下

爱疯

    MsgBox Application.ScreenUpdating
    Application.ScreenUpdating = False
    MsgBox Application.ScreenUpdating
    Range("A1:A30").Copy Sheets("sheet2").Cells(1, "A")
    MsgBox Application.ScreenUpdating

这样44是什么结果{:041:}

轩辕轼轲

VBA里面如果有打开表，选择表，激活工作簿等操作的时候，即使禁止屏幕刷新，屏幕还是会闪动的。

nothingwmm

wmx12345 发表于 2011-1-21 00:53
不是的，copy方法，改变了Application.ScreenUpdating的值为ture，
我的目的是不要改变为true，继续保 ...

那段英文的意思大概是这意思吧：
You need to write real VBA code without using Select, Selection or Activate. There rarely a need to select an Object to access it's Properties or Methods.
(在你录制VBA的时候会出现Select,Selection,Activate等语句，)但是你如果真正着手写代码的时候，就不要这些语句了，因为，通常不需要选择对象去获取他的属性或者方法。
这段话与screenupdating 无关。

你的这段话的出处可能是：http://www.ozgrid.com/forum/showthread.php?t=54129&page=1，原文的回答，原文的意思似乎并不是针对screenupdating问题的，只是指出该段代码里面很多的Select语句问题。

nothingwmm

爱疯 发表于 2011-1-21 09:14
MsgBox Application.ScreenUpdating
    Application.ScreenUpdating = False
    MsgBox Applicatio ...

测试本段代码结果：
true
false
false
但是发现一个问题，无论什么时候把鼠标悬停在某一变量上时，都是显示screenupdating=true

爱疯

nothingwmm 发表于 2011-1-21 09:30
测试本段代码结果：
true
false

“悬停在某一变量上时，都是显示screenupdating=true”
我不知这是怎么实现的呀{:041:}

nothingwmm

爱疯 发表于 2011-1-21 09:38
“悬停在某一变量上时，都是显示screenupdating=true”
我不知这是怎么实现的呀

F8 逐句测试呀     

吕?布

MsgBox Application.ScreenUpdating
    Application.ScreenUpdating = True
    MsgBox Application.ScreenUpdating
    Range("A1:A30").Copy Sheets("sheet2").Cells(1, "A")
    MsgBox Application.ScreenUpdating
这样的结果呢

liuguansky

{:231:}可能是COPY影响了其他的事件，此事件代码又打开了屏幕刷新？

爱疯

Sub aa()
    Application.ScreenUpdating = False      '屏蔽屏幕更新（不需恢复，执行后已经为True）
    Application.EnableEvents = False        '屏蔽打开事件（再次赋值为True后恢复）
    Application.DisplayAlerts = False       '屏蔽显示告警（不需恢复，执行后已经为True）
    Application.AskToUpdateLinks = False    '屏蔽更新链接（再次赋值为True后恢复）
    Application.Interactive = False         '禁止交互模式（再次赋值为True后恢复）
End Sub

Sub bb()
    MsgBox Application.ScreenUpdating
    MsgBox Application.EnableEvents
    MsgBox Application.DisplayAlerts
    MsgBox Application.AskToUpdateLinks
    MsgBox Application.Interactive
End Sub

ScreenUpdating本来就不需要再赋值为true