ExcelVBA常用技巧Application对象.docVIP

VBA常用技巧 目录 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 9-1 设置 Application 对象的 Visible 属性 10 9-2 将窗口移出屏幕 11 9-3 设置工作簿作为加载宏运行 12第5章 Application 对象 技巧1取得Excel版本信息 Application对象的Version属性可以返回Excel的版本号，如下面的代码所示。 #001 Sub AppVersion() #002 Dim myVersion As String #003 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 myVersion = 版本未知 #014 End Select #015 MsgBox Excel 版本是： myVersion #016 End Sub 代码解析： AppVersion 过程返回 Application 对象的 Version属性值来取得 Excel版本号。 应用于Application对象的Version属性返回Excel版本号，语法如下： expression.Version 参数expression 是必需的， Application 对象。 运行AppVersion过程结果如图 1-1所示。 图1-1 取得Excel版本号 技巧2取得当前用户名称 使用Application对象的UserName属性可以取得当前用户名称，如下面的代码所示。 Sub UserName() MsgBox 当前用户名是： Application.UserName End Sub 代码解析： UserName过程使用消息框显示当前用户名称。 Application对象的UserName属性返回或设置当前用户的名称。 运行UserName过程效果如图 2-1所示。 当前用.戶名是：yuaikrhuping r A 图2-1 显示当前用户名称 技巧3 Excel中的“定时器” Excel VBA并没有提供定时器控件，但是用户可以通过 Applicati on对象的On Time方 法实现简单的定时器功能，如下面的代码所示。 #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过程，使用 Applicati on对象的On Time方法循环调用 StartTimer过程实现 每隔一秒钟运行一次 StartTimer过程，从而在 B1单元格中不断地显示程序累计运行时间， 如图3-1所示。 图3-1 简单的定时器 第2行代码将B1单元格的值在原有的数字上加 1。 第3行代码使用 On Time方法在1秒后重新调用 StartTimer过程，使B1单元格的值不 断的加1，从而显示程序累计运行时间。 应用于Applicatio n对象的On Time方法能够安排一个过程在将来的特定时间运行，语 法如下： expression.OnTime(EarliestTime, Procedure, LatestTime, Schedule) 参数expression是必需的，返回一个 Application对象。 参数EarliestTime 是必需的，设置指定的过程开始运行的时间。使用Now + TimeValue(time)可以安排从现在开始经过一段时间之后运行某个过程，使用 TimeValue(time)可以安排在指定的时间运行某个过程。 参数Procedure是必需的，设置要运行的过程名称。 参数LatestTime是可选的，设置过程开始运行的最晚时间。 例如将参数LatestTime设 置为