当前位置：首页 > Excel VBA教程 > Application对象及其常用方法基本操作应用示例

Application对象及其常用方法基本操作应用示例

来源：Excel中文网作者：Excelcn 发布时间：2006-12-21

Application对象代表整个Microsoft Excel应用程序，带有175个属性和52个方法，可以设置整个应用程序的环境或配置应用程序。

示例01-01：体验开/关屏幕更新(ScreenUpdating属性)
Sub 关闭屏幕更新()
MsgBox "顺序切换工作表Sheet1→Sheet2→Sheet3→Sheet2，先开启屏幕更新，然后关闭屏幕更新"
Worksheets(1).Select
MsgBox "目前屏幕中显示工作表Sheet1"
Application.ScreenUpdating = True
Worksheets(2).Select
MsgBox "显示Sheet2了吗？"
Worksheets(3).Select
MsgBox "显示Sheet3了吗？"
Worksheets(2).Select
MsgBox "下面与前面执行的程序代码相同,但关闭屏幕更新功能"
Worksheets(1).Select
MsgBox "目前屏幕中显示工作表Sheet1" & Chr(10) & "关屏屏幕更新功能"
Application.ScreenUpdating = False
Worksheets(2).Select
MsgBox "显示Sheet2了吗？"
Worksheets(3).Select
MsgBox "显示Sheet3了吗？"
Worksheets(2).Select
Application.ScreenUpdating = True
End Sub
示例说明：ScreenUpdating属性用来控制屏幕更新。当运行一个宏程序处理涉及到多个工作表或单元格中的大量数据时，若没有关闭屏幕更新，则会占用CPU的处理时间，从而降低程序的运行速度，而关闭该属性则可显著提高程序运行速度。

示例01-02：使用状态栏(StatusBar属性)
Sub testStatusBar()
Application.DisplayStatusBar = True '开启状态栏显示
'赋值状态栏显示的文本
Application.StatusBar = "http://fanjy.blog.excelhome.net"
End Sub
示例说明：StatusBar属性用来指定显示在状态栏上的信息。若不想再显示状态栏文本，可使用Application.StatusBar = False语句关闭状态栏显示，也可以在程序开始将原先的状态栏设置存储，如使用语句oldStatusBar = Application.DisplayStatusBar将状态栏原来的信息存储在变量oldStatusBar，在程序运行完成或退出时，将变量重新赋值给状态栏，如使用语句Application.DisplayStatusBar = oldStatusBar，以恢复状态栏原状。

示例01-03：处理光标(Cursor属性)
Sub ViewCursors()
Application.Cursor = xlNorthwestArrow
MsgBox "您将使用箭头光标,切换到Excel界面查看光标形状"
Application.Cursor = xlIBeam
MsgBox "您将使用工形光标,切换到Excel界面查看光标形状"
Application.Cursor = xlWait
MsgBox "您将使用等待形光标,切换到Excel界面查看光标形状"
Application.Cursor = xlDefault
MsgBox "您已将光标恢复为缺省状态"
End Sub

示例01-04：获取系统信息
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
示例说明：可以使用给UserName属性赋值以设置用户名称。

示例01-05：退出复制/剪切模式(CutCopyMode属性)
Sub exitCutCopyMode()
Application.CutCopyMode = False
End Sub
示例说明：退出复制/剪切模式后，在程序运行时所进行的复制或剪切操作不会在原单元格区域留下流动的虚框线。需要提醒的是，在程序运行完后，应使用Application.CutCopyMode = False语句恢复该属性的默认设置。

示例01-06：禁止弹出警告信息(DisplayAlerts属性)
Sub testAlertsDisplay()
Application.DisplayAlerts = False
End Sub
示例说明：在程序运行过程中，有时由于Excel本身设置的原因，会弹出对话框，从而中断程序的运行，您可以在程序之前加上Application.DisplayAlerts = False语句以禁止弹出这些对话框而不影响程序正常运行。需要注意的是，在程序运行结束前，应使DisplayAlerts属性恢复为缺省状态，即使用语句Application.DisplayAlerts = True。该属性的默认设置为True，当将该属性设置为False时，Excel会使直接使用对话框中默认的选择，从而不会因为弹出对话框而影响程序运行。

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

上一篇：窗口(Window对象)基本操作应用示例下一篇：Excel工作表探密