一簿打尽常用对象属性、vba函数(大全)教学资料.pdfVIP

一、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 = True End Sub 示例说明： ScreenUpdating 属性用来控制屏幕更新。当运行一个宏程序处理涉及到多个工作 表或单元格中的大量数据时，若没有关闭屏幕更新，则会占用 CPU的处理时间，从而降低程 示例01-02 ：使用状态栏 (StatusBar 属性) Sub testStatusBar() Application.DisplayStatusBar = True 开启状态栏显示 赋值状态栏显示的文本 Application.StatusBar = / End Sub 示例说明： StatusBar 属性用来指定显示在状态栏上的信息。若不想再显示状态栏文本，可 使用Application.StatusBar = False 语句关闭状态栏显示，也可以在程序开始将原先的状 态栏设置存储，如使用语句 oldStatusBar = Application.DisplayStatusBar 将状态栏原来 示例01-03 ：处理光标 (Cursor 属性) Sub ViewCursors() Application.Cursor = xlNorthwestArrow MsgBox 您将使用箭头光标 , 切换到 Excel 界面查看光标形状 Application.Cursor = xlIBeam MsgBox 您将使用工形光标 , 切换到 Excel 界面查看光标形状 第 1 页，共 7 页 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