VBA常用技巧代码解析

lxhcs · 发表于 2009-3-11 14:55

正在一个个地学，呵可

lxhcs · 发表于 2009-3-11 14:58

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

yuanzhuping · 发表于 2009-3-11 15:18

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

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

复制代码

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

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

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

复制代码

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

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

yuanzhuping · 发表于 2009-3-11 15:46

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

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

复制代码

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

NANCYZHAN · 发表于 2009-3-11 16:44

我顶！

十六点四十四 · 发表于 2009-3-11 16:51

无法用语言形容了。

十六点四十四 · 发表于 2009-3-11 16:52

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

yuanzhuping · 发表于 2009-3-11 18:07

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

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

yuanzhuping · 发表于 2009-3-11 22:09

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

#001 Sub myQuit()
#002 If Workbooks.Count > 1 Then
#003 ThisWorkbook.Close
#004 Else
#005 Application.Quit
#006 End If
#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 · 发表于 2009-3-11 22:42

此致
敬礼！

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

VBA常用技巧代码解析

第5部分 Application对象

第5部分 Application对象

第5部分 Application对象