Excel中用VBA-Worksheet基本操作应用示例

Application 象与其常用方法根本操作应用示例Application 对象代表整个 Microsoft Excel 应用程序，带有 175 个属性和 52 个方法，可以设置整个应用程序的环境或配置应用程序。示例 01-01:体验开/关屏幕更新(ScreenUpdating 属性)Sub 关闭屏幕更新()MsgBox "顺序切换工作表 Sheet1TSheet2TSheet3 — Sheet2，先开启屏幕更 新，然后关闭屏幕更新”Worksheets(1).SelectMsgBox ”目前屏幕中显示工作表 Sheet1”Application.ScreenUpdating = TrueWorksheets(2).SelectMsgBox "显示 Sheet2 了吗？"Worksheets(3).SelectMsgBox "显示 Sheet3 了吗？"Worksheets(2).SelectMsgBox ”下面与前面执行的程序代码一样，但关闭屏幕更新功能”Worksheets(1).SelectMsgBox ”目前屏幕中显示工作表 Sheet1" & Chr(10) & ”关屏屏幕更新功能” Application.ScreenUpdating = False Worksheets(2).SelectMsgBox "显示 Sheet2 了吗？"Worksheets(3).SelectMsgBox "显示 Sheet3 了吗？"Worksheets(2).SelectApplication.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 = xlNorthwestArrowMsgBox "您将使用箭头光标，切换到 Excel 界面查看光标形状"Application.Cursor = xlIBeamMsgBox "您将使用工形光标，切换到 Excel 界面查看光标形状"Application. Cursor = xlWaitM...