[已解决]解释？

xiaoni

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets("菜单").Visible = True
Sheets("菜单").Select
ActiveWindow.DisplayWorkbookTabs = False
Application.ScreenUpdating = True
End Sub
这代码怎么理解

最佳答案

月排行榜 / 总排行榜

uranus1997

2011-6-4 17:14

回复 xiaoni 的帖子

Private Sub Workbook_Open()
'私有工作簿事件程序开始——工作簿打开便执行的程序
Application.ScreenUpdating = False
'禁止屏幕刷新
Sheets("菜单").Visible = True
'显示工作表“菜单”
Sheets("菜单").Select
'激活（选中）工作表“菜单”
ActiveWindow.DisplayWorkbookTabs = False
'激活窗口（既你当前打开的excel）的工作表标签不显示
Application.ScreenUpdating = True
'启动屏幕刷新
End Sub
'程序结束

跳转到最佳答案楼层

那么的帅

回复 xiaoni 的帖子

逐一语句用F1帮助，很容易理解的

uranus1997

回复 xiaoni 的帖子

Private Sub Workbook_Open()
'私有工作簿事件程序开始——工作簿打开便执行的程序
Application.ScreenUpdating = False
'禁止屏幕刷新
Sheets("菜单").Visible = True
'显示工作表“菜单”
Sheets("菜单").Select
'激活（选中）工作表“菜单”
ActiveWindow.DisplayWorkbookTabs = False
'激活窗口（既你当前打开的excel）的工作表标签不显示
Application.ScreenUpdating = True
'启动屏幕刷新
End Sub
'程序结束

xiaoni

谢谢老师的解释，我还想问一句：为什么要禁止屏幕刷新呢？

uranus1997

xiaoni 发表于 2011-6-4 17:18
谢谢老师的解释，我还想问一句：为什么要禁止屏幕刷新呢？

禁止刷新屏幕，是为了在执行程序的时候，避免屏幕乱闪，如果不禁止，那切换表格，激活不同的工作表等类似这些动作时，屏幕的画面都会不断的变化的。不过你这几行代码才这么点，就算没禁止刷新屏幕，也不会闪了。