VBA常用技巧代码解析

yuanzhuping

技巧72         隐藏Excel主窗口
       如果希望在程序启动时或运行过程中隐藏Excel主窗口，有以下几种实现方法。
72-1        设置Application对象的Visible属性
       当Application对象的Visible属性设置为False时，Application对象不可见，即能隐藏Excel主窗口，如下面的代码所示。

1. #001  Private Sub Workbook_Open()
   
2. #002      Application.Visible = False
   
3. #003      UserForm1.Show
   
4. #004  End Sub

复制代码

代码解析：
       代码工作簿的Open事件，在工作簿打开时将Application对象的Visible属性设置为False隐藏Excel主窗口。
       显示Excel主窗口的方法是将Application对象的Visible属性重新设置为True。
       当工作簿文件打开时，隐藏Excel主窗口，只显示用户登录窗体，如图所示。

72-2        将窗口移出屏幕
       设置Application对象的Left属性（从屏幕左边界至Microsoft Excel主窗口左边界的距离）和/或Top属性（从屏幕顶端到Microsoft Excel主窗口顶端的距离）将Application对象移出屏幕外，实现隐藏Excel主窗口，如下面的代码所示。

1. #001  Private Sub Workbook_Open()
   
2. #002      Application.WindowState = xlNormal
   
3. #003      Application.Left = 10000
   
4. #004      UserForm1.StartUpPosition = 2
   
5. #005      UserForm1.Show
   
6. #006  End Sub

复制代码

代码解析：
       工作簿的Open事件过程，设置Application对象的Left属性为一个大的数值，从而将应用程序窗口移出屏幕。
       第2行代码将应用程序窗口设置为正常状态，只有当应用程序窗口正常显示时才能够设置Application对象的Left属性。
       第3行代码将Application对象的Left属性设置为一个大的数值，从而隐藏Excel主窗口。
       第4行代码设置用户窗体的StartUpPosition属性值为2，使窗体显示在屏幕的中央。
       重新显示Excel主窗口的方法是将应用程序窗口设置为最大化状态代码如下：
Application.WindowState = xlMaximized
       当工作簿文件打开时，隐藏Excel主窗口，只显示用户登录窗体，如图所示，与通过设置Visible属性实现的效果不同，设置Left属性在任务栏中仍然会显示应用程序窗口按钮。

72-3        设置工作簿作为加载宏运行
       利用加载宏不显示工作簿窗口的特点，设置工作簿作为加载宏运行来隐藏工作簿窗口，如下面的代码所示。

1. #001  Private Sub Workbook_Open()
   
2. #002      ThisWorkbook.IsAddin = True
   
3. #003      UserForm1.Show
   
4. #004  End Sub

复制代码

代码解析：
       工作簿的Open事件，在工作簿打开时设置其IsAddin属性值为True，指定工作簿作为加载宏运行。
       当工作簿作为加载宏运行时，将有工作薄窗口不可见的特征，从而实现隐藏工作簿窗口的目的，如图所示。

       重新显示Excel主窗口的方法是将工作簿的IsAddin属性值设置为False，以显示工作簿窗口。

yuanzhuping

第5部分 Application对象附件
第5章 Application对象.rar (103.41 KB, 下载次数: 3715)

2009-3-12 08:46 上传

点击文件名下载附件

1-5部分Word文档
VBA常用技巧(1-5).part1.rar (1.91 MB, 下载次数: 5603)

2009-3-12 08:46 上传

点击文件名下载附件

VBA常用技巧(1-5).part2.rar (585.76 KB, 下载次数: 3911)

2009-3-12 08:46 上传

点击文件名下载附件

夜空星辰

从今天开始和版主混了，我就不信我今年不能掌握VBA，请版主指教了。

EXCELHOME的所有图书都在我这了，VBA还是个循序渐进的事情。今年搞定。

请版主多多帮助啦！

jchwylmh

版主辛苦了！万分感谢！支持！

夜空星辰

原帖由 yuanzhuping 于 2009-3-6 11:04 发表

录制宏不失为一种学习VBA的好方法，从录制的宏代码中可以学习到对象的一些方法、属性等，不过录制的宏代码有许多是多余的，使用时要注意删除、修改。其实学习VBA最好的老师就是Excel VBA中自带的帮助，对于一些不了 ...

版主，“最好的是VBA自带的帮助”，我也试着学了一下，一看我就晕菜了。买了所有EXCELHOME的图书，基本操作问题不是很大了，再加强熟练一下就可以了。  VBA看了几本书，还是看不明白，看不进去。

几天前，朋友要从工作簿中取数，她是好几十家分公司汇总。我的比较简单，就手工做了。以前知道VBA能实现，不过也没有研究。这次在这里学习了一下，基本知道怎么回事，也用到自己的工作中了。

所谓学以致用，用到了就需要学，不学又不会用。学了不用又不会。得平衡。

跟着版主了。O(∩_∩)O哈哈~

zzdxxy

斑竹、、对你的感谢和敬仰如滔滔江水啊

xu_luo

很好的教材，日常处理数据时能用上，多谢这样一个平台交流，互动，也多谢版主辛勤的整理。

guanmy

谢谢。学习

guanmy

如果可以作一个WORD上传就好了。当点WORD的时候，就链接那个网页上。

qygszlb

要把链接修改成直奔楼层就好了,如84楼就用:http://club.excelhome.net/redire ... 186&ptid=395683做链接,要求很过份吧.