Application对象基本的操作应用示例.docVIP

Application对象基本操作应用示例 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 = TrueEnd Sub示例说明：ScreenUpdating属性用来控制屏幕更新。当运行一个宏程序处理涉及到多个工作表或单元格中的大量数据时，若没有关闭屏幕更新，则会占用CPU的处理时间，从而降低程序的运行速度，而关闭该属性则可显著提高程序运行速度。 示例01-02：使用状态栏(StatusBar属性)Sub testStatusBar()? Application.DisplayStatusBar = True 开启状态栏显示? 赋值状态栏显示的文本? Application.StatusBar = 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.VersionEnd Sub示例说明：可以使用给UserName属性赋值以设置用户名称。