EcelVBA常用技巧Application对象.docxVIP

VBA 常用技巧 目录 TOC \o 1-4 \h \z \u VBA 常用技巧 1 第 5 章 Application 对象 2 技巧 1 取得Excel 版本信息 2 技巧 2 取得当前用户名称 3 技巧 3 Excel 中的“定时器” 3 技巧 4 设置活动打印机的名称 5 技巧 5 屏蔽、改变组合键的功能 6 技巧 6 设置Excel 窗口标题栏 7 技巧 7 自定义Excel 状态栏 8 技巧 8 灵活退出Excel 9 技巧 9 隐藏Excel 主窗口 10 设置Application 对象的Visible 属性 10 将窗口移出屏幕 11 设置工作簿作为加载宏运行 12 第5章 Application 对象 技巧1 取得 Excel 版本信息 Application 对象的Version 属性可以返回Excel 的版本号，如下面的代码所示。 #001 #002 #003 Sub AppVersion() Dim myVersion As String Select Case Application.Version #004 Case 8.0 #005 myVersion = 97 #006 Case 9.0 #007 myVersion = 2000 #008 Case 10.0 #009 myVersion = 2002 #010 Case 11.0 #011 myVersion = 2003 #012 Case Else #013 #014 myVersion =版本未知 End Select #015 #016 End MsgBox Excel版本是： myVersion Sub 代码解析： expression.VersionAppVersion 过程返回Application 对象的Version 属性值来取得Excel 版本号。应用于Application 对象的Version 属性返回Excel 版本号，语法如下： expression.Version 参数 expression 是必需的，Application 对象。运行AppVersion 过程结果如图 1-1 所示。 图 1-1 取得 Excel 版本号 技巧2 取得当前用户名称 使用Application 对象的UserName 属性可以取得当前用户名称，如下面的代码所示。 Sub UserName() Sub UserName() MsgBox 当前用户名是: Application.UserName End Sub 代码解析： UserName 过程使用消息框显示当前用户名称。 Application 对象的UserName 属性返回或设置当前用户的名称。运行UserName 过程效果如图 2-1 所示。 图 2-1 显示当前用户名称 技巧3 Excel 中的“定时器” Excel VBA 并没有提供定时器控件，但是用户可以通过Application 对象的 OnTime 方 法实现简单的定时器功能，如下面的代码所示。 #001 Sub StartTimer() #002 Sheet1.Cells(1, 2) = Sheet1.Cells(1, 2) + 1 #003 Application.OnTime Now + TimeValue(00:00:01), StartTimer #004 End Sub 代码解析： StartTimer 过程，使用 Application 对象的 OnTime 方法循环调用 StartTimer 过程实现每隔一秒钟运行一次StartTimer 过程，从而在B1 单元格中不断地显示程序累计运行时间， 如图 3-1 所示。 图 3-1 简单的定时器第 2 行代码将B1 单元格的值在原有的数字上加 1。 第 3 行代码使用OnTime 方法在 1 秒后重新调用StartTimer 过程，使 B1 单元格的值不断的加 1，从而显示程序累计运行时间。 应用于 Application 对象的 OnTime 方法能够安排一个过程在将来的特定时间运行，语法如下： expression.OnTime(EarliestTime, Procedure, LatestTime, Schedule) expression.OnTime(EarliestTime, Procedure, LatestTime, Schedule) 参数 expression 是必需的，返回一个Application 对象。 参数 EarliestTime 是必需的， 设置指定的过程开始运行的时间。使用 Now + TimeValue(time) 可以安排从现在开始经过一段时间之后运行