ExcelVBA编程实例(速成150例)

所需积分/C币:41 2018-03-07 15:09:39 15.55MB PDF

ExcelVBA编程实例(速成150例)详细实例。仔细阅读对代码的理解会更好。
插入〔 卅除①〕 重命名① 移动或复制工作表) 选定全部工作表) 工作表标签颜色①) 查看代码的 → A Sheet/shet2/shet3了 图00-03:右击工作表标签弹出莱单并选择“查看代码”打开ⅤBE编辑器 文件()编辑但)衫 保存您 另存为A 打印 页面设置①) 拼写检查) 新建齿口〕 重排窗口〔) 泉示比例亿) 查看代码e 图00-04:右击Exce图标弹出菜单并选择“查看代码”打开VBE編辑器 宏 宠名) Sheet1. test ■匚执行③ Sheet1 test 取消 单步执行) (提 创建 册除①) 位置):[所有打开的工作淳 选项〕 说明 图00-05:在宏对话框中单击“编辑”按钮打开BE编辑器 VBE编辑器窗口简介 刚打开vBE编辑器时,所显示的窗口如图00-06所示,其中没有代码模块窗口。 Microsoft visual Basic-Booki 文件¢)编辑¢)视图凹)插入①)格式⑩)调试①)运行)工具⑦)外接程序④)窗囗智)帮助 工程VAPt 国国 日题 YBAProject Book11) crosoft Excel对象 里] eetI (Sheet1) 超]shet.shet2) E ]Sheet (Sheet3) 3ThsKorkbook 屈世-shee Sheetl Worksheet 按字母序|按分类序 (名称) Sheath DisplayPageBreaks False DisplayRightToLeft False 图00-06:刚打开VBE编辑器时的窗口 可以在“工程资源管理器”"中双击仼一对象打开代码窗口,或者选择菜单“插入- 模块”或“插入——类模块”来打开代码窗口。一般ⅤBE编辑器窗口及各组成部件 名称如图0007所示,可以通过视图”菜单中的菜单项选择所出现的窗口同吋, 可以在“工程属性”窗口中设置或修改相应对象的属性。 标题栏 对象下拉 菜单栏E Microsoft Visual Basic-Book1-[模块1(代码) 文件巴)编辑)视图C)插入)格式包)调试①)运行)工具)外接程 工具栏圖国团|电弟1c|,Bak题冒为 程= VBAProject 通用〕 回回 Option Explieit 工作表对象 日感 YBAProject ookl 日- Micros0 ft Excel对象 电] Sheet1( Sheet1 当前工作簿对象3 一 ThisWorkbook 代码模块_白—顽块 模块1 类模块 白类模块 类1 代码模块窗 工程资源管理器窗口 性-模块1 块1模块 按字母序|按分类序 称)模块1 工程属性窗口 立却窗口 立即窗口 图00-07:VBE编辑器窗口 下面是带有用户窗体的ⅤBE编辑器窗口,如图00-08所示。选择VBE菜单“插 入—用户窗体”,即可插入一个用户窗体。当插入用户窗体后,在“工程资源管 理器”窗山中会出现个用户窗体对象,“工程属性”窗凵显示当前用广窗体的属性, 可对相关属性进行设置或修改。同时,在用户窗体上用鼠标单击,会出现“控件 工具箱”。在“工程资源管理器”窗口双击用户窗体图标,会出现相应的用户窗体; 在用户窗体图标或者是在用户窗体上单击鼠标右键,然后在弹出的菜单中选择 “查看代码”,则会出现用户窗体代码窗口 mIcrosoft Visual Basic-Book1-[UserForml(UserForm)] 文件)铜辑)视图Q)插入〔)格式迎)调试)运行③)工具)外援程序)窗口)帮助 图国团电的|c,a题罗圆 工程- VBAProject UserForm1 ,,,,,,,,,,,,,,,,, : 感 YBAProject (Book 日③ Microsoftκce1对象 电] Sheet1l(het1) 电] Sheet2 (Sheeta Sheet3 [Sheet3) 用户窗体 3]Thishorkbook 警∵: 窗体 警::0单击标右键:选择第单 Fa UserForm1 圆:::致代吗”:最示用体代:: 白模块 模块1 用户窗体对象 口 白类模块 警: (双击显示相应窗体 单击右键并选择菜单 “查看代码”显示代码窗中) 性 UserForm1 x User oral UserForm 按宇母序|按分类序 UserFormI Border Color 8H800000128 BorderStyle 0-imBorderStyleNo 体 Enabled True Font 宋体 recOlor 岛HB0000012 Height 180 HelpContextIDO Ke epScrollBarsvisib1(3- EmScrollBarsBot.即囗 eft Mouselcon one MousePointer 0-fmMousePointerD Picture None) PictureAlignment 2-imPictureAlignm Pictur eSizelMode 0-fmPictureSizeMo PictureTilil False TsT 图00-08:VBE编辑器窗口(带有用户窗体) 在VBE编辑器中输入ⅤBA代码 如前所述,您可以选择VBE菜单“插入——用户窗体/模块/类模块”米插入模块或 用户窗体以相应的代码窗口。此外,您也可以在“工程瓷源管理器”中单击鼠标 右键,从弹岀的菜单中选择插入——用户窗体/模块/类模块”来实现上面的操作。 在获取相应的代码模块窗口后,就可以输入VBA代码了。 在vBE编辑器的代码模块中输入ⅤBA代码,通常有以下几种方法: ■手工键盘输入; 使用宏录制器,即选择菜单“工具——宏——录制新宏”命令,将所进行的操作 自动录制成宏代码; 复制/粘贴代码,即将现有的代码复制后,粘贴到相应的代码模块中; 导入代码模块,即在ⅤBE编辑器中选择菜单“文件——导入文件"”或在“工程资 源管理器"的任一对象上右击鼠标选择菜单“导入文件”,选择相应的代码文件导入 如果不想要某个模块了,可以选择菜单“文件——移除模块”,也可以在相应的模 块上单击鼠标右键,从弹出的菜单中选择移除模块”。此时,会弹出一个警告框, 询问在移除模块前是否将芃导岀,可以根据需要进行选择 也可以选择菜单“文件——导出文件"或在相应的模块上单击鼠标右键后,从弹出 的菜单中选择导出文件”,将移除的模块保存在相应的文件夹中。这样,以后可 以对其进行导入,从而加以利用。 调试VBA代码 在VBE编辑器的菜单中,有两项与调试运行有关的菜单项,即“调试菜单和“运 行”菜单,它们提供了各种调试和运行的手段。在我现阶段进行代码调试时,常 用到的有以下几个 ■逐语句。可以按F8键对代码按顺序一条一条语句运行,从而找出语句或逻辑 错误。 ■设置断点。在可能存在问题的语句处设置断点(可通过在相应代码前的空白部 位单击,将会出现一个深红色的椭圆即断点),当程序运行全断点处时,会中止 运行。 ■在语句的适当部位设置 Debug. Print语句,运行后其结果会显示在“立即窗山” 中,可以此测试或跟踪变量的值 ■在“立即窗凵”中测试。对值的测试或跟踪,也可以以“?”开头,在“立即窗凵” 中输入需要测试值的语句,按 Enter回车键后将立出现结果;对执行语句的测 试,可直接在“立即窗口”中输入,按 Enter回车键后将执行。 ■可以按F5键直接运行光标所在位置的了程序。 在执行程序后,必须在Exce工作表中查看所得到的结果。可以用鼠标单击VB E编辑器左上角的Exce图标或者是按A+F11组合键切换到 Excel界面。 当然,对程序代吗的调试有很多方法和技巧,留待以后对VBA进一步研究和理 解更透彻后一并讨论。) 利用VBA帮助系统 如果遇刭疑问或错误,可以利用 Excel自带的VBA帮助系统。 可以在如图00-09所示的部位输入需要帮助的关键词,按 Enter回车键后将会 出现相关主题。用鼠标单击相应的主题即会出现详细的帮助信息 键入需要相助的题·图00-09:帮助搜索窗凵 可以按F2键,调出“对象浏览器”窗口(如图00-10所示),在搜索文本框中输 入需要帮助的关键词,将会在“搜索结果”中出现一系列相关的对象及方法、属性 列表,单击相应的对象则会在“类”和成员”列表框中显示相应的对象和方法、属 性成员列表,在成员列表中相应的项目上按F1键即会出现详细的帮助信息。(“对 象浏览器"是一个很好的帮助工具,值得好好研究) Microsoft visual Basic-Book1-[对象训览器 艾件)编辑)视图)插入〔)格式)调试①)运行)工具r)外援程序)窗口)帮助 网国·团电」,题图岁为@ 搜索框 程 BAProject 所有库 回国回 工e 4—索按 日題 YBAProject ( Book1) 日 Microsoft Exc1对象 6- Sheet1 (Sheet1) 机A1 owEd trang Excel 电]Shet3(heet3 圈A1 owEdi rAnges M Excel 泡 Protection Ths胃 orkhon I Excel r Winde M Excel AutoCorrect M.Ex PivotField Ml Excel 粵 PivotTable 么 Excel A ListObject n·m人1 P:,A+下k1A A1 LowEditRange的成员 0全局 e ChangePassword AddIns lE- Range 真 djustment 选中某成员 量: Sheet 区德 AllowEd tRange e Unprotect Sheet1 Worksheet M AllowEdi tRances rS Users 密 Anseri zard 即出现相应 按字母序|按分类序 MA AnswerWizardpiles 名称〕 Sheet1 Application A DisplaypageBreaks False 潮 Assistant isplayRi ghtToLeft False M AutoCorrect EnableAutoFilter false 愿 AutoFilter EnableCalculati on True M AutoRecover EnableOutlining False A Aes EnablePivotTable False 潮丸is EnableSelection 0-xINoRestricticns Sheet1 casM1 orEdi飞Kn名e scrollarea Exce1的成员 StandardWidth 8. 38 isible -1-xlSheetvisible 即窗口 图00-10:对象浏览器窗口 参考资料 《 ExceIVBA编程入门范例》参考或引用了以下书籍和资料: (1)Exce2003高级VBA编程宝典 (2)Exce2003与VBA编程从入门到精通(中文版) (3)巧学巧用Exce2003VBA与宏(中文版) (4) ExcelVBA应用程序专业设计实用指南 5) ExcelVBA应用开发与实例精讲 (6)一些网上资源 更多的信息 关于EXceⅣBA的更多参考和学习资源,可以在www.excelhome.net上查找, 有疑问也可以在ExcelHome论坛中提问。您也可以登录我的博客http://faniy.bl og.excelhome net,上面有很多Exce的学习资料。同时,欢迎与我联系交流, 我的ema是: xhdsxfivg@163com。 “学丬 Excel,使用ⅤBA对Exce进行控制操作是我很热衷的业余爱好之一。” -fanny 一章EXce应用程序对象( Application对象)及其常用方法 基本操作应用示例 分类 ExceVBA>> ExcelVBA编程入门范例 Application对象代表整个 Microsoft Exce应用程序,带有175个属性和52个 方沄,可以设置整个应用程序的环境或配置应用程序 示例0101:体验开关屏幕更新( ScreenUpdating属性) Sub关闭屏幕更新0 Msg Box"顺序切换工作表 Sheet1Shee2→Shee3→Shee2,先开启屏幕 更新,然后关闭屏幕更新 Worksheets(1).Select sgBox"日前屏幕中显示工作表 Sheet Application. ScreenUpdating True Worksheets(2).Select MsgBox"显示Shee2了吗?" Worksheets(3).Select MsgBox"显示Shee3了吗? Worksheets(2). Select MsgBox"下面与前面执行的程序代码相同但关闭屏幕更新功能 Worksheets(1).Select Msg Box"目前屏幕中显示工作表Shee&Chr(10)&"关屏屏幕更新功能" Application. ScreenUpdating False Worksheets(2).Select Msg Box"显示 Sheet2了吗?" Worksheets(3).Select Msg Box"显示Shee3了吗?" Worksheets(2). Select Application. ScreenUpdating= True End Sub 小例说明: ScreenUpdating属性用来控制屏幕更新。当运行一个宏程序处理涉 及到多个工作表或单元格中的大量数据时,若没有关闭屏幕更新,则会占用CP U的处理时间,从而降低程序的运行速度,而关闭该属性则可显著提高程序运行 速度。 示例0102:使用状态栏( Status Bar属性) Sub test Status Bar( Application. Display Status Bar=True'开启状态栏显示 赋值状态栏显示的文本 ApplicationStatusbar="http://faniy.blogexcelhome.net End sub 示例说明: StatusBar属性用来指定显示在状态栏上的信息。若不想再显示状态 栏文本,可使用 Application. Status Bar= False语句关闭状态栏显示,也可以在 程序开始将原先的状态栏设置存储,如使用语句 oldstatusBar= Application. Di splayStatusBar将状态栏原来的信息存储在变量 oldStatus Bar,在程序运行完成 或退出时,将变量重新赋值给状态栏,如使用话句 Application Display StatusBa r= oldStatus Bar,以恢复状态栏原状 示例01-03:处理光标( Cursor属性 Sub View Cursors( Application Cursor= XINorthwestArrow Msg Box"您将使用箭头光标,切换到Exce界面查看光标形状 Application Cursor Xll Beam MsgBox"您将使用工形光标切换到Exce界面查看光标形状 Application Cursor XIWait MsgBox"您将使用等待形光标切换到Exce界面查看光标形状 Application. Cursor xlDefault MsgBo"您已将光标恢复为缺省状态" End sub 示例01-04:获取系统信 Sub GetSystemInfoo MsgBox"EXce版本信息为:"& Application Calculation Version MsgBox" Excel当前允许使用的内存为:& Application. MemoryFree MsgBox"xce当前已使用的内存为"& Application. MemoryUsed Msg Box"EXce可以使用的内存为"& Application Memory Tota MsgBox"本机操作系统的名称和版本为:"&App| cation. Operating System MsgBoX"本产品所登记的组织名为"& Application. OrganizationName

...展开详情
试读 82P ExcelVBA编程实例(速成150例)

评论 下载该资源后可以进行评论 1

m0_37691147 很好用的实例
2019-06-03
回复
img

关注 私信 TA的资源

上传资源赚积分,得勋章
    最新推荐
    ExcelVBA编程实例(速成150例) 41积分/C币 立即下载
    1/82
    ExcelVBA编程实例(速成150例)第1页
    ExcelVBA编程实例(速成150例)第2页
    ExcelVBA编程实例(速成150例)第3页
    ExcelVBA编程实例(速成150例)第4页
    ExcelVBA编程实例(速成150例)第5页
    ExcelVBA编程实例(速成150例)第6页
    ExcelVBA编程实例(速成150例)第7页
    ExcelVBA编程实例(速成150例)第8页
    ExcelVBA编程实例(速成150例)第9页
    ExcelVBA编程实例(速成150例)第10页
    ExcelVBA编程实例(速成150例)第11页
    ExcelVBA编程实例(速成150例)第12页
    ExcelVBA编程实例(速成150例)第13页
    ExcelVBA编程实例(速成150例)第14页
    ExcelVBA编程实例(速成150例)第15页
    ExcelVBA编程实例(速成150例)第16页
    ExcelVBA编程实例(速成150例)第17页
    ExcelVBA编程实例(速成150例)第18页
    ExcelVBA编程实例(速成150例)第19页
    ExcelVBA编程实例(速成150例)第20页

    试读已结束,剩余62页未读...

    41积分/C币 立即下载 >