(20131005)vba入门实例讲解大全各种代码(潘玉俊)

(20131005)vba入门实例讲解大全各种代码(潘玉俊)

ID:21623146

大小:429.79 KB

页数:51页

时间:2018-10-20

(20131005)vba入门实例讲解大全各种代码(潘玉俊)_第1页
(20131005)vba入门实例讲解大全各种代码(潘玉俊)_第2页
(20131005)vba入门实例讲解大全各种代码(潘玉俊)_第3页
(20131005)vba入门实例讲解大全各种代码(潘玉俊)_第4页
(20131005)vba入门实例讲解大全各种代码(潘玉俊)_第5页
资源描述:

《(20131005)vba入门实例讲解大全各种代码(潘玉俊)》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、第一章Excel应用程序对象(Application对象)及其常用方法基本操作应用示例示例01-01:体验开/关屏幕更新(ScreenUpdating属性)Sub关闭屏幕更新()MsgBox"顺序切换工作表Sheet1→Sheet2→Sheet3→Sheet2,先开启屏幕更新,然后关闭屏幕更新"Worksheets(1).SelectMsgBox"目前屏幕中显示工作表Sheet1"Application.ScreenUpdating=TrueWorksheets(2).SelectMsgBox"显示Sheet2了吗?"Worksheets(3).SelectMsgBox"显示Sheet3了吗

2、?"Worksheets(2).SelectMsgBox"下面与前面执行的程序代码相同,但关闭屏幕更新功能"Worksheets(1).SelectMsgBox"目前屏幕中显示工作表Sheet1"&Chr(10)&"关屏屏幕更新功能"Application.ScreenUpdating=FalseWorksheets(2).SelectMsgBox"显示Sheet2了吗?"Worksheets(3).SelectMsgBox"显示Sheet3了吗?"Worksheets(2).SelectApplication.ScreenUpdating=TrueEndSub示例说明:ScreenUpda

3、ting属性用来控制屏幕更新。当运行一个宏程序处理涉及到多个工作表或单元格中的大量数据时,若没有关闭屏幕更新,则会占用CPU的处理时间,从而降低程序的运行速度,而关闭该属性则可显著提高程序运行速度。Application对象代表整个MicrosoftExcel应用程序,带有175个属性和52个方法,可以设置整个应用程序的环境或配置应用程序。示例01-02:使用状态栏(StatusBar属性)示例01-03:处理光标(Cursor属性)SubtestStatusBar()Application.DisplayStatusBar=True'开启状态栏显示'赋值状态栏显示的文本Applicatio

4、n.StatusBar=EndSub示例说明:StatusBar属性用来指定显示在状态栏上的信息。若不想再显示状态栏文本,可使用Application.StatusBar=False语句关闭状态栏显示,也可以在程序开始将原先的状态栏设置存储,如使用语句oldStatusBar=Application.DisplayStatusBar将状态栏原来的信息存储在变量oldStatusBar,在程序运行完成或退出时,将变量重新赋值给状态栏,如使用语句Application.DisplayStatusBar=oldStatusBar,以恢复状态栏原状(01-2)SubViewCursors()Appl

5、ication.Cursor=xlNorthwestArrowMsgBox"您将使用箭头光标,切换到Excel界面查看光标形状"Application.Cursor=xlIBeamMsgBox"您将使用工形光标,切换到Excel界面查看光标形状"Application.Cursor=xlWaitMsgBox"您将使用等待形光标,切换到Excel界面查看光标形状"Application.Cursor=xlDefaultMsgBox"您已将光标恢复为缺省状态"EndSub(01-3)示例01-04:获取系统信息示例01-05:退出复制/剪切模式(CutCopyMode属性)SubGetSyste

6、mInfo()MsgBox"Excel版本信息为:"&Application.CalculationVersionMsgBox"Excel当前允许使用的内存为:"&Application.MemoryFreeMsgBox"Excel当前已使用的内存为:"&Application.MemoryUsedMsgBox"Excel可以使用的内存为:"&Application.MemoryTotalMsgBox"本机操作系统的名称和版本为:"&Application.OperatingSystemMsgBox"本产品所登记的组织名为:"&Application.OrganizationNameMsgB

7、ox"当前用户名为:"&Application.UserNameMsgBox"当前使用的Excel版本为:"&Application.VersionEndSub示例说明:可以使用给UserName属性赋值以设置用户名称。(01-4)SubexitCutCopyMode()Application.CutCopyMode=FalseEndSub示例说明:退出复制/剪切模式后,在程序运行时所进行的复制或剪切操作不会

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。