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

Application对象?基本操作应用示例 Ap?plication对象代表?整个Microsoft E?xcel应用程序，带有17?5个属性和52个方法，可以?设置整个应用程序的环境或配?置应用程序。 示例01?-01：体验开/关屏幕更新?(ScreenUpdati?ng属性)Sub 关闭屏?幕更新()? MsgBo?x 顺序切换工作表She?et1→Sheet2→Sh?eet3→Sheet2，先?开启屏幕更新，然后关闭屏幕?更新? Workshe?ets(1).Select?? MsgBox 目前?屏幕中显示工作表Sheet?1? Applicat?ion.ScreenUpd?ating = True?? Worksheets(?2).Select? M?sgBox 显示Shee?t2了吗？? Work?sheets(3).Sel?ect? MsgBox ?显示Sheet3了吗？?? Worksheets?(2).Select? ?MsgBox 下面与前面?执行的程序代码相同,但关闭?屏幕更新功能? Wor?ksheets(1).Se?lect? MsgBox? 目前屏幕中显示工作表S?heet1 Chr(?10) 关屏屏幕更新?功能? Applica?tion.ScreenUp?dating = Fals?e? Worksheet?s(2).Select?? MsgBox 显示Sh?eet2了吗？? Wo?rksheets(3).S?elect? MsgBo?x 显示Sheet3了吗?？? Workshee?ts(2).Select?? Application?.ScreenUpdati?ng = TrueEnd? Sub示例说明：Scr?eenUpdating属性?用来控制屏幕更新。当运行一?个宏程序处理涉及到多个工作?表或单元格中的大量数据时，?若没有关闭屏幕更新，则会占?用CPU的处理时间，从而降?低程序的运行速度，而关闭该?属性则可显著提高程序运行速?度。 示例01-02：?使用状态栏(StatusB?ar属性)Sub tes?tStatusBar()?? Application?.DisplayStatu?sBar = True ?开启状态栏显示? 赋值?状态栏显示的文本? Ap?plication.Sta?tusBar = htt?p://fanjy.blo?g.excelhome.n?etEnd Sub示?例说明：StatusBar?属性用来指定显示在状态栏上?的信息。若不想再显示状态栏?文本，可使用Applica?tion.StatusBa?r = False语句关闭?状态栏显示，也可以在程序开?始将原先的状态栏设置存储，?如使用语句oldStatu?sBar = Applic?ation.Display?StatusBar将状态栏?原来的信息存储在变量old?StatusBar，在程序?运行完成或退出时，将变量重?新赋值给状态栏，如使用语句?Application.D?isplayStatusB?ar = oldStatu?sBar，以恢复状态栏原状?。 示例01-03：处?理光标(Cursor属性)?Sub ViewCurs?ors()? Appli?cation.Cursor? = xlNorthwes?tArrow? MsgB?ox 您将使用箭头光标,?切换到Excel界面查看光?标形状? Applic?ation.Cursor ?= xlIBeam? M?sgBox 您将使用工形?光标,切换到Excel界面?查看光标形状? App?lication.Curs?or = xlWait?? MsgBox 您将使用?等待形光标,切换到Exce?l界面查看光标形状? ?Application.C?ursor = xlDef?ault? MsgBox? 您已将光标恢复为缺省状?态End Sub ?示例01-04：获取系统信?息Sub GetSyst?emInfo()? Ms?gBox Excel版本?信息为: Appli?cation.Calcul?ationVersion?? MsgBox Exc?el当前允许使用的内存为:? Applicati?on.MemoryFree?? MsgBox Ex?cel当前已使用的内存为:? Applicati?on.MemoryUsed?? MsgBox Ex?cel可以使用的内存为:? Applicatio?n.MemoryTotal?? MsgBox 本机?操作系统的名称和版本为:? Applicatio?n.OperatingSy?ste