小巧方便的MD5查看器，支持拖拽操作，直接将文件拖至列表框即可将其添加至列表，添加完成后点击计算即可完成MD5值的计算，还支持排序操作点击对应的标题即可根据该标题排序！win7和vista可以直接运行，XP需要微软NET 2.0的支持！

  下载地址：点击下载此文件  或者去这里下载http://115.com/file/aq3zydns

Option Explicit

'LastState变量的作用是标示主窗体原有状态
Public LastState As Integer

'【VB声明API函数】
'  Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

'【说明】
'  调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum，
'  SendMessageByString是该函数的“类型安全”声明形式

'【返回值】
'  Long，由具体的消息决定

'【参数表】
'  hwnd -----------  Long，要接收消息的那个窗口的句柄

'  wMsg -----------  Long，消息的标识符

'  wParam ---------  Long，具体取决于消息

'  lParam ---------  Any，具体取决于消息
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal HWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

'表示发送的是系统命令
Private Const WM_SYSCOMMAND = &H112
Private Const SC_MOVE = &HF010&
Private Const SC_RESTORE = &HF120&
Private Const SC_SIZE = &HF000&

'当主窗体加载时
Private Sub Form_Load()
   
    '窗体的WindowState属性，返回或设置一个值，该值用来指定在运行时窗体窗口的可视状态
    'vbNormal    0   （缺省值）正常 。
    'VbMinimized 1   最小化（最小化为一个图标）
    'VbMaximized 2   最大化（扩大到最大尺寸）
    If WindowState = vbMinimized Then
        LastState = vbNormal
    Else
        LastState = WindowState
    End If
   
    '将图标添加到托盘的函数，参见模块中的解释
    '注意了这是从主程序到模块的入口，本例中并没有直接调用Shell_NotifyIcon函数
    AddToTray Me, mnuTray
   
    SetTrayTip "托盘图标演示，点击右键弹出菜单"
End Sub

'在主窗体Form1大小改变时，相应改变右键菜单mnuTray的菜单项的可用属性Enabled
Private Sub Form_Resize()
    Select Case WindowState
       
        '如果窗体最小化了，把菜单项“最大化”“恢复”设为可用，
        '而把“最小化”“移动”“大小”三项设为不可用.
        '如果这时在托盘图标上点击鼠标右键，会发现不可用项变为灰色
        Case vbMinimized
            mnuTrayMaximize.Enabled = True
            mnuTrayMinimize.Enabled = False
            mnuTrayMove.Enabled = False
            mnuTrayRestore.Enabled = True
            mnuTraySize.Enabled = False
       
        '窗体最大化时
        Case vbMaximized
            mnuTrayMaximize.Enabled = False
            mnuTrayMinimize.Enabled = True
            mnuTrayMove.Enabled = False
            mnuTrayRestore.Enabled = True
            mnuTraySize.Enabled = False
       
        '一般状态下
        Case vbNormal
            mnuTrayMaximize.Enabled = True
            mnuTrayMinimize.Enabled = True
            mnuTrayMove.Enabled = True
            mnuTrayRestore.Enabled = False
            mnuTraySize.Enabled = True
    End Select

    If WindowState <> vbMinimized Then LastState = WindowState
End Sub

'保证在程序退出时删除托盘图标
Private Sub Form_Unload(Cancel As Integer)
    RemoveFromTray
End Sub

'“文件”菜单的“退出”项被点击时
Private Sub mnuFileExit_Click()
    Unload Me
End Sub

'托盘图标右键菜单上的“退出”项被点击时
Private Sub mnuTrayClose_Click()
    Unload Me
End Sub

'托盘图标右键菜单上的“最大化”项被点击时
Private Sub mnuTrayMaximize_Click()
    WindowState = vbMaximized
End Sub

'托盘图标右键菜单上的“最小化”项被点击时
Private Sub mnuTrayMinimize_Click()
    WindowState = vbMinimized
End Sub

'托盘图标右键菜单上的“移动”项被点击时
Private Sub mnuTrayMove_Click()
    SendMessage HWnd, WM_SYSCOMMAND, _
        SC_MOVE, 0&
End Sub

'托盘图标右键菜单上的“恢复”项被点击时
Private Sub mnuTrayRestore_Click()
    SendMessage HWnd, WM_SYSCOMMAND, _
        SC_RESTORE, 0&
End Sub

'托盘图标右键菜单上的“退出”项被点击时
Private Sub mnuTraySize_Click()
    SendMessage HWnd, WM_SYSCOMMAND, _
        SC_SIZE, 0&
End Sub
'-----------------------------------------
'以下为模块中的代码：
'-----------------------------------------
Option Explicit

Public OldWindowProc As Long
Public TheForm As Form
Public TheMenu As Menu
'【VB声明API函数】
'Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal HWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

'【说明】
'  此函数发送消息到一个窗口过程

'【返回值】
'  Long，依据发送的消息不同而变化

'【参数表】
' lpPrevWndFunc----- Long，原来的窗口过程地址

' HWnd-------------- Long，窗口句柄

' Msg -------------- Long，发送的消息

' wParam ----------- Long，消息类型，参考wParam参数表

' lParam ----------- Long，依据wParam参数的不同而不同

Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal HWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

'【VB声明API函数】
'  Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

'【说明】
'  在窗口结构中为指定的窗口设置信息

'【返回值】
'  Long，指定数据的前一个值

'【参数表】
'  hwnd -----------  Long，欲为其取得信息的窗口的句柄

'  nIndex ---------  Long，请参考GetWindowLong函数的nIndex参数的说明

'  dwNewLong ------  Long，由nIndex指定的窗口信息的新值
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal HWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

'【VB声明API函数】
'Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long

'【说明】

'【参数表】
'参数dwMessage ---- 为消息设置值，它可以是以下的几个常数值：0、1、2

'NIM_ADD = 0        加入图标到系统状态栏中
'NIM_MODIFY = 1     修改系统状态栏中的图标
'NIM_Delete = 2     删除系统状态栏中的图标

'参数LpData ---- 用以传入NOTIFYICONDATA数据结构变量，我们也需要在"模块"中定义其结构如下：

'Type NOTIFYICONDATA
'       cbSize As Long              需填入NOTIFYICONDATA数据结构的长度
'       HWnd As Long                设置成窗口的句柄
'       Uid As Long                 为图标所设置的ID值
'       UFlags As Long              用来设置以下三个参数uCallbackMessage、hIcon、szTip是否有效
'       UCallbackMessage As Long    消息编号
'       HIcon As Long               显示在状态栏上的图标
'       SzTip As String * 64        提示信息
'End Type

'---- 其中参数uCallbackMessage、hIcon、szTip也应在模块中声明为以下的常量：
'Public Const NIF_MESSAGE = 1
'Public Const NIF_ICON = 2
'Public Const NIF_TIP = 4

Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long

Public Const WM_USER = &H400
Public Const WM_LBUTTONUP = &H202
Public Const WM_MBUTTONUP = &H208
Public Const WM_RBUTTONUP = &H205
Public Const TRAY_CALLBACK = (WM_USER + 1001&)
Public Const GWL_WNDPROC = (-4)
Public Const GWL_USERDATA = (-21)
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4
Public Const NIM_ADD = &H0
Public Const NIF_MESSAGE = &H1
Public Const NIM_MODIFY = &H1
Public Const NIM_Delete = &H2

'记录 设置托盘图标的数据 的数据类型NOTIFYICONDATA
Public Type NOTIFYICONDATA
    cbSize As Long
    HWnd As Long
    Uid As Long
    UFlags As Long
    UCallbackMessage As Long
    HIcon As Long
    SzTip As String * 64
End Type

'TheData变量记录设置托盘图标的数据
Private TheData As NOTIFYICONDATA
' *********************************************
' 新的窗口过程--主程序中采用SetWindowLong函数改变了窗口函数的地址，消息转向由NewWindowProc处理
' *********************************************
Public Function NewWindowProc(ByVal HWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
   
    '如果用户点击了托盘中的图标，则进行判断是点击了左键还是右键
    If Msg = TRAY_CALLBACK Then
        '如果点击了左键
        If lParam = WM_LBUTTONUP Then
            '而这时窗体的状态是最小化时
            If TheForm.WindowState = vbMinimized Then _
                '恢复到最小化前的窗体状态
                TheForm.WindowState = TheForm.LastState
            TheForm.SetFocus
            Exit Function
            End If
        End If
        '如果点击了右键
        If lParam = WM_RBUTTONUP Then
            '则弹出右键菜单
            TheForm.PopupMenu TheMenu
            Exit Function
        End If
    End If
   
    '如果是其他类型的消息则传递给原有默认的窗口函数
    NewWindowProc = CallWindowProc(OldWindowProc, HWnd, Msg, wParam, lParam)
End Function
' *********************************************
' 把主窗体的图标（Form1.icon属性可改变）添加到托盘中
' *********************************************
Public Sub AddToTray(frm As Form, mnu As Menu)

    '保存当前窗体和菜单信息
    Set TheForm = frm
    Set TheMenu = mnu
   
    'GWL_WNDPROC获得该窗口的窗口函数的地址
    OldWindowProc = SetWindowLong(frm.HWnd, GWL_WNDPROC, AddressOf NewWindowProc)
   
    '知识点滴：HWnd属性
    '返回窗体或控件的句柄。语法: object.HWnd
    '说明:Microsoft Windows 运行环境，通过给应用程序中的每个窗体和控件
    '分配一个句柄（或 hWnd）来标识它们。hWnd 属性用于Windows API调用。

    '将主窗体图标添加在托盘中
    With TheData
        .Uid = 0    '忘了吗？参考一下前面内容,Uid图标的序号，做动画图标有用
        .HWnd = frm.HWnd
        .cbSize = Len(TheData)
        .HIcon = frm.Icon.Handle
        .UFlags = NIF_ICON                  '指明要对图标进行设置
        .UCallbackMessage = TRAY_CALLBACK
        .UFlags = .UFlags or NIF_MESSAGE    '指明要设置图标或返回信息给主窗体，此句不能省去
        .cbSize = Len(TheData)              '为什么呢？我们需要在添加图标的同时，让其返回信息
    End With                                '给主窗体，Or的意思是同时进行设置和返回消息
    Shell_NotifyIcon NIM_ADD, TheData       '根据前面定义NIM_ADD，设置为“添加模式”
End Sub
' *********************************************
' 删除系统托盘中的图标
' *********************************************
Public Sub RemoveFromTray()
    '删除托盘中的图标
    With TheData
        .UFlags = 0
    End With
    Shell_NotifyIcon NIM_Delete, TheData   '根据前面定义NIM_Delete，设置为“删除模式”
   
    '恢复原有的设置
    SetWindowLong TheForm.HWnd, GWL_WNDPROC, OldWindowProc
End Sub
' *********************************************
' 为托盘中的图标加上浮动提示（也就是鼠标移上去时出现的提示字条）
' *********************************************
Public Sub SetTrayTip(tip As String)
    With TheData
        .SzTip = tip & vbNullChar
        .UFlags = NIF_TIP   '指明要对浮动提示进行设置
    End With
    Shell_NotifyIcon NIM_MODIFY, TheData    '根据前面定义NIM_MODIFY，设置为“修改模式”
End Sub
' *********************************************
' 设置托盘的图标（在本例中没有用到，如果要动态改变托盘内显示的图标，它非常有用）
' 例如：1、显示动画图标（方法你一定猜到了，对！使用Timer控件，不断调用此过程，注意把动画放在pic数组中）
'       2、程序处于不同状态时，显示不同的图标，方法是类似的
' 有兴趣的话试一试吧。
' *********************************************
Public Sub SetTrayIcon(pic As Picture)
    '判断一下pic中存放的是不是图标
    If pic.Type <> vbPicTypeIcon Then Exit Sub

    '更换图标为pic中存放的图标
    With TheData
        .HIcon = pic.Handle
        .UFlags = NIF_ICON
    End With
    Shell_NotifyIcon NIM_MODIFY, TheData
End Sub

Private Sub Command1_Click()
　　Open App.Path & "\temp.lnk" For Output As #1
　　Close #1 '以上两句在程序所在目录建立一个临时文件
　　Shell "Rundll32.exe AppWiz.Cpl，NewLinkHere "& App.Path & "\temp.lnk"
End Sub

　　（注意：Shell语句中NewLinkHere后面跟着一个空格才是引号，否则将出错。）
　　运行程序，按一下命令按钮，怎么样？“创建快捷方式”向导出现了，如果创建成功，快捷方式将取 代临时文件temp.lnk的位置，如果选取消，temp.lnk 也会自动消失。当然，您可以在硬盘的任意位置建立 temp.lnk。好，现在又可以为您的程序增添一项新功能了。Enjoy！

二. Rundll32.exe的用途
　　我们知道，用Shell语句只能调用可执行文件，即 exe、com、bat 和 pif 文件，有时我们想要调用其他一 些系统功能该怎么办呢？此时，Windows提供的 Rundll32.exe可大显身手了。下面我们来认识一下这些用法，也许会给您带来一点惊喜。
　　1．要打开设置系统时间的控制面板文件 (Timedate.cpl),只需运行如下代码：
　　Shell "Rundll32.exe
　　Shell32.dll,Control_RunDLL Timedate.cpl"
　　至于打开其他控制面板文件，相信您一定能够举一反三，尝试一下，换个文件名就成了。
　　2．要运行某一快捷方式（*.lnk）则可以用以下代码：
　　She11 "Rundll32.exe url.dll, FileProtocolHandler X"
　　(X代表要运行的文件，包括路径，下同。)
　　3. 也可以这样写来打开ActiveMovie控制：
　　Shell "RUNDLL32.EXE amovie.ocx，Rundll",1
　　而用Shell "RUNDLL32.EXE amovie.ocx，Rundll /play X",1 将直接播放媒体文件。
　　4. Shell "rundll32.exe desk.cpl，InstallScreenSaver X”当然是安装屏幕保护啦，如果你写了一个屏幕保护程序，那么可以在安装程序中写上它，而不一定要装到system目录下。顺便提一下，VB不是自捞一个“Application Setup Wizard”么？它的VB源代码都在安装目录下的 “\setupkit\setup1”中放着呢，好好把它研究一下。 你完全能做出富有个性的安装程序来。
　　5.按住shift键，右击某一文件，菜单中会出现 “打开方式”选项，这也许已不是什么秘密。但现在， 用shell "rundll32.exe shell32.dll OpenAs_RunDLL X" 便能直接调用“打开方式”框。
　　6. 甚至能用这样一句来打印文件(包括HTML所 支持的所有文本与图像格式):
　　Shell "rundll32.exe MSHTML.DLL，PrintHTML X”, 1
　　怎么样？是不是小有收获呢？这下，您一定会对 Rundll32.exe这个平时不起眼的文件另眼相待了，它可是系统运行必不可少的部件呢！其实 Shell＋Rundll32 还能调用其他许多系统功能，比如关于NetMeeting和Telnet方面的。如果您有兴趣，可以 到往册表的“我的电脑\HKEY_CLASSES_ROOT\”或“我的电脑\HKEY_LOCAL_MACHINE\Software\CLASSES”下 去看看，本文的内容大都是从那里“抄”来的。只要有足够的决心、信心、耐心，您一定能发现更多有价值的东西。Good luck!

　　台湾在这次莫拉克台风中的表现可谓是极其糟糕，证实的死亡人数是几十人，失踪的现在是几百人！

　　马英九被疲惫不堪的灾民包围，哭喊着要求派人去救援正在受灾被洪水围困的百姓，甚至当场下跪求救，镜头所到之处让人辛酸之极！

　　而在大陆对莫拉克台风的灾前动员处理即使撤离几百万人，以及受灾的程度，远没有台湾的严重，台风横扫大陆多个省份，有2000多万人受到灾害影响，但是目前只有几个人死亡，在浙江有1例死亡，竟然是驴友为抗击台风主动上危险地段被大浪卷走！

　　两岸的一个简单的台风比较，就立刻清楚的执政的巨大差异，无怪呼台湾老百姓反思，要求政府学习大陆的抗灾经验，很可惜，台湾学不了，大陆的军队是人民的，台湾的军队是所谓的国家的，大陆的军队在98年抗洪用人体在决口处累筑人墙，美国国防部用卫星拍摄到之后震惊无比，这样的军队是真正的不怕死军队，谁能匹敌呢！

　　2008年四川地震，呼啦就是10万军队上去，硬是将散落在各地的百姓救出，相比2005年美国那次飓风，美国军队是手拿大枪，开着运兵车端着机枪，认灾民在水中漂流，而去保卫什么财产不让抢劫，哪个时候，我特然看到，美国的军队不是为人民的，他们的军队在灾害面前，在受到灾难的百姓面前是将百姓的生命权至于财产权之下的，这样的军队，这样的国家，到底是个什么样的？这个是个很大的问号！

　　台湾一直是标榜民主自由的国家，但是在这次台风面前，我们发现所谓的民主自由是那么的不堪一击，台湾人可以上台北街头摇旗呐喊，为政党执政大动干戈，却在那么大的台风面前无力救援自己的百姓，使整个村庄在几秒只内被泥石流淹没，失踪了几百人，为什么不做灾害预案呢，为什么不提前撤离呢，为什么灾害发生后迟迟没有见到主要的救援力量出现呢，而要百姓对着镜头下跪请求救援呢，这样一个制度连生命威胁的时候都那么没有力量，他们的所谓自由民主有什么意义呢！

呜呼！

　　一次不大的台风暴雨彻底冲刷了尘土，让真实的面目浮现在世人面前！

　　民主？自由？人权？

　　当生命权都无法保障的时候，它们是那么的丑陋！

对比一下汶川大地震的解放军

　　这是我收集整理的100张图片，谨以此纪念512国殇，记更多的人不会忘记这一天：共和国所经历的灾难，以及灾难面前国人表现出来的巨大勇气和空前团结。

　　图上的那位老师，在最后时刻，做出了一个护住学生的姿势，但是，她们都去了！

在地震中痛失妻子的男子用绳子将妻子的尸体绑在背部，送她去太平间。在极大悲痛的折磨中，他努力要给予自己的妻子死后些许的尊严。

　　四川江油县公安局一名普通的民警她自己才6个月大，同样需要母乳喂养的孩子交给了父母照料。却义务的为一些急需哺乳的地震灾区孤儿喂奶。

怎一个惨字了得？

所谓众志成城，原来可以这样具体！

　　这个小孩子叫郎真，他被救出来后，在担架上给战士们敬了一个礼！

劫后余生的悲痛，无论大人，还是孩子。。。。。。

那些影子，都在为一个生命而努力

有很多个许三多，有许多的不抛弃，不放弃！

我们活着，因为这一艘生命的船。。。。。。

孩子，长大了你要记得今天

太累了。。。。。。几十个小时都在努力

疲惫。。。。。。

都累了！

阿婆，不要谢，我们是一家人！

四川人民谢谢您的爱！

天堂里没有地震！

老天，下辈子你做人来我做天！

说好不分手，你为什么狠心地走了。。。。。。

孩子，这个世界对不起您。。。。。。

角落里曾经有一个生命，水泥板里几乎不见钢筋。。。。。。

孩子，别哭，你哭，我也想哭！

那只手，显示的是生命的欲望

从死神手里抢回来的一条命。。。。。。

曾经那座弃满生机的城市，如果成为废墟。。。。。。

都江堰新建小学，赵建中抱着9岁儿子的遗体，失声痛哭。

我老公在这里，在这里，快救救他。。。。。。

老乡，你挺住。。。。。。

一位村民因3位家人生死不明而焦急痛哭。这个时候，一辈子营建的家在哪里？

　　遗体找到时，所有的希望都破灭了，当巨大的痛苦袭来，谁还能承受！

老爷子，你别哭。。。。。。

老天，你为什么要惩罚孩子

三位困在大山里三天的灾民翻山越岭，艰难跋涉三十多公里终于走出大山后，情不自禁地抱头痛哭

对新人在石家庄火车站献血，祝福你们，好人一生平安。

看到了吗？孩子们无助的目光

书包还在，人也天隔。。。。。。

日本搜救人员向遇难者遗体默哀

11岁的张吉万背着3岁的妹妹走了10多个钟头逃出生天

• 应用程序设置和选项，许多选项与“选项”对话框中的选项相同。
• 返回顶级对象的方法，例如ActiveCell、ActiveSheet，等等。

本文使用VBA代码示例简要介绍了与Application对象相关的经常使用的对象、方法和属性，其中一些成员能够改变用户与Excel应用程序交互的方式，还能够改变应用程序的外观和式样。熟悉Application对象能够让您扩展和调整Excel的功能，以满足自已的需求。
本文主要介绍的内容如下：
从Application对象中引用对象
Application对象相关的集合

 

• AddIns集合
• Columns集合和Rows集合
• Dialogs集合
• Sheets集合

   

Application对象相关的属性

 

• ActiveCell属性
• ActiveChart属性
• ActiveSheet属性
• ActiveWindow属性
• ActiveWorkbook属性
• RangeSelection属性
• ScreenUpdating属性
• Selection属性
• StatusBar属性
• ThisWorkbook属性

   

Application对象相关的方法

 

• FindFile方法和Dialogs集合
• GetOpenFilename方法
• GetSaveAsFilename方法
• InputBox方法
• Run方法

   

Application对象相关的事件

 

• 激活Application事件监视

   

使用Application对象执行其它任务

 

• 删除工作表而显示提示信息（DisplayAlerts属性）
• 无须提示用户而保存工作表（DisplayAlerts属性）
• 使用SendKeys方法发送信息到记事本
• 安排宏在指定的时间和间隔运行（OnTime方法）

   

Application对象的其它一些属性和方法

 

• Caller属性
• CutCopyMode属性
• Evaluate方法
• OnKey方法
• ThisCell属性
• WorksheetFunction属性
• 改变光标显示（Cursor属性）
• 获取或改变Excel窗口的状态或大小（WindowState属性）
• 获取系统信息
• 自动隐藏公式栏（DisplayFormulaBar属性）
• 将Excel全屏显示（DisplayFullScreen属性）
• 获取Excel启动文件夹的路径（StartupPath属性）
• 检测Excel的版本（Version属性）
• 打开最近使用过的文档（RecentFiles属性）
• 文件对话框操作（FileDialog属性）
• 改变Excel工作簿的名称（Caption属性）
• 调用Windows的计算器（ActivateMicrosoftApp方法）
• 暂时停止宏运行（Wait方法）
• 重新计算工作簿（Calculate方法）
• 控制函数重新计算（Volatile方法）
• 获取重叠区域（Intersect方法）
• 获取路径分隔符（PathSeparator属性）
• 快速移至指定位置（Goto方法）
• 关闭Excel（Quit方法）

   

从Application对象中引用对象
使用Application属性返回Application对象。在引用应用程序之后，要访问Application对象下面的对象，则依次下移对象模型层级。例如，下面的代码设置第一个工作簿的第一个工作表中的第一个单元格的值为20：

Application.Workbooks(1).Worksheets(1).Cells(1, 1) = 20

要引用该单元格，上述代码以Application对象开始，移至第一个工作簿，然后到第一个工作表，最后到达单元格。
下面的示例代码在另一个应用程序中创建一个Excel工作簿，然后打开该工作簿：

Set xl = CreateObject("Excel.Sheet")
xl.Application.Workbooks.Open "newbook.xls"

可以使用许多属性和方法返回最常用的用户界面对象，例如活动工作表（ActiveSheet属性），而无须Application对象限定。例如，下面的代码：

Application.ActiveSheet.Name = "Monthly Sales"

可以替换为：

ActiveSheet.Name = "Monthly Sales"

然而，在使用简短的引用时必须小心，必须已经选择了正确的对象。如果已经使用诸如Worksheet对象的Activate方法选择了合适的工作簿和工作表，那么能够使用下面的代码引用第一个单元格：

Cells(1, 1) = 20

有一些实例必须使用Application限定引用。例如，OnTime方法、应用程序窗口的Width和Height属性。通常，处理Excel窗口外观的属性或者影响应用程序全部行为的属性需要Application限定，例如DisplayFormulaBar属性用于显示或隐藏公式栏。Calculation方法也需要限定。

Application对象相关的集合
本节介绍与Application对象相关的一些集合。
AddIns集合
AddIns集合代表当前在Excel中装载的所有加载项。就像遍历任何其它集合一样，可以列出应用程序中关于加载项的不同类型的信息。下面的示例列出当前在Excel中装载的加载项的路径和名称：

Sub ListAddIns()
    Dim myAddin As AddIn
    For Each myAddin In AddIns
        MsgBox myAddin.FullName
    Next
End Sub

Columns集合和Rows集合
这些集合代表当前工作簿中的列和行，可以使用它们分别选择指定的列和行。

Application.Columns(4).Select

上述语句选择D列，就像在工作表中单击该列的标题一样。

Application.Rows(5).Select

上述语句选择第5行，就像在工作表中单击该行的行边一样。
Dialogs集合
Dialogs集合由应用程序中所有的对话框组成。本文后面将详细介绍该集合。
Sheets集合
Sheets对象返回指定工作簿或活动工作簿中所有工作表的集合。Sheets集合包含Chart对象或Worksheet对象。下面的示例打印活动工作簿中所有工作表：

Application.Sheets.PrintOut

下面的示例遍历工作簿中所有的工作表，并打印包含有数据的工作表：

    For iSheet = 1 To Application.Sheets.Count
        If Not IsEmpty(Application.Sheets(iSheet).UsedRange) Then
            Application.Sheets(iSheet).PrintOut copies:=1
        End If
    Next iSheet

Application对象相关的属性
在Excel 2007应用程序中，有大量的属性用来访问不同的对象。这里，只探讨经常使用的属性。

• ActiveCell
• ActiveChart
• ActiveSheet
• ActiveWindow
• ActiveWorkbook
• RangeSelection
• ScreenUpdating
• Selection
• StatusBar
• ThisWorkbook

ActiveCell属性
Application对象的ActiveCell属性返回Range对象，代表活动工作簿的活动工作表中的活动单元格。如果没有指定对象限定，那么该属性返回活动窗口中的活动单元格。
注意区分活动单元格和单元格选区。活动单元格是当前选区里的单个单元格，选区可能包含很多单元格，但仅有一个单元格是活动单元格。
下面的示例改变活动单元格的字体格式。注意确保正在处理正确的单元格，Worksheets集合的Activate方法使工作表Sheet1为活动工作表。

    Worksheets("Sheet1").Activate
    With ActiveCell.Font
        .Bold = True
        .Italic = True
    End With

ActiveChart属性
ActiveChart属性返回Chart对象，代表活动图表，无论该图表是嵌入式图表还是图表工作表。当嵌入式图表被选择或者被激活时，该图表是活动图表。下面的示例使用ActiveChart属性在工作表Monthly Sales中添加一个三维柱形图：

Sub AddChart()
    Charts.Add
    With ActiveChart
        .ChartType = xl3DColumn
        .SetSourceData Source:=Sheets("Sheet1").Range("B3:H15")
        .Location Where:=xlLocationAsObject, Name:="Monthly Sales"
        .HasTitle = True
        .ChartTitle.Characters.Text = "Monthly Sales by Category"
    End With
End Sub

ActiveSheet属性
ActiveSheet属性返回Worksheet对象，代表当前所选择的工作表（在顶部的工作表）。在一个工作簿中仅仅有一个工作表是活动工作表。下面的示例显示活动工作表的名字：

MsgBox "活动工作表的名字是" & ActiveSheet.Name

下面的示例由用户指定复制活动工作表的次数并复制活动工作表，将复制的工作表放置到工作表Sheet1的前面：

Sub CopyActiveSheet()
    Dim x As Integer, numtimes As Integer
    x = InputBox("请输入复制活动工作表的次数")
    For numtimes = 1 To x
        '在工作表Sheet1的前面放置工作表副本
        ActiveWorkbook.ActiveSheet.Copy _
            Before:=ActiveWorkbook.Sheets("Sheet1")
    Next
End Sub

ActiveWindow属性
ActiveWindow属性返回Window对象，代表活动窗口（在顶部的窗口）。下面的示例显示活动窗口的名称（Caption属性）：

MsgBox "活动窗口的名称是" & ActiveWindow.Caption

Caption属性返回活动窗口的名称，允许使用名称而不是索引号来更清楚地访问该窗口。
下面的示例选择并打印工作表，然后对第二个工作表重复这一过程：

Sub PrintWorksheet()
    Application.ScreenUpdating = False
    Sheets("Sales").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("Expenses").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

在该示例中，您可能奇怪为什么将ScreenUpdating属性设置为False。当Excel执行一系列操作任务时，屏幕被更新并且被刷新许多次，这导致屏幕闪烁。设置ScreenUpdating属性为False消除这些闪烁。此外，因为计算机处理器无须为刷新屏幕而暂停，这能使大的应用程序运行得更快。
ActiveWorkbook属性
ActiveWorkbook属性返回Workbook对象，代表活动窗口中的工作簿。下面的示例显示活动工作簿的名称：

MsgBox "活动工作簿的名称是" & ActiveWorkbook.Name

下面的示例设置计算模式为手动，然后遍历并计算活动工作簿中的每个工作表：

Sub CalcBook()
    Dim wks As Worksheet
    Application.Calculate = xlManual
    For Each wks In ActiveWorkbook.Worksheets
        wks.Calculate
    Next
    Set wks = Nothing
End Sub

RangeSelection属性
RangeSelection属性返回Range对象，代表在指定的窗口的工作表中所选择的单元格，即使是工作表中激活或选择的图形对象。下面的示例显示活动窗口的工作表中所选择的单元格的地址：

MsgBox Application.ActiveWindow.RangeSelection.Address

当选择单元格区域时，RangeSelection属性和Selection对象代表相同的单元格区域。当选择图形时，RangeSelection属性返回以前的单元格选区。关于Selection属性的更多介绍参见下节。
下面的示例显示单元格中头三个字符：

Range("A1").Select
MsgBox Left(ActiveWindow.RangeSelection, 3)

下面的示例显示单元格名称的头三个字符：

Range("A1").Select
MsgBox Left(ActiveWindow.RangeSelection.Name.Name, 3)

命令RangeSelection.Name.Name返回单元格名称。
ScreenUpdating属性
ScreenUpdating属性用于控制屏幕刷新，可将其值设置为True或False。通常，Excel开启了屏幕刷新（即该属性值为True），因此在代码执行时，Excel会随着代码的操作而不断更新屏幕显示，这样在运行处理涉及到多个工作表或单元格中的大量数据的代码（选择或激活对象）时，屏幕会不停闪烁，并且会占用CPU的处理时间，从而降低程序的运行速度。
可以在程序代码的开始部分设置ScreenUpdating属性为False，即Application.ScreenUpdating=False，以关闭屏幕刷新，这样不仅能够使代码运行更快，而且使得界面对用户更为友好。在程序结束前，将该属性设置为True，以恢复Excel对屏幕更新的控制。
然而，在宏运行的过程中，如果需要显示用户窗体或者内置对话框，建议先恢复屏幕刷新，否则拖动用户窗体时，会在屏幕上产生橡皮擦的效果。当然，在显示该对象后，可以重新关闭屏幕刷新。
Selection属性
Selection属性返回活动窗口中所选择的对象。例如，对于单元格，该属性返回Range对象；对于图表，该属性返回Chart对象。如果使用该属性时没有限定引用，则等价于Application.Selection。
下面的示例清除工作表Sheet1中的选区（假设选区是单元格区域）：

Worksheets("Sheet1").Activate
Selection.Clear

下面的示例在变量NumRows中存储所选行的总数：

    numrows = 0
    For Each area In Selection.Areas
        numrows = numrows + area.Rows.Count
    Next area

下面的示例统计所选区域中单元格的数量，并在消息框中显示结果：

Sub Count_Selection()
    Dim cell As Object
    Dim count As Integer
    count = 0
    For Each cell In Selection
        count = count + 1
    Next cell
    MsgBox count & "项被选择"
End Sub

下面的示例确保在输入数据之前选择的是工作表：

Sub EnterDataInWorksheet()
    If TypeName(ActiveSheet) <> "Worksheet" _
        Or TypeName(Selection) <> "Range" Then
        MsgBox "本程序仅用于单元格区域", vbCritical
        Exit Sub
    End If
    Range("A1").Value = 20
End Sub

StatusBar属性
StatusBar属性返回或设置状态栏中的文本。该属性允许改变显示在Excel窗口底部的状态栏中的信息，这特别有助于使用户了解需要花时间完成的操作处理的进度。因此，状态栏是一种告知用户当前程序信息的极好方式，并且状态栏不会干扰用户，也易被开发者利用。
如果Excel控制状态栏，则StatusBar属性返回False。此外，要恢复缺省的状态栏文本，只需设置该属性为False，即使隐藏了状态栏。
例如，下面的示例将现在正在处理的文件赋值给状态栏：

Sub test()
    Dim FileNum As Integer
    FileNum = 0
    For Each file In Files
        Application.StatusBar = "现在正在处理文件" & FileNum
        FileNum = FileNum + 1
    Next
End Sub

然后，当程序结束时，使用下面的语句将状态栏恢复为正常：

Application.StatusBar = False

这是通知Excel并清空状态栏的最简单的方式。除非重新启动Excel，否则状态栏中会一直保持着使用Application.StatusBar所显示的文本，因此应该在合适的地方使用Application.StatusBar = False语句，尤其是应该考虑发生错误时如何恢复状态栏。另外，在使用状态栏时，需要选择一个合适的更新间隔，使之既不会影响程序性能又能为用户提供有用的信息。
可以创建自已的过程来使用StatusBar属性，以显示宏或其它过程的进度：

Sub ShowStatusBarProgress()
    Dim i As Long
    Dim pctDone As Double
    Dim numSquares As Long
 
    Const MAXSQR As Long = 15
 
    For i = 1 To 30
        pctDone = i / 30
        numSquares = pctDone * MAXSQR
        Application.StatusBar = Application.WorksheetFunction.Rept(Chr(60), numSquares)
        Application.Wait Now + TimeSerial(0, 0, 1)
    Next i
 
    Application.StatusBar = False
End Sub

本示例随着程序的运行逐渐显示由常量MAXSQR定义的15个小于符号，小于符号使用ASCⅡ字符60生成。本示例没有指示过程执行多长时间，只是显示了执行的进度。Wait方法摸拟宏占用的执行时间。
要在VBA代码中使用状态栏，首先确定在用户界面中是否显示了状态栏（因为用户极有可能关闭了显示状态栏的选项），并且在状态栏使用完毕后，应将其恢复到用户原先的设置，因此在程序开始前，将状态栏的信息保存到一个变量中：

bStatusBarInfo=Application.DisplayStatusBar

然后，将DisplayStatusBar属性设置为True，以确保显示状态栏。在程序结束前，将状态栏恢复到原先的设置：

Application.DisplayStatusBar=bStatusBarInfo

ThisWorkbook属性
ThisWorkbook属性返回Workbook对象，代表当前正运行的宏所在的工作簿。该属性允许加载项引用包含代码的工作簿。ActiveWorkbook属性在该实例中不会工作，因为活动工作簿可能不是包含加载项代码的工作簿。换句话说，ActiveWorkbook属性不会返回加载项工作簿，它返回调用加载项的工作簿。如果从VB代码创建了一个加载项，应该使用ThisWorkbook属性限定必须在编译到该加载项的工作簿中运行的语句。
下面的示例关闭包含示例代码的工作簿，如果修改了该工作簿，则不会保存修改。

ThisWorkbook.Close SaveChanges:=False

下面的示例遍历每个打开的工作簿并将其关闭，然后关闭包含该代码的工作簿。

Private oExcel As Excel.Application
Private wbk As Excel.Workbook
 
Sub CloseOpenWrkBks()
    Dim wrkb As Workbook
    For Each wbk In Application.Workbooks
        If wrkb.Name <> ThisWorkbook.Name Then
            wbk.Close True
        End If
    Next wbk
    ThisWorkbook.Close True
End Sub

Application对象相关的方法
下面探讨Application对象经常使用的一些方法。
FindFile方法和Dialogs集合
与GetOpenFilename方法不同，FileFind方法显示“打开”对话框并允许用户打开文件。如果成功打开文件，那么该方法返回True；如果用户取消了该对话框，那么该方法返回False。
下面的示例显示一条消息，告诉用户打开一个指定的文件，然后显示“打开”对话框。如果用户不能够打开该文件，则显示一条消息。

Sub OpenFile1()
    Dim bSuccess As Boolean
    MsgBox "请定位到MonthlySales.xls文件."
    bSuccess = Application.FindFile
    If Not bSuccess Then
        MsgBox "该文件没有打开."
    End If
End Sub

也可以使用Dialogs集合打开特定的对话框来完成相同的操作。使用Dialogs集合的优势之一是使用Show方法，可以传递参数修改内置对话框的缺省行为。例如，xlDialogOpen的参数为：file_text、update_links、read_only、format、prot_pwd、write_res_pwd、ignore_rorec、file_origin、custom_delimit、add_logical、editable、file_access、notify_logical、converter。
注：要找到特定对话框的参数，在Excel帮助的“内置对话框参数列表”中查找相应的对话框常量。
下面的示例显示在文件名框中带有Book1.xlsm的“打开”对话框，允许用户显示缺省文件而不必选择文件。

Sub OpenFile2()
    Application.Dialogs(XlBuiltInDialog.xlDialogOpen).Show arg1:="Book1.xlsm"
End Sub

Dialogs集合的优点在于，可以使用它来显示任何的Excel对话框（大约有250个）。通过下述步骤可以找到对话框完整列表。
（查找对话框集合的成员列表）
1、打开VBE。
2、单击“查看——对象浏览器”或者按F2键，显示“对象浏览器”。
3、在搜索框中输入xlDialog。
4、单击“搜索”按钮。
对Excel 2007而言，可以使用CommandBar对象来执行功能区中的命令，例如，下面的语句显示“定位”对话框：

Application.CommandBars.ExecuteMso ("GoTo")

ExecuteMso方法执行由idMso参数标识的控件。idMso参数的取值可以查找网上资源。
下面的语句显示“设置单元格格式”对话框中的“字体”选项卡：

Application.CommandBars.ExecuteMso ("FormatCellsFontDialog")

GetOpenFilename方法
GetOpenFilename方法显示标准的“打开”对话框并从用户处获取文件名称，但不真正打开任何文件，而是以字符串返回用户选择的文件名及其路径。那么，您可以利用该字符串完成所需要的操作，例如可以传递返回的结果到OpenText方法。下面是GetOpenFilename方法的语法（所有参数都是可选的）：

GetOpenFilename(FileFilter,FilterIndex,Title,ButtonText,MultiSelect)

参数FileFilter是一个字符串，规定筛选条件（例如，*.txt，*.xla），在“打开”文件对话框中只显示与筛选条件相匹配的文件，默认为“所有文件(*.*),*.*”。参数FilterIndex指定缺省的文件筛选条件的索引值，从1到参数FileFilter中指定的筛选数，默认使用索引值为1的文件筛选条件。参数Title指定对话框的标题，默认显示“打开”。参数ButtonText仅用于Macintosh计算机。参数MultiSelect是一个Boolean值，指定能否选择多个文件，默认仅能够选择单个文件。
下面的示例显示在文件类型中设置为文本文件（*.txt）的“打开”对话框，然后显示带有用户选择的信息的消息框。注意，文件并没有被打开。

    Dim fileToOpen As String
    fileToOpen = Application.GetOpenFilename("文本文件(*.txt),*.txt")
    If fileToOpen <> "" Then
        MsgBox "打开" & fileToOpen
    End If

下面的示例获取多个工作簿：

'作者:Steven M. Hansen
Sub TestGetFiles()
    Dim nIndex As Integer
    Dim vFiles As Variant
    Dim strFileName As String
    '获取多个Excel文件
    vFiles = GetExcelFiles("测试GetExcelFiles函数")
    '确保没有取消对话框.
    '如果用户取消对话框,函数返回False,而不是数组
    If Not IsArray(vFiles) Then
        MsgBox "没有选择文件."
        Exit Sub
    End If
    '如果没有取消对话框,则遍历文件
    For nIndex = 1 To UBound(vFiles)
        strFileName = strFileName & vbCrLf & vFiles(nIndex)
    Next nIndex
    '显示用户所选择的文件名称
    MsgBox "用户已选择的文件如下:" & vbCrLf & strFileName
End Sub
 
'允许选择多个文件
'返回含有文件名称的数组
Function GetExcelFiles(sTitle As String) As Variant
    Dim sFilter As String
    Dim bMultiSelect As Boolean
    sFilter = "Excel工作簿(*.xlsx),*.xlsx"
    bMultiSelect = True
    GetExcelFiles = Application.GetOpenFilename(FileFilter:=sFilter, _
                    Title:=sTitle, MultiSelect:=bMultiSelect)
End Function

当将GetOpenFilename方法的参数MultiSelect设置为True时，如果用户选择了文件，那么将返回一个变体类型的数组，且数组索引值基于1而不是0；如果用户取消了选择文件，那么返回False。在TestGetFiles过程的代码中，使用IsArray函数测试返回值是否是数组。如果使用vFiles=False来判断的话，当用户选择了文件时，由于返回的值为数组，则会导致运行时错误：类型不匹配。
GetSaveAsFilename方法
GetSaveAsFilename方法显示“另存为”对话框，允许用户指定一个文件名和需要保存文件的位置，但是实际上并没有保存文件。GetSaveAsFilename方法的语法如下（所有参数都是可选的）：

Application.GetSaveAsFilename(InitialFilename,FileFilter,FilterIndex,Title,ButtonText)

参数InitialFilename为指定文件名的字符串，默认为活动工作簿的名称，若不需要指定初始文件名，则将其设置为空字符串（”"）；参数FileFilter是表示筛选条件的字符串，在“另存为”对话框只显示与筛选条件相匹配的文件，默认为“所有文件(*.*),*.*”；参数FilterIndex用来指定缺省的文件筛选条件的索引值，默认使用索引值为1的文件筛选条件；参数Title指定显示对话框标题的字符串文本，默认显示“另存为”；参数ButtonText仅用于Macintosh计算机。
下面介绍一个综合示例，是Steven M. Hansen编写的，从完整的文件名字符串中分解出文件路径和文件名。

Sub TestBreakdownName()
    Dim sPath As String
    Dim sName As String
    Dim sFileName As String
    Dim sMsg As String
    sFileName = Application.GetSaveAsFilename
    BreakdownName sFileName, sName, sPath
    sMsg = "文件名是:" & sName & vbCrLf
    sMsg = sMsg & "文件路径是:" & sPath
    MsgBox sMsg, vbOKOnly
End Sub
 
Function GetShortName(sLongName As String) As String
    Dim sPath As String
    Dim sShortName As String
    BreakdownName sLongName, sShortName, sPath
    GetShortName = sShortName
End Function
 
Sub BreakdownName(sFullName As String, _
                  ByRef sName As String, _
                  ByRef sPath As String)
    Dim nPos As Integer
    '找出文件名从哪里开始
    nPos = FileNamePosition(sFullName)
    If nPos > 0 Then
        sName = Right(sFullName, Len(sFullName) - nPos)
        sPath = Left(sFullName, nPos - 1)
    Else
        '无效的文件名
    End If
End Sub
 
'返回提供的完整文件名中文件名的位置或首字符索引值
'完整文件名包括路径和文件名
'例如:FileNamePosition("C:\Testing\Test.xlsx")=11
Function FileNamePosition(sFullName As String) As Integer
    Dim bFound As Boolean
    Dim nPosition As Integer
    bFound = False
    nPosition = Len(sFullName)
    Do While bFound = False
        '确保不是零长度字符串
        If nPosition = 0 Then Exit Do
        '从右开始查找第一个"\"
        If Mid(sFullName, nPosition, 1) = "\" Then
            bFound = True
        Else
            '从右至左
            nPosition = nPosition - 1
        End If
    Loop
    If bFound = False Then
        FileNamePosition = 0
    Else
        FileNamePosition = nPosition
    End If
End Function

除了运行TestBreakdownName过程获取文件名和文件路径外，还可以使用GetShortName函数仅获取文件名。此外，在Sub过程BreakdownName中使用了ByRef参数，即通过引用传递参数，这样传递给子过程的参数改变后，调用子过程的主过程中相应的参数也随之改变。
InputBox方法
InputBox方法提供了一种程序与用户之间进行简单的交互的方式，允许我们从用户处获得信息。该方法将显示一个对话框，提示用户输入某值。通过指定希望用户输入的数据类型，InputBox方法能够进行数据验证。InputBox方法的语法如下：

InputBox(Prompt,Title,Default,Left,Top,HelpFile,HelpContextID,Type)

其中：参数Prompt是在对话框中显示的消息。这里，可以提示用户您希望用户输入的数据类型。该参数是唯一的必需参数。
参数Title是对话框顶部显示的标题。缺省使用应用程序名称。
参数Default是对话框最初显示时的缺省值。
参数Left和Top用于指定对话框的位置，这些值相对于屏幕的左上角且以磅为单位。如果忽略，则对话框将水平居中且距屏幕顶约1/3处。
参数HelpFile和HelpContextId指定帮助文件，如果使用了这两个参数，那么在对话框中将出现帮助按钮。
参数Type指定需要返回的数据类型。缺省为文本，允许的类型列于表1。

注意，如果Type为8，那么必须使用Set语句将结果赋值给Range对象，如下面的代码所示：

表1：InputBox方法返回的数据类型

值	类型
0	公式。公式作为字符串被返回。这是仅有的必需的参数。
1	数值。也可以包括返回值的公式。
2	文本（字符串）
4	逻辑值（True或False）
8	单元格引用，作为Range对象
16	错误值，例如#N/A
64	值列表

Set myRange = Application.InputBox(Prompt:="示例", Type:=8)

如果希望允许输入多种数据类型，那么可以使用上表中的任意数值组合。例如，如果要显示一个可以接受文本或数值的输入框，则可以将type的值设置为3（即1+2的结果）。如果输入了错误类型的数据，则显示错误消息并提示再次输入数据。如果单击“取消”按钮，则返回False。
下面的示例提示用户输入希望打印活动工作表的份数（注意，type指定希望输入的是一个数值）：

Sub PrintActiveSheet()
    Dim TotalCopies As Long, NumCopies As Long
    Dim sPrompt As String, sTitle As String
 
    sPrompt = "您想要多少副本?"
    sTitle = "打印活动工作表"
    TotalCopies = Application.InputBox(Prompt:=sPrompt, Title:=sTitle, Default:=1, Type:=1)
 
    For NumCopies = 1 To TotalCopies
        ActiveSheet.PrintOut
    Next NumCopies
End Sub

如果将InputBox方法的返回值赋给一个Variant型变量，则可以检测该值是否为False。如果要返回单元格区域，则使用像下面的代码会更好：

Sub GetRange()
    Dim rng As Range
    On Error Resume Next
    Set rng = Application.InputBox(Prompt:="输入单元格区域", Type:=8)
    If rng Is Nothing Then
        MsgBox "操作取消"
    Else
        rng.Select
    End If
End Sub

此时，必须使用Set语句将Range对象赋值给某对象变量，如果用户单击“取消”按钮则返回值False，Set语句将失败并提示运行时错误。使用On Error Resume Next语句避免运行时错误，然后检查是否产生了一个有效的区域。如果用户单击“确定”按钮，那么InputBox方法检查内置类型以确保将返回有效的区域，因此空区域表明单击了“取消”按钮。
Run方法
Run方法执行一个宏或调用一个函数。可以使用该方法运行由VBA或Excel宏语言编写的宏，或者运行动态链接库（DLL）里的函数或Excel加载项（XLL）。XLL是使用任何支持创建DLLs的编译器为Excel创建的加载项。Run方法的语法为：

Run(Macro,Arg1,…,Arg30)

参数Macro是要执行的宏或函数的名称，参数Arg1至Arg30是需要传递给宏或函数的一些参数。
下面的示例使用Run方法调用一个过程，设置单元格区域中单元格的字体为粗体。当然，也可以使用Call方法获得相同的结果。

Sub UseRunMethod()
    Dim wks As Worksheet
    Dim rng As Range
 
    Set wks = Worksheets("Sheet2")
    Set rng = wks.Range("A1:A10")
    Application.Run "MyProc", rng
 
    '也能够使用下面的语句完成相同的任务
    'Call MyProc(rng)

End Sub
 
Sub MyProc(rng As Range)
    With rng.Font
        .Bold = True
    End With
End Sub

Application对象相关的事件
Application对象也有一些事件，能够用于监视整个Excel应用程序的行为。要使用Application事件，必须启用事件监视。
激活Application事件监视
1、单击“插入——类模块”，创建一个类。
2、在属性中，将类的名称改为AppEventClass。
3、在类的代码窗口，添加下面的代码：

Public WithEvents Appl As Application

现在，能够在应用程序中运用应用程序级事件。
4、在代码窗口顶部左侧的对象列表中，选择Appl。
5、在代码窗口顶部右侧的过程列表中，选择WorkbookOpen。此时，将为Appl_WorkbookOpen过程插入一对占位符。
6、在过程中添加下面的语句：

Private Sub Appl_WorkbookOpen(ByVal Wb As Workbook)
    MsgBox "已打开工作簿."
End Sub

7、重复上面的步骤插入Appl_WorkbookBeforeClose事件，并添加下面的语句：

Private Sub Appl_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean)
    MsgBox "关闭工作簿."
End Sub

8、接下来，创建一个变量用于引用类模块中创建的Application对象。在工程资源管理器中，双击ThisWorkbook打开代码窗口。
9、添加下面的语句。

Dim ApplicationClass As New AppEventClass

通过在ThisWorkbook代码窗口添加下面的语句，创建所声明的对象对Application对象的连接：

Private Sub Workbook_Open()
    Set ApplicationClass.Appl = Application
End Sub

10、保存并关闭该工作簿。
11、现在，测试代码。打开该工作簿，将触发Appl_WorkbookOpen事件，显示相应的信息框。
12、关闭该工作簿，将触发Appl_WorkbookBeforeClose事件，显示相应的信息框。
13、切换回AppEventClass类模块并单击过程列表显示能够用于监控应用程序行为的一系列事件。
理解这些事件如何被触发以及事件的顺序对理解应用程序是重要的。在类模块中添加其他的事件并插入消息框，然后试验不同的行为来看看何时触发某特定的事件。

使用Application对象执行其它任务
除了Application对象中最常用的对象外，您可能希望在Excel应用程序中执行一些其他任务。下面我们就来探讨这方面的内容。
删除工作表而显示提示信息（DisplayAlerts属性）
下面的示例首先关闭询问是否保存工作表的任何消息，接着删除工作表并打开警告消息。

Sub DeleteSheet()
    Application.DisplayAlerts = False
    ActiveSheet.Delete
    Application.DisplayAlerts = True
End Sub

上述示例代码中使用了DisplayAlerts属性，将其值设置为False以自动执行Excel警告对话框中默认按钮相关的操作。
设置DisplayAlerts属性的意图在于，运行宏时不必响应系统出现的警告而使执行过程中断。当然，在过程结束前，最好将DisplayAlerts属性设置为True。
无须提示用户而保存工作表（DisplayAlerts属性）
下面的示例保存工作表，而没有通知用户是否保存。

Sub SaveWorksheet()
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs "C:\MonthlySales.xls"
    Application.DisplayAlerts = True
End Sub

此时，如果现有文件与要保存的文件名相同，那么会覆盖该文件而不会弹出任何警告消息。
使用SendKeys方法发送信息到记事本
SendKeys方法允许发送按键到当前活动窗口，用来控制不支持任何其他交互形式的应用程序，例如DDE(动态数据交换)或OLE。
下面的示例使用SendKeys命令从Excel中复制数据区域到记事本，然后保存该文件。

Sub SKeys()
    Range("A1:D15").Copy '复制单元格区域
    SendKeys "% n", True '最小化Excel
    Shell "notepad.exe", vbNormalFocus '开启记事本
    SendKeys "^V", True '将数据粘贴到记事本
    SendKeys "%FA", True '指定另存为
    SendKeys "SalesData.txt", True '提供文件名
    SendKeys "%S", True '保存文件
End Sub

本示例首先复制数据区域到剪贴板，然后最小化Excel，开启记事本，接着从剪贴板复制数据到记事本，最后指定文件名并保存文件。
下面的示例打开了“记事本”应用程序(不支持DDE或OLE)，并将数据行写入记事本文档：

Sub SKeys()
    Dim dReturnValue As Double
    dReturnValue = Shell("NOTEPAD.EXE", vbNormalFocus)
    AppActivate dReturnValue
    Application.SendKeys "Copy Data.xlsx c:\", True
    Application.SendKeys "~", True
    Application.SendKeys "%FABATCH%S", True
End Sub

注意，应该在Excel应用程序窗口执行上述程序。
下面的过程清除VBE立即窗口中的内容。如果在立即窗口中进行过试验或者使用Debug.Print语句在立即窗口输出数据，那么旧的信息将产生混乱。该过程将焦点转移到立即窗口，发送选择该窗口中的所有文本，然后发送Del键删除文本：

Sub ImmediateWindowClear()
    Application.VBE.Windows.Item("立即窗口").SetFocus
    Application.SendKeys "^a"
    Application.SendKeys "{Del}"
End Sub

注意，要使上述代码运行，必需编程访问Visual Basic工程。从Excel功能区中选择“开发工具”选项卡，选择“宏安全性”，然后勾选“信任对VBA工程对象模型的访问”。
其中，百分比符号(%)用于代表Alt键，波形符号(~) 代表回车键，^符号代表Ctrl键。在花括号{}里放置名称指定其它特别的键，例如{Del}代表Delete键。
安排宏在指定的时间和间隔运行（OnTime方法）
可以使用Application对象的OnTime方法在指定的时间或者在有规律的时间间隔运行某过程。OnTime方法的语法如下：

Application.OnTime(EarliestTime,Procedure,LastestTime,Schedule)

参数EarliestTime指明希望何时运行由参数Procedure指定的过程，可选的参数LastestTime和Schedule指明过程运行的最迟时间，以及是否安排运行一个新过程或者删除已经存在的过程。当开始调用某过程而Excel正忙时，则需要使用参数LastestTime指定希望调用该过程的时间区间。如果使用Application对象的Wait方法暂停某宏，所有的Excel行为，包括手工交互操作，都将被挂起。OnTime方法的优势在于，当等待运行安排的宏时，允许返回正常的Excel交互操作，包括运行其他的宏。
下面的示例指定每隔5分钟运行一次名为YourProc的过程：

Application.OnTime EarliestTime:=Now + TimeValue("00:05:00"), Procedure:="YourProc"

下面的示例在每天中午运行过程YourProc：

Application.OnTime EarliestTime:=TimeValue("12:00:00"), Procedure:="YourProc"

下面的示例安排每隔5分钟调用一次AutoSave过程。如果关闭该工作簿，则调用CleanUp过程来执行可能希望的清理以及删除任何额外的调用。

Private Sub Workbook_Open()
    Application.OnTime Now + TimeValue("00:05:00"), "AutoSave"
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Application.OnTime Now + TimeValue("00:05:00"), "CleanUp", , False
End Sub

注意，Workbook_Open事件和Workbook_BeforeClose事件包含在工作簿代码模块中，而AutoSave过程和CleanUp过程则存在于标准代码模块中。
当使用OnTime方法安排在将来的某个时间运行宏时，必须确保Excel一直在内存中运行直至到达安排的时间。但不需要一直打开包含OnTime宏的工作簿。如果需要，Excel将打开该工作簿。
通过上述简介，我们已经了解了OnTime方法的基本用法。下面再详细介绍OnTime方法。
有时，我们可能需要设计Excel工作簿定期并自动地运行一个过程。例如，可能希望每隔几分钟从数据源中更新数据，此时执行Excel应用程序的OnTime方法指令Excel在给定的时间去运行某过程。通过编写代码使程序自已调用OnTime方法，能使VBA代码定期自动执行。
OnTime方法要求指定日期和时间以及要运行的过程作为参数，重要的是要记住具体地告诉Excel什么时候运行这个过程而不是从当前时间开始的偏差。为了取消一个未执行的OnTime过程，必须经过该过程计划要运行的确切的时间，不能够告诉Excel取消下一个计划执行的过程。因此，建议将安排过程开始运行的时间存放在一个公共的（或全局）变量中，该变量作用于所有的代码。然后，能够使用所存储时间的变量去安排运行或取消事件。下面的示例代码在公共的常量中存储了所运行过程的名称和重复执行的时间间隔，当然这不是必需的。

Public RunWhen As Double
Public Const cRunIntervalSeconds = 120 ' two minutes
Public Const cRunWhat = "The_Sub"

为开始这个过程，使用一个名为 StartTimer的子程序。代码如下：

Sub StartTimer()
    RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)
    Application.OnTime earliesttime:=RunWhen, procedure:=cRunWhat, _
        schedule:=True
End Sub

将比当前时间多两分钟的日期和时间存放在RunWhen变量中，然后调用OnTime方法指令Excel何时运行cRunWhat过程。
“The_Sub”是一个字符串变量，Excel将在合适的时间运行该过程。下面是该过程代码示例：

Sub The_Sub()
    '
    '这里放置代码
    '
    StartTimer
End Sub

注意，The_Sub过程的最后一行调用了StartTimer过程，再次重复运行这个过程。并且当下次使用OnTime调用The_Sub过程时，将再次调用StartTimer来重复执行它自已。这就是如何执行周期循环的方法。
有时，当关闭工作簿时或者满足某个条件时需要停止定时执行的过程。由于OnTime方法是Application对象的一部分，简单地关闭已创建事件的工作簿不会取消对OnTime的调用。一旦Excel自身保持运行，它将执行OnTime过程，并且在必要时会自动打开该工作簿。
为了停止OnTime过程，必须对OnTime方法指定确切的时间，这就是我们将时间作为公共的变量存放在RunWhen中的原因。否则，没办法知道过程计划执行的确切时间。（所计划的时间像OnTime方法中的一把“钥匙”，如果没有它，就没有通往事件的入口）
下面是一个名为StopTimer的子过程，它将停止要执行的OnTime过程。

Sub StopTimer()
    On Error Resume Next
    Application.OnTime earliesttime:=RunWhen, _
        procedure:=cRunWhat, schedule:=False
End Sub

这个过程使用了和StartTimer过程相同的OnTime语法，将schedule参数设置为False告诉Excel取消该过程的执行。可能希望在Auto_Close宏或Workbook_BeforeClose事件中包括一个对该过程的调用。在StopTimer过程中，使用On Error Resume Next语句忽略当你企图删除一个不存在的过程时可能产生的任何错误。
下面的示例演示当在单元格B1中输入一个值后，如果A1单元格中不为空，那么将在10秒后自动清除单元格A1和B1中的内容。示例代码如下：
在标准模块中输入如下代码：

Sub DeleteContents()
    Worksheets("Sheet1").Range("A1:B1").ClearContents
End Sub
Sub MyEntry()
    Range("B1").Value = "Goodbye"
End Sub

在工作表sheet1代码模块中输入如下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$B$1" Then Exit Sub
    If IsEmpty(Target) Or IsEmpty(Target.Offset(0, -1)) Then Exit Sub
    Application.OnTime Now + TimeSerial(0, 0, 10), "DeleteContents"
End Sub

扩展话题一：
在VBA帮助系统的OnTime方法介绍中，只对其参数EarliestTime, Procedure, LatestTime, Schedule进行了说明，并列举了定时运行某过程和撤销OnTime设置的三个代码示例。对OnAction属性的介绍中，也只简要介绍了单击某图形或菜单项时运行指定宏的示例。均没有介绍当OnTime方法或OnAction属性中设置的所要运行的宏带有参数时，如何传递参数到这些宏程序中。下面是自已总结的一些参数的传递方法，供分享。
因为运用Application.OnTime或Object.OnAction调用宏程序的语法基本相似，因此下面介绍的OnTime方法所使用的语法同样适用于OnAction属性。
为了便于理解，以下介绍均使用一段相似的代码，只不过传递给所调用宏程序MyProcedure的参数不同而已，以此来讲解传递给宏程序不同参数的方法。例如，下面的代码将使MyProcedure宏程序在从现在起的2秒后运行：

Application.OnTime Now + TimeValue("00:00:02"), "MyProcedure"

问题1：假设MyProcedure宏程序接受参数，如何传递参数到该宏程序中？有下面几种情形：
（1）所调用的宏程序接受一个参数
如果是在正常代码过程中传递参数给宏程序，可以使用” MyProcedure (42)”，其中“42”为传递给MyProcedure程序的参数。但如果这样的传递参数方法用在OnTime方法中，该程序将不会运行。
正确的语法是外层为双引号，内层再加上一组单引号，里面是程序名和程序所接受的参数。如下所示：
‘MyProcedure宏程序接受一个数值参数

Application.OnTime Now + TimeValue("00:00:02"), "' MyProcedure 42'"

（2）所调用的宏程序接受多个参数
如果所调用的宏程序接受几个参数，那么在这些参数之间应该用逗号分隔。如下所示：

'MyProcedure宏程序接受两个数值参数
Application.OnTime Now + TimeValue("00:00:02"), "'MyProcedure 42, 13'"

（3）所调用的宏程序接受字符串参数
如果所调用的宏程序所接受的参数是字符串，因为字符串已经带有一对双引号，因此应该将字符串包含在双层双引号中，即字符串参数周围有两对双引号。如下所示：

'MyProcedure宏程序接受一个字符串Hello!作为其参数
Application.OnTime Now + TimeValue("00:00:02"), "'MyProcedure ""Hello!""'"

问题2：当MyProcedure宏程序所接受的参数是变量，如何传递参数到该宏程序中？
（1）该变量为局部变量，用如下所示的方式。

'MyProcedure宏程序接受一个字符串变量strText参数，该变量为局部变量
strText = "Hello!"
Application.OnTime Now + TimeValue("00:00:02"), "'MyProcedure """ & strText & """'"

（2）该变量为全局变量，用如下所示的方式，即不必加双层双引号。

'MyProcedure宏程序接受一个字符串变量g_strText参数，该变量必须声明为公有的
g_strText = "Hello!"
Application.OnTime Now + TimeValue("00:00:02"), "'MyProcedure g_strText'"

注意，在这种情况下变量必须声明为公共变量，否则MyProcedure宏程序将不能找到该变量参数。
扩展话题二：
除了Excel的OnTime方法外，还能使用Windows API库提供的Timer函数。在某些情况下，使用API过程比使用OnTime方法更容易：第一，告诉Windows需要计时器发生的时间间隔而不是某天的特定时间；第二，API过程将自动更新，计时器将每隔一段时间发生直到你告诉它停下来为止。
这些过程需要在Office2000或更新的版本中运行，因为我们使用了AddressOf函数，他们不会在Excel97或更早的版本中运行。
为了使用Windows计时器，将下面的代码放在一个标准代码模块中。

Public Declare Function SetTimer Lib "user32" ( _
         ByVal HWnd As Long, ByVal nIDEvent As Long, _
         ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" ( _
         ByVal HWnd As Long, ByVal nIDEvent As Long) As Long
Public TimerID As Long
Public TimerSeconds As Single
Sub StartTimer()
    TimerSeconds = 1 ' 指定计时器的间隔.
    TimerID = SetTimer(0&, 0&, TimerSeconds * 1000&, AddressOf TimerProc)
End Sub
Sub EndTimer()
    On Error Resume Next
    KillTimer 0&, TimerID
End Sub
Sub TimerProc(ByVal HWnd As Long, ByVal uMsg As Long, _
         ByVal nIDEvent As Long, ByVal dwTimer As Long)
    '
    '由Windows调用的过程.
    ' 将与计时器相关的代码放置于此.
    '
End Sub

执行StartTimer过程开始计时。变量TimerSeconds指明计时器之间间隔有多少秒。这个值可能少于1。注意SetTimer过程在毫秒范围内取值，于是当我们调用SetTimer时我们通过将TimerSeconds乘以1000来增加间隔值。Windows每隔一段计时器发生的时间来调用TimerProc过程。可以将这个过程命名为想要的名字，但必须如示例中所示声明这些参数变量。如果变换了过程的名称，那么要确保也变换了SetTimer中的名字。Windows将传递下面的值到TimerProc过程：
HWnd Excel应用程序的Windows句柄。一般可忽略这个参数。
uMsg 值为275。一般可忽略这个参数。
nIDEvent 这个值通过SetTimer获得TimerID变量返回。如果不止一次调用SetTimer，那么能检查nIDEvent参数确定哪次调用SetTimer导致调用该过程。
dwTimer 计算机运行的毫秒数。相同的值通过GetTickCount Windows过程被返回。
调用EndTimer过程来停止计时器循环，这个过程调用KillTimer，通过SetTimer返回的值传递给它。
API计时器和Excel的OnTime方法间有两个重要的区别：第一，API计时器有着更精确的时间间隔（达到1秒或更少）；第二，即便Excel处在编辑模式（也就是说，当正在编辑单元格时），API计时器也将执行。注意，当Excel处于编辑模式时，如果TImerProc企图修改工作表单元格，Excel将会立即退出。

Application对象的其它一些属性和方法
Caller属性
Application对象的Caller属性返回调用或执行宏过程的对象的引用，适用于窗体工具栏控件、指定宏的绘图对象和用户自定义函数。在确定调用用户自定义函数的单元格时特别有用，例如下面的示例使用自定义函数WorksheetName函数显示调用该函数的工作表的名称。

Function WorksheetName()
    Application.Volatile
    WorksheetName = Application.Caller.Parent.Name
End Function

在工作表单元格中输入“=WorksheetName()”，将显示该工作表的名称。Application.Caller作为一个Range对象返回对调用该函数的单元格的引用，然后使用Range对象的Parent属性产生对包含该Range对象的Worksheet对象的引用，最后将Worksheet对象的Name属性赋给该函数的返回值。当每次重新计算工作表时，Appliaction对象的Volatile方法强制Excel重新计算该函数。因此，如果改变了工作表的名称，那么该函数将显示新的工作表名称。
在WorksheetName函数中，使用下面的代码是错误的：

WorksheetName = ActiveSheet.Name

如果激活的工作表不是包含该公式的工作表并发生重新计算，则将在原单元格中返回错误的名称。例如，如果在工作表Sheet1中已使用该函数，那么在工作表Sheet2中再次使用该函数时工作表Sheet1中将返回错误的名称，即工作表Sheet2的名称。
CutCopyMode属性
当我们在Excel工作表中使用剪切或复制时，在单元格区域周边会出现连续移动的虚线，即使执行完复制操作，原单元格区域周边的虚线框仍存在，直到您按Esc键或者开始单元格中输入操作。如果需要在执行完复制操作后，不要在Excel中看到复制时产生的虚线框，那么可以将Excel剪切复制模式关闭，即设置CutCopyMode属性为False：

Application.CutCopyMode=False

Evaluate方法
Evaluate方法用于将名称转换为一个对象或者一个值，其语法如下：

Evaluate("表达式")

也可以使用简写格式：

[表达式]

表达式可以是任何有效的工作表计算，在其左边有或者没有等号均可，或者是对单元格区域的引用，包括定义的名称或外部引用，或者是图表对象。工作表计算包含在VBA中不能使用的工作表函数，或者是工作表数组公式。
例如，可以在工作表中使用ISBLANK函数，但不能在VBA中使用该函数，因为VBA的等效函数IsEmpty提供了相同的功能。然而，如果需要，仍然可以使用ISBLANK函数。下面的二个示例是等价的，如果单元格A1为空，则返回 True；如果单元格A1不为空，则返回False。

MsgBox Evaluate("=ISBLANK(A1)")
MsgBox [ISBLANK(A1)]

第一个示例用法的好处是能够非常灵活地使用代码产生字符串值。第二个示例用法更简短，但仅通过编辑代码来修改表达式。下面的过程显示True或者False表明活动单元格是否为空，同时演示了第一个示例用法的灵活性。

Sub IsActiveCellEmpty()
    Dim sFunctionName As String, sCellReference As String
    sFunctionName = "ISBLANK"
    sCellReference = ActiveCell.Address
    MsgBox Evaluate(sFunctionName & "(" & sCellReference & ")")
End Sub

注意，使用第二个示例用法不能计算包含变量的表达式。
下面的两行代码演示使用Evaluate方法引用Range对象的两种方式，并且给该对象赋值：

Evaluate("A1").Value = 10
[A1].Value = 10

第一个表达式是不实用的并且极少使用，而第二个表达式虽然极不灵活，却是引用Range对象更简便的方式。通过省略Value属性进一步简化表达式，因为该属性是Range对象的默认属性：

[A1] = 10

总之，使用方括号的优点在于代码简短，而使用Evaluate方法的优点在于参数是字符串，这样即可以在代码中构造该字符串，也可以使用变量。再举一个示例，下面的代码将工作表Sheet1中单元格A1的字体加粗：

Worksheets("Sheet1").Activate
boldCell = "A1"
Application.Evaluate(boldCell).Font.Bold = True

此外，Evaluate方法能够返回工作簿名称集合的内容以及有效地产生数组值。下面的代码创建一个隐藏的名称用来保存密码。在“插入”→“名称”→“定义”对话框中不能看到隐藏的名称，因此这是在工作簿里存储信息的便利方式，不会弄乱用户界面：

Names.Add Name:= "PassWord", RefersTo:= "Bazonkas", Visible:=False

然后，像下面的代码一样在表达式里使用隐藏的数据：

sUserInput = InputBox("Enter Password")
If sUserInput = [PassWord] Then
    ...
End If

Evaluate方法同样适用于数组。下面的表达式产生一个二维的Variant型数组，100行1列，包含从101 到 200的值。执行该过程比使用For…Next循环更有效率。

vRowArray = [ROW(101:200)]

下面的代码将101至200的值赋给单元格区域B1:B100，同样比For…Next循环更有效率：

[B1:B100] = [ROW(101:200)]

OnKey方法
使用OnKey方法按特定的键或组合键运行指定的过程，也可以禁用内置的组合键。其语法为：

Application.OnKey(Key,Procedure)

参数Key指定要按的键的字符串。参数Procedure指定要运行的过程名称的字符串，如果为空（”"），则按参数Key指定的键时将不发生任何操作；如果省略该参数，则恢复参数Key指定的键在Excel中的正常操作，同时清除先前使用OnKey方法所做的操作设置。
参数Key可以指定任何与Alt、Ctrl或Shift组合使用的键，还可以指定这些键的任何组合。每一个键可以由一个或多个字符表示，比如”a”表示字符a，”{ENTER}”表示Enter（回车）。若要指定按对应的键（例如Enter或Tab）时的非显示字符，可以使用下表2所列出的代码。表2中的每个代码表示键盘上的一个对应键，按键代码放置在花括号{}中。

还可以指定与Shift和/或Ctrl和/或Alt组合使用的键。若要指定与其他键组合使用的键，可使用下表3。

表2：OnKey方法的按键代码

按键	代码
Backspace	{Backspace}或{BS}
Break	{BREAK}
Caps Lock	{CAPSLOCK}
Clear	{CLEAR}
Delete或Del	{Delete}或{DEL}
向下箭头	{DOWN}
End	{END}
Enter（在数字小键盘中）	{ENTER}
Enter	~（波形符）
Esc	{ESCAPE}或{ESC}
Help	{HELP}
Home	{HOME}
Ins	{Insert}
向左箭头	{LEFT}
Num Lock	{NUMLOCK}
Page Down	{PGDN}
Page Up	{PGUP}
Return	{RETURN}
向右箭头	{RIGHT}
Scroll Lock	{SCROLLLOCK}
Tab	{TAB}
向上箭头	{UP}
F1到F15	{F1}到{F15}

表3：组合按键代码
若要为特定字符指定处理过程（如 +、^、% 等等），可以将此字符用花括号括起。
下面的示例为键序列Ctrl+加号分配“InsertProc”过程，并为键序列Shift+Ctrl+向右键分配“SpecialPrintProc”过程。

要组合的键	在按键代码之前添加
Shift	+（加号）
Ctrl	^（插入符号）
Alt	%（百分号）

Application.OnKey "^{+}", "InsertProc"
Application.OnKey "+^{RIGHT}", "SpecialPrintProc"

下面的示例将Shift+Ctrl+向右键恢复正常操作。

Application.OnKey "+^{RIGHT}"

下面的示例将Shift+Ctrl+向右键键序列设为不发生任何操作。

Application.OnKey "+^{RIGHT}", ""

又如，下面的代码忽略Alt+F4组合键的操作：

Application.OnKey "%{F4}",""

即按下Alt+F4组合键后，Excel没有任何反应，不执行任何操作。
注意，OnKey方法使用的按键将应用到所有打开的工作簿，且仅在当前的Excel会话期间起作用。
下面的示例代码禁用工作表右键快捷菜单：

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, _
                      ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    MsgBox "对不起!已禁用右键菜单!"
End Sub
 
'禁用Shift+{F10}显示快捷菜单
Sub SetupNoShiftF10()
    Application.OnKey "+{F10}", "NoShiftF10"
End Sub
 
'恢复Shift+F10组合键的功能
Sub TurnOffNoShiftF10()
    Application.OnKey "+{F10}"
End Sub
 
Sub NoShiftF10()
    MsgBox "对不起!已禁用右键菜单!"
End Sub

ThisCell属性
ThisCell属性返回一个单元格，作为Range对象在此调用用户定义的函数。下面的示例在调用函数时将函数所在单元格的地址通知给用户。

Function UseThisCell()
    MsgBox "该单元格的地址为: " & _
        Application.ThisCell.Address
End Function

在用户定义的函数中，用户不能访问Range对象上的属性或方法。当完成了重新计算后，用户可以为今后的使用和执行附加操作而存储Range对象。
WorksheetFunction属性
在Excel中可以直接使用两组内置函数，一组函数是VBA语言的组成部分，另一组函数是Excel工作表函数的子集。可以使用Application对象的WorksheetFunction属性来使用VBA中没有相同功能的工作表函数。
通常，如果一个VBA函数与一个Excel函数有着相同的用途，那么该Excel函数就不能直接用于VBA宏（虽然本文前面介绍过可以使用Evalute方法访问任何Excel函数）。但还有一种特殊的情形，关于Excel的Mod函数。Mod函数不能直接用于VBA，但是VBA提供了相同用途的Mod操作符。下面的代码使用Evaluate方法的简洁格式，运用Excel的Mod函数和Today函数以数字显示星期几：

MsgBox [MOD(TODAY(),7)]

使用VBA的Date函数和Mod操作符，更简单地获得相同的结果：

MsgBox Date Mod 7

Excel的Concatenate 函数同样也不能用于VBA，但可以使用连接操作符(&)代替，就像在Excel工作表公式里一样。如果一定要在VBA中使用Concatenate函数，可以编写如下的代码：

Sub ConcatenateExample1()
    Dim s1 As String, s2 As String
    s1 = "Jack "
    s2 = "Smith"
    MsgBox Evaluate("CONCATENATE(""" & s1 & """,""" & s2 & """)")
End Sub

但下面的代码更简单且结果相同：

Sub ConcatenateExample2()
    Dim s1 As String, s2 As String
    s1 = "Jack "
    s2 = "Smith"
    MsgBox s1 & s2
End Sub

VBA函数，例如Date、DateSerial和IsEmpty能够自由地使用，因为它们是<全局>的成员。例如，可以使用下面的代码：

StartDate = DateSerial(1999, 6, 1)

Excel函数，例如VLookup和SUM是WorksheetFuncion对象的方法，可以使用下面的代码：

Total = WorksheetFunction.Sum(Range("A1:A10"))

为了与Excel 5和Excel 95兼容，可以直接使用Application而无需WorksheetFunction：

Total = Application.Sum(Range("A1:A10"))

在VBE编辑器中，输入下面的代码：

application.WorksheetFunction.

将自动显示出能够在VBA中使用的所有工作表函数列表。
改变光标显示（Cursor属性）
通过Cursor属性来设置光标在Excel界面中的显示形状，可以将其设置为xlIBeam（条状）、xlNorthwestArrow（西北向箭头）、xlWait（等待）、xlDefault（恢复为默认值）。
获取或改变Excel窗口的状态或大小（WindowState属性）
通过WindowState属性来获取或改变Excel窗口的状态，包括xlMaximized（最大化）、xlMinimized（最小化）、xlNormal（正常）。
通过Height属性和Width属性改变或获取Excel主应用程序的高度和宽度。注意，只有当Application.WindowState=xlNormal时，才能改变Height属性和Width属性。
通过UsableHeight属性和UsableWidth属性获取主应用程序窗口中一个窗口可用的最大高度和最大宽度。
获取系统信息
下面的示例程序使用了多个Application对象的属性以获取系统信息：

Sub GetSystemInfo()
    MsgBox "Excel版本信息为:" & Application.CalculationVersion
    MsgBox "Excel当前允许使用的内存为:" & Application.MemoryFree
    MsgBox "Excel当前已经使用的内存为:" & Application.MemoryUsed
    MsgBox "Excel可以使用的内存为:" & Application.MemoryTotal
    MsgBox "本机操作系统的名称和版本为:" & Application.OperatingSystem
    MsgBox "本产品所登记的组织名称为:" & Application.OrganizationName
    MsgBox "当前用户名为:" & Application.UserName
    MsgBox "当前使用的Excel版本为:" & Application.Version
End Sub

自动隐藏公式栏（DisplayFormulaBar属性）
在Excel 2003及以前版本的Excel中，当单元格中输入的数据超过一定数量时，公式栏会自动向下扩展，从而遮盖住了工作表区域。下面的示例代码当单元格中的字符数小于50时，显示公式栏，否则隐藏公式栏。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.count > 1 Then Exit Sub
    If Len(Target.Text) > 50 Or Len(Target.Formula) > 50 Then
        Application.DisplayFormulaBar = False
    Else
        Application.DisplayFormulaBar = True
    End If
End Sub

当然，上述代码在Excel 2007中仍然有用，但Excel 2007已经改进了公式栏的特性，即使输入大量的数据，也不会遮盖工作表区域。
将Excel全屏显示（DisplayFullScreen属性）

Sub testFullScreen()
    MsgBox "运行后将Excel的显示模式设置为全屏幕"
    Application.DisplayFullScreen = True
    MsgBox "恢复原来的状态"
    Application.DisplayFullScreen = False
End Sub

获取Excel启动文件夹的路径（StartupPath属性）

Sub ExcelStartFolder()
    MsgBox "Excel的启动文件夹的路径为:" & Chr(10) & Application.StartupPath
End Sub

检测Excel的版本（Version属性）

Sub CheckVersion()
    If Val(Application.Version) < 12 Then
        MsgBox "只在Excel 2007或更高版本中有效"
        ThisWorkbook.Close
    End If
End Sub

Application对象的Version属性返回一个代表当前运行的Excel的版本的字符串，使用Val函数返回该字符串内的数值。该属性通常用于判断当前Excel是否满足程序运行要求。
打开最近使用过的文档（RecentFiles属性）

Sub OpenRecentFiles()
    MsgBox "显示最近使用过的第三个文件的名称,并打开该文件"
    MsgBox "最近使用过的第三个文件的名称为:" & Application.RecentFiles(3).Name
    Application.RecentFiles(3).Open
End Sub

文件对话框操作（FileDialog属性）

Sub UseFileDialogOpen()
    Dim lngCount As Long
    '开启"打开文件"对话框
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = True
        .Show
        '显示所选的每个文件的路径
        For lngCount = 1 To .SelectedItems.count
            MsgBox .SelectedItems(lngCount)
        Next lngCount
    End With
End Sub

本示例显示“打开文件”对话框，当用户在其中选择一个或多个文件后，将依次显示每个文件的路径。其中FileDialog属性返回打开和保存对话框中一系列对象的集合，可以对该集合对象的属性进行进一步的设置，例如上例中的AllowMultiSelect属性设置为True将允许用户选择多个文件。
改变Excel工作簿的名称（Caption属性）

Sub SetCaption()
    Application.Caption = "我的工作簿"
End Sub

将工作簿中的Microsoft Excel列改为“我的工作簿”。
调用Windows的计算器（ActivateMicrosoftApp方法）

Sub CallCalculate()
    Application.ActivateMicrosoftApp Index:=0
End Sub

运行上述过程后，将调用Windows的计算器。
暂时停止宏运行（Wait方法）

Sub Stop5sMacroRun()
    Dim SetTime As Date
    MsgBox "按下「确定」,5秒后执行程序「testFullScreen」"
    SetTime = DateAdd("s", 5, Now())
    Application.Wait SetTime
    Call testFullScreen
End Sub

运行本程序后，按下弹出的提示框中的“确定”按钮，等待5秒后执行另一程序testFullScreen。
重新计算工作簿（Calculate方法）
当工作簿的计算模式被设置为手动模式后，运用Calculate方法可以重新计算所有打开的工作簿、工作簿中特定的工作表或者工作表中指定的单元格区域，如下面的代码：

Sub CalculateAllWorkbook()
    Application.Calculate
End Sub

下面的代码先将当前Microsoft Excel的版本与上次计算该工作簿的Excel版本进行比较，如果两个版本不同，则对所有打开工作簿中的数据进行一次完整计算。其中，CalculationVersion属性返回工作簿的版本信息。

Sub CalculateFullSample()
    If Application.CalculationVersion <> Workbooks(1).CalculationVersion Then
        Application.CalculateFull
    End If
End Sub

控制函数重新计算（Volatile方法）

Function NonStaticRand()
    '当工作表中任意单元格重新计算时本函数更新
    Application.Volatile True
    NonStaticRand = Rnd()
End Function

本示例摸仿Excel中的Rand()函数，当工作表单元格发生变化时，都会重新计算该函数。在例子中，使用了Volatile方法，强制函数进行重新计算，即无论何时重新计算工作表，该函数都会重新计算。
获取重叠区域（Intersect方法）

Sub IntersectRange()
    Dim rSect As Range
    Worksheets("Sheet1").Activate
    Set rSect = Application.Intersect(Range("rg1"), Range("rg2"))
    If rSect Is Nothing Then
        MsgBox "没有交叉区域"
    Else
        rSect.Select
    End If
End Sub

本示例在工作表Sheet1中选定两个命名区域rg1和rg2的重叠区域，如果所选区域不重叠，则显示一条相应的信息。其中，Intersect方法返回一个Range对象，代表两个或多个范围重叠的矩形区域。
获取路径分隔符（PathSeparator属性）

Sub GetPathSeparator()
    MsgBox "路径分隔符为" & Application.PathSeparator
End Sub

本示例使用PathSeparator属性返回路径分隔符（”\”）。
快速移至指定位置（Goto方法）

Sub GotoSample()
    Application.Goto Reference:=Worksheets("Sheet1").Range("A154"), _
                     scroll:=True
End Sub

本示例运行后，将当前单元格移至工作表Sheet1中的单元格A154。可以将本技巧运用到工作簿事件中，即当打开某工作簿时，快速定位到上一次退出时的单元格位置。
关闭Excel（Quit方法）

Sub 关闭Excel()
    MsgBox "Excel将会关闭"
    Application.Quit
End Sub

运行本程序后，若该工作簿未保存，则会弹出对话框询问是否保存。

参考资料：

• Developers Guide to the Excel 2007 Application Object
• Excel 2007 VBA参考大全
• Mastering Excel 2003 Programming with VBA
• Application对象基本操作应用示例
• Excel 2007高级VBA编程宝典

最为简单的理解就是两台计算机各自的IP地址与子网掩码进行AND运算后，如果得出的结果是相同的，则说明这两台计算机是处于同一个子网络上的，可以进行直接的通讯。就这么简单。

请看以下示例：

运算演示之一：aa
I P 地址　 192.168.0.1
子网掩码　 255.255.255.0
AND运算

转化为二进制进行运算：
I P 地址　11010000.10101000.00000000.00000001
子网掩码　11111111.11111111.11111111.00000000
AND运算

　　　　　11000000.10101000.00000000.00000000
转化为十进制后为：

　　　　　　192.168.0.0

运算演示之二：
I P 地址　 192.168.0.254
子网掩码　 255.255.255.0
AND运算

转化为二进制进行运算：
I P 地址　11010000.10101000.00000000.11111110
子网掩码　11111111.11111111.11111111.00000000
AND运算

　　　　　11000000.10101000.00000000.00000000
转化为十进制后为：

　　　　　　192.168.0.0

运算演示之三：
I P 地址　 192.168.0.4
子网掩码　 255.255.255.0
AND运算

转化为二进制进行运算：
I P 地址　11010000.10101000.00000000.00000100
子网掩码　11111111.11111111.11111111.00000000
AND运算

　　　　　11000000.10101000.00000000.00000000
转化为十进制后为：

　　　　　　192.168.0.0

　　通过以上对三组计算机IP地址与子网掩码的AND运算后，我们可以看到它运算结果是一样的。均为192.168.0.0

　　所以计算机就会把这三台计算机视为是同一子网络，然后进行通讯的。我现在单位使用的代理服务器，内部网络就是这样规划的。

也许你又要问，这样的子网掩码究竟有多少了IP地址可以用呢？你可以这样算。
根据上面我们可以看出，局域网内部的ip地址是我们自己规定的（当然和其他的ip地址是一样的），这个是由子网掩码决定的通过对255.255.255.0的分析。可得出：
　　前三位IP码由分配下来的数字就只能固定为192.168.0　　所以就只剩下了最后的一位了，那么显而易见了，ip地址只能有（2的8次方-1），即256-1=255一般末位为0或者是255的都有其特殊的作用。

那么你可能要问了:如果我的子网掩码不是255.255.255.0呢？你也可以这样做啊假设你的子网掩码是255.255.128.0

那么你的局域网内的ip地址的前两位肯定是固定的了（什么，为什么是固定的？你看上边不就明白了吗？）

这样，你就可以按照下边的计算来看看同一个子网内到底能有多少台机器

1、十进制128 = 二进制1000 0000

2、IP码要和子网掩码进行AND运算

3、
I P 地址　00010000.01001001.1*******.********
子网掩码　11111111.11111111.10000000.00000000
AND运算

　　　　　00010000.01001001.10000000.00000000
转化为十进制后为：

　　　　　　16 . 73 . 128 . 0

4、可知我们内部网可用的IP地址为：

00010000.01001001.10000000.00000000
　　　　　　　到
00010000.01001001.11111111.11111111

5、转化为十进制：

16.73.128.0 到 16.73.255.255

6、0和255通常作为网络的内部特殊用途。通常不使用。

7、于是最后的结果如下：我们单位所有可用的IP地址为：
192.168.128.1-192.168.128.254
192.168.129.1-192.168.129.254
192.168.130.1-192.168.130.254
192.168.131.1-192.168.131.254
. . . . . . . . . . . . .
192.168.139.1-192.168.139.254
192.168.140.1-192.168.140.254
192.168.141.1-192.168.141.254
192.168.142.1-192.168.142.254
192.168.143.1-192.168.143.254
. . . . . . . . . . . . .
192.168.254.1-192.168.254.254
192.168.255.1-192.168.255.254

8、总数为(255-128+1)*(254-1+1) =128 * 254 = 32512

9、看看的结果是否正确

　　(1)、设定IP地址为192.168.128.1

　　　　Ping 192.168.129.233通过测试

　　　　访问http://192.168.129.233可以显示出主页

　　(2)、设定IP地址为192.168.255.254

　　　　Ping 192.168.129.233通过测试

　　　　访问http://192.168.129.233可以显示出主页

10、结论

　　以上证明我们的结论是对的。现在你就可以看你的子网中能有多少台机器了

255.255.255.128
分解：
11111111.11111111.11111111.1000000
所以你的内部网络的ip地址只能是
xxxxxxxx.xxxxxxxx.xxxxxxxx.0???????
到
xxxxxxxx.xxxxxxxx.xxxxxxxx.01111111