第5章Application(应用程序)对象代码【超实用VBA】.docVIP

第5章 Application（应用程序）对象 范例57 取得Excel版本信息 Sub ExcelVersion() Dim MyVersion As String Select Case Application.Version Case 8.0 MyVersion = 97 Case 9.0 MyVersion = 2000 Case 10.0 MyVersion = 2002 Case 11.0 MyVersion = 2003 Case 12.0 MyVersion = 2007 Case Else MyVersion = 未知版本 End Select MsgBox Excel 的版本是： MyVersion End Sub 范例58 取得当前用户名称 Sub ToUserName() MsgBox 当前用户是： Application.UserName End Sub 范例59 简单的计时器 Sub StartTimer() Sheet1.Cells(1, 2) = Sheet1.Cells(1, 2) + 1 Application.OnTime Now + TimeValue(00:00:01), StartTimer End Sub Sub EndTimer() On Error Resume Next Application.OnTime Now + TimeValue(00:00:01), StartTimer, , False Sheet1.Cells(1, 2) = 0 End Sub 范例60 屏蔽、更改组合键功能 Private Sub Workbook_Activate() Application.OnKey ^{c}, MyOnKey End Sub Sub MyOnKey() MsgBox 禁止使用Ctrl +C复制数据! End Sub Private Sub Workbook_Deactivate() Application.OnKey ^{c} End Sub 范例61 设置Excel标题栏 Sub ModifyTheTitle() Application.Caption = 修改标题栏 End Sub Sub RemoveTheTitle() Application.Caption = vbNullChar End Sub Sub RrestoreTheTitle() Application.Caption = Empty End Sub 范例62 自定义Excel状态栏 Sub MyStatusBar() Dim r As Long Dim i As Long With Sheet1 r = .Cells(.Rows.Count, 1).End(xlUp).Row For i = 1 To r .Cells(i, 3) = .Cells(i, 1) + .Cells(i, 2) Application.StatusBar = 正在计算 .Cells(i, 3).Address(0, 0) 的数据... Next End With Application.StatusBar = False End Sub 范例63 灵活关闭Excel Sub FlexibleClose() If Workbooks.Count 1 Then ThisWorkbook.Close Else Application.Quit End If End Sub 范例64 暂停代码的运行 Private Sub UserForm_Activate() Dim i As Integer For i = 1 To 10 Label1.Caption = 这是个演示窗体,将在 11 - i 秒后自动关闭! Application.Wait Now() + TimeValue(00:00:01) DoEvents Next Unload Me End S