VBA常用技巧代码解析

lxhcs

正在一个个地学，呵可

lxhcs

不知道是不是有很多重复的，先下了再说吧

yuanzhuping

技巧69         设置Excel窗口标题栏
       Excel主窗口标题栏默认的名称是“Microsoft Excel”，通过设置Application对象的Caption属性可以改变Excel主窗口的标题栏，如下面的代码所示。

1. #001  Sub AppCaption()
   
2. #002      Application.Caption = "修改标题栏名称"
   
3. #003      MsgBox "下面将恢复默认的标题栏名称!"
   
4. #004      Application.Caption = Empty
   
5. #005  End Sub

复制代码

代码解析：
       第2行代码将Excel窗口标题设置为“修改标题栏名称”，如图所示。

       应用于Application对象的Caption属性设置显示在Microsoft Excel主窗口标题栏中的名称，语法如下：
expression.Caption
       第3行代码恢复Microsoft Excel主窗口标题栏中的名称。如果未设置Caption属性（""）或将其设置为Empty（表示未初始化的变量值），则本属性返回“Microsoft Excel”。
       将Caption属性设置为常数vbNullChar（表示值为 0 的字符）可以删除标题栏中的名称，如下面的代码所示。

1. #001  Sub DleCaption()
   
2. #002      Application.Caption = vbNullChar
   
3. #003      MsgBox "下面将恢复默认的标题栏名称!"
   
4. #004      Application.Caption =""
   
5. #005  End Sub

复制代码

代码解析：
       第2行代码删除Excel主窗口标题栏，结果如图所示。


[ 本帖最后由 yuanzhuping 于 2009-3-11 18:38 编辑 ]

yuanzhuping

技巧70         自定义Excel状态栏
       Excel状态栏显示应用程序的当前状态（例如就绪、输入等）或上下文提示信息，通过设置Application对象的Statusbar属性可以修改状态栏，以显示用户自定义的信息，代码如下：

1. #001  Sub myStatusBar()
   
2. #002      Dim rng As Range
   
3. #003      For Each rng In Sheet1.Range("A1:D10000")
   
4. #004          Application.StatusBar = "正在计算单元格 " & rng.Address(0, 0) & " 的数据..."
   
5. #005          rng = 100
   
6. #006      Next
   
7. #007      Application.StatusBar = False
   
8. #008  End Sub

复制代码

代码解析：
       myStatusBar过程在给选定单元格区域赋值的同时，将Excel状态栏中的文字设置为正在赋值的单元格地址。
       应用于Application对象的StatusBar属性返回或设置状态栏中的文字，如果需要恢复默认的状态栏文字，将本属性设为False即可。
       运行myStatusBar过程Excel状态栏如图所示。

NANCYZHAN

我顶！

十六点四十四

无法用语言形容了。

十六点四十四

楼主给个综合的下载包吧。

yuanzhuping

原帖由 十六点四十四 于 2009-3-11 16:52 发表
楼主给个综合的下载包吧。

综合的目前暂时不能提供，已完成部分的去2楼找。

yuanzhuping

技巧71         灵活退出Excel
       在使用Close方法关闭工作簿时，既使当前只有一个打开的工作簿，也只能关闭工作簿而不能关闭Excel程序，而使用Application对象的Quit方法则会关闭所有打开的工作簿，下面的代码可以做到两者兼顾。

1. #001  Sub myQuit()
   
2. #002      If Workbooks.Count > 1 Then
   
3. #003          ThisWorkbook.Close
   
4. #004      Else
   
5. #005          Application.Quit
   
6. #006      End If
   
7. #007  End Sub

复制代码

代码解析：
       myQuit过程在关闭Excel程序时根据当前打开的工作簿数量决定采用何种方法关闭工作簿。
       第2行代码使用Workbook集合的Count属性判断当前打开的工作簿文件数量。
       第3行代码如当前打开两个或两个以上工作簿，使用Close方法关闭代码所在的工作簿。关于Close方法请参阅技巧45-1。
       第5行代码如果当前只有一个打开的工作簿文件则使用Quit方法关闭Excel程序。应用于Application对象的Quit方法退出Excel程序，语法如下：
expression.Quit
       参数expression是必需的，返回一个Application对象。
       使用Quit方法关闭Excel程序时，如果有未保存的工作簿处于打开状态，则将弹出一个询问是否要保存所作更改的对话框，为避免对话框出现，可在使用Quit方法前保存所有的工作簿，或者将Application对象的DisplayAlerts属性设置为False，在退出Excel程序时，即使有未保存的工作簿，也不会显示对话框，而且不保存就退出。
       如果一个工作簿的Saved属性值为True，但是并没有将工作簿保存到磁盘上，则Excel程序在退出时不会提示保存该工作簿。

Pagean

此致
敬礼！