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

wmx12345 · 发表于 2011-1-20 23:59

本帖最后由 wmx12345 于 2011-1-21 00:32 编辑

使用了Application.ScreenUpdating = False语句之后，本应该禁止所有屏幕刷新，但事实上仍然有窗口，跳出来，闪了一下
调试后发现，遇到这条语句时，Application.ScreenUpdating被置为true
.Range(.Cells(Rowi, "A"), .Cells(RowNum, "A")).Copy Sheets("审核单汇总表").Cells(BeginRow, "A")

为什么copy方法会改变Application.ScreenUpdating的值啊，能不能让Application.ScreenUpdating的值保持false啊！
高手帮帮忙，没辙了！

最佳答案

月排行榜 / 总排行榜

轩辕轼轲

2011-1-21 10:18

{:101:}
楼主，把这句放在代码的开头Application.Visible = False
再在代码结尾放上Application.Visible = True
保证不会晃屏。

跳转到最佳答案楼层

无聊的疯子 · 发表于 2011-1-21 00:02

这样的问题最好是把你的附件一起发上来...

wmx12345 · 发表于 2011-1-21 00:33

回复无聊的疯子的帖子

我的代码很长，为了说明这个问题，这段代码就可以体现出来了，高手可以试试
Application.ScreenUpdating = False
Range("A1:A30").Copy Sheets("sheet2").Cells(1, "A")
MsgBox Application.ScreenUpdating
有没有什么办法保持不刷屏的状态啊

wmx12345 · 发表于 2011-1-21 00:34

附件也已经上传了

无聊的疯子 · 发表于 2011-1-21 00:50

回复 wmx12345 的帖子

来看看楼主的代码

Application.ScreenUpdating = False 屏蔽屏幕刷新没有问题

Range("A1:A30").Copy Sheets("sheet2").Cells(1, "A") 单元格复制也没有问题

MsgBox Application.ScreenUpdating 这里的mxgbox是一个消息提示作用后面根个Application.ScreenUpdating

意思是提示 Application.ScreenUpdating 的参数因为第一句设置成了 False 所以在这句提示的是False

wmx12345 · 发表于 2011-1-21 00:53

不是的，copy方法，改变了Application.ScreenUpdating的值为ture，
我的目的是不要改变为true，继续保持false

我在一个外国论坛里头找到答案了：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.
Select, Selection or Activate这些方法，都不能用，不然还是会刷屏的
要改写copy了，用VBA代码来实现

wmx12345 · 发表于 2011-1-21 00:54

我是新手啊，又要麻烦了

无聊的疯子 · 发表于 2011-1-21 00:59

回复 wmx12345 的帖子

但是测试楼主的附件

到msgbox的时候值一直是 false啊

楼主应该提供更全面的代码以便查找到问题所在

wmx12345 · 发表于 2011-1-21 01:16

回复无聊的疯子的帖子

要是False 就没有问题了，你试试那段代码，结果是true，问题就在这里

wmx12345 · 发表于 2011-1-21 01:18

本帖最后由 wmx12345 于 2011-1-21 01:22 编辑

msgbox 显示的也是true？即使用中断也是ture啊，不可能是false啊。
要是真是false，就没有这个问题了

		自动登录	找回密码
密码			注册