VBA常用技巧代码解析.doc

《VBA常用技巧代码解析.doc》由会员分享，可在线阅读，更多相关《VBA常用技巧代码解析.doc（28页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、VBA常用技巧代码解析大家在学习VBA的过程中，相信都有收集代码的习惯，我也是，硬盘中藏有许多VBA实例、代码，在去年VBA精粹的写作过程中更是在网络上收集了大量的VBA资料。这些散布在各处的代码、实例对学习的帮助很大，但是查找起来很不方便，有时明明知道有某个例子，就是找不到，因此萌生了将这部分VBA资料进行整理的想法。 在写作VBA精粹一书时发现使用Word的文档结构图和目录的功能在查找资料时很方便，便使用VBA精粹的Word模板对资料进行了初步整理，计划用半年时间完成全部内容，目前已完成目录和第一部分内容，弊帚不敢自珍，将整理内容同步发在论坛上，希望对大家的学习有所帮助，也请大家指出其不足

2、、错误之处。在完成全部内容后我会将Word文档上传。2009-2-10 10:59 上传下载附件(99.08 KB) 声明 上传的附件在XP+Excel2003环境中进行过测试，其他版本未经测试，不能保证代码运行正确。部分代码出自论坛，有些已经找不到链接了，在此一并感谢原作者，在下面的内容中就不一一言明出处了。本帖最后由 yuanzhuping 于 2010-6-12 16:00 编辑第1部分Range（单元格）对象技巧1单元格的引用方法1-1 使用Range属性-10楼1-2 使用Cells属性-11楼1-3 使用快捷记号-11楼1-4 使用Offset属性-12楼1-5 使用Resize属

3、性-13楼1-6 使用Union方法-14楼1-7 使用UsedRange属性-15楼1-8 使用CurrentRegion属性-16楼技巧2 选定单元格区域的方法2-1 使用Select方法-19楼2-2 使用Activate方法-20楼2-3 使用Goto方法-21楼技巧3获得指定行、列中的最后一个非空单元格-22楼技巧4定位单元格-26楼技巧5查找单元格5-1 使用Find方法-33楼5-2 使用Like运算符-34楼技巧6 替换单元格内字符串-36楼技巧7复制单元格区域-37楼技巧8仅复制数值到另一区域8-1 使用选择性粘贴-41楼8-2 直接赋值的方法-41楼技巧9 单元格自动进入编

4、辑状态-43楼技巧10禁用单元格拖放功能-44楼技巧11单元格格式操作11-1 单元格字体格式设置-48楼11-2 设置单元格内部格式-49楼11-3 为单元格区域添加边框-52楼11-4 灵活设置单元格的行高列宽-53楼技巧12单元格中的数据有效性12-1 在单元格中建立数据有效性-62楼12-2 判断单元格是否存在数据有效性-62楼12-3 动态的数据有效性-62楼12-4 自动展开数据有效性下拉列表-62楼技巧13单元格中的公式13-1 在单元格中写入公式-64楼13-2 检查单元格是否含有公式-64楼13-3 判断单元格公式是否存在错误-64楼13-4 取得单元格中公式的引用单元格-6

5、4楼13-5 将单元格中的公式转换为数值-64楼技巧14单元格中的批注14-1 判断单元格是否存在批注-80楼14-2 为单元格添加批注-80楼14-3 删除单元格中的批注-80楼技巧15合并单元格操作15-1 判断单元格区域是否存在合并单元格-81楼15-2 合并单元格时连接每个单元格的文本-82楼15-3 合并内容相同的连续单元格-83楼15-4 取消合并单元格时在每个单元格中保留内容-84楼技巧16高亮显示单元格区域-90楼技巧17 双击被保护单元格时不显示提示消息框-91楼技巧18重新计算工作表指定区域-92楼技巧19单元格录入数据后自动保护-94楼技巧20工作表事件Target参数的

6、使用方法20-1 使用Address 属性-95楼20-2 使用Column属性和Row属性-95楼20-3 使用Intersect方法-95楼第1部分Range（单元格）对象的Word文档和附件-97楼第2部分Worksheet（工作表）对象技巧21 引用工作表的方式21-1 使用工作表的名称-103楼21-2 使用工作表的索引号-103楼21-3 使用工作表的代码名称-103楼21-4 使用ActiveSheet属性引用活动工作表-103楼技巧22选择工作表的方法-110楼技巧23遍历工作表的方法23-1 使用For.Next 语句-113楼23-2 使用For Each.Next 语句-

7、125楼技巧24在工作表中上下翻页-126楼技巧25工作表的添加与删除-144楼技巧26禁止删除指定工作表-146楼技巧27自动建立工作表目录-147楼技巧28工作表的深度隐藏-153楼技巧29防止更改工作表的名称-154楼技巧30工作表中一次插入多行-156楼技巧31删除工作表中的空行-157楼技巧32删除工作表的重复行-161楼技巧33定位删除特定内容所在的行-162楼技巧34判断是否选中整行-163楼技巧35限制工作表的滚动区域-167楼技巧36复制自动筛选后的数据区域-170楼技巧37使用高级筛选获得不重复记录-171楼技巧38工作表的保护与解除保护-174楼技巧39奇偶页打印-198

8、楼第2部分Worksheet（工作表）对象的Word文档和附件-199楼第3部分Wordbook（工作簿）对象技巧40工作簿的引用方法40-1 使用工作簿的名称-212楼40-2 使用工作簿的索引号-212楼40-3 使用ThisWorkbook-212楼40-4 使用ActiveWorkbook-212楼技巧41新建工作簿文件-223楼技巧42打开指定的工作簿-224楼技巧43判断指定工作簿是否打开43-1 遍历Workbooks集合方法-225楼43-2 错误处理方法-225楼技巧44禁用宏则关闭工作簿-233楼技巧45关闭工作簿不显示保存对话框45-1 使用Close方法关闭工作簿-23

9、4楼45-2 单击工作簿关闭按钮关闭工作簿-234楼技巧46禁用工作簿的关闭按钮-235楼技巧47保存工作簿的方法47-1 使用Save方法-246楼47-2 直接保存为另一文件名-246楼47-3 保存工作簿副本-246楼技巧48保存指定工作表为工作簿文件-247楼技巧49打印预览时不触发事件-251楼技巧50设置工作簿文档属性信息-253楼技巧51不打开工作簿取得其他工作簿数据51-1 使用公式-264楼51-2 使用GetObject函数-264楼51-3 隐藏Application对象-264楼51-4 使用ExecuteExcel4Macro方法-264楼51-5 使用SQL连接-2

10、64楼技巧52返回窗口的可视区域地址-283楼第3部分Wordbook（工作簿）对象的Word文档和附件-287楼第4部分Shape（图形）、Chart（图表）对象技巧53在工作表中添加图形-291楼技巧54导出工作表中的图片-296楼技巧55在工作表中添加艺术字-302楼技巧56遍历工作表中的图形-306楼技巧57移动、旋转图片-311楼技巧58工作表中自动插入图片-313楼技巧59固定工作表中图形的位置-317楼技巧60使用VBA自动生成图表-339楼技巧61使用独立窗口显示图表-345楼技巧62导出工作表中的图表-350楼技巧63多图表制作-364楼第4部分 Shape（图形）、Char

11、t（图表）对象附件及1-4部分文档-367楼第5部分Application对象技巧64取得Microsoft Excel版本信息-368楼技巧65取得当前用户名称-369楼技巧66Excel中的“定时器”-370楼技巧67设置活动打印机的名称-371楼技巧68屏蔽、改变组合键的功能-378楼技巧69设置Excel窗口标题栏-386楼技巧70自定义Excel状态栏-387楼技巧71灵活退出Excel-393楼技巧72隐藏Excel主窗口72-1 设置Application对象的Visible属性-395楼72-2 将窗口移出屏幕-395楼72-3 设置工作簿作为加载宏运行-395楼第5部分 Ap

12、plication对象附件及1-5部分文档-396楼第6部分使用对话框技巧73使用Msgbox函数73-1 显示简单的提示信息-409楼73-2 定制个性化的消息框-409楼73-3 获得消息框的返回值-409楼73-4 在消息框中排版-409楼73-5 对齐消息框中显示的信息-409楼技巧74自动关闭的消息框74-1 使用WshShell.Popup方法显示消息框-411楼74-2 使用API函数显示消息框-411楼技巧75使用InputBox函数75-1 简单的数据输入-413楼75-2 使用对话框输入密码-413楼技巧76使用InputBox方法76-1 输入指定类型的数据-421楼76

13、-2 获得单元格区域地址-421楼技巧77使用对话框77-1 调用内置的对话框-440楼77-2 获取选定文件的文件名-440楼77-3 使用“另存为”对话框-440楼技巧78调用操作系统“关于”对话框-444楼第6部分 使用对话框附件及1-6部分Word文档-449楼第7部分 菜单和工具栏技巧79在菜单中添加菜单项-467楼技巧80在菜单栏指定位置添加菜单-468楼技巧81屏蔽和删除工作表菜单-476楼技巧82改变系统菜单的操作-477楼技巧83定制自己的系统菜单-478楼技巧84改变菜单按钮图标-489楼技巧85右键快捷菜单增加菜单项-497楼技巧86自定义右键快捷菜单-504楼技巧87使

14、用右键菜单制作数据有效性-505楼技巧88禁用工作表右键菜单-506楼技巧89创建自定义工具栏-518楼技巧90自定义工具栏按钮图标-519楼技巧91自定义工作簿图标-520楼技巧92移除工作表的最小最大化和关闭按钮-530楼技巧93在工具栏上添加下拉列表框-536楼技巧94屏蔽工作表的复制功能-537楼技巧95禁用工具栏的自定义-548楼技巧96屏蔽所有的命令栏-559楼技巧97恢复Excel的命令栏-560楼第7部分 菜单和工具栏附件及1-7部分Word文档-562楼第8部分 控件与用户窗体技巧98限制文本框的输入-568楼技巧99文本框添加右键快捷菜单-573楼技巧100文本框回车自动输

15、入-581楼技巧101自动选择文本框内容-582楼技巧102设置文本框数据格式-583楼技巧103限制文本框的输入长度-584楼技巧104将光标返回文本框中-619楼技巧105文本框的自动换行-620楼技巧106多个文本框数据相加-629楼技巧107控件跟随活动单元格-630楼技巧108高亮显示按钮-634楼技巧109组合框和列表框添加列表项的方法109-1 使用RowSource属性添加列表项-638楼109-2 使用List属性添加列表项-639楼109-3 使用AddItem方法添加列表项-640楼技巧110去除列表框数据源的重复值和空格-642楼技巧111移动列表框条目-642楼技巧1

16、12允许多项选择的列表框-643楼技巧113多列组合框和列表框的设置113-1 多列组合框和列表框添加列表项-646楼113-2 多列列表框写入工作表-647楼技巧114 输入时逐步提示信息-679楼技巧115二级组合框-694楼技巧116使用DTP控件输入日期-698楼技巧117使用RefEdit控件选择区域-707楼技巧118如何注册控件-723楼技巧119遍历控件的方法119-1 使用名称中的变量遍历控件-730楼119-2 使用对象类型遍历控件-731楼119-3 使用程序标识符遍历控件-732楼119-4 使用名称中的变量遍历图形-733楼119-5 使用FormControlTyp

17、e属性遍历图形-734楼技巧120使微调框最小变动量小于1-736楼技巧121不打印工作表中的控件121-1 设置控件格式-737楼121-2 设置控件的printobjcet属性-737楼技巧122在框架中使用滚动条-750楼技巧123使用多页控件-757楼技巧124标签文字垂直居中对齐-774楼技巧125使用TabStrip控件-791楼技巧126显示GIF动画图片-803楼技巧127播放Flash文件-804楼技巧128在工作表中添加窗体控件128-1 使用AddFormControl方法-844楼128-2 使用Add方法-844楼技巧129在工作表中添加ActiveX控件129-1

18、使用Add方法-854楼129-2 使用AddOLEObject方法-854楼技巧130使用spreadsheet控件-865楼技巧131使用Listview控件131-1 使用Listview控件显示数据列表-876楼131-2 在Listview控件中使用复选框-887楼131-3 调整Listview控件的行距-892楼131-4 在Listview控件中排序-901楼131-5 Listview控件的图标设置-908楼技巧132调用非模式窗体-925楼技巧133进度条的制作133-1 使用进度条控件-926楼133-2 使用标签控件-927楼技巧134使用TreeView控件显示层次-

19、931楼技巧135用户窗体添加图标-937楼技巧136用户窗体添加最大最小化按纽-938楼技巧137禁用窗体标题栏的关闭按钮-939楼技巧138屏蔽窗体标题栏的关闭按钮-947楼技巧139无标题栏和边框的窗体-948楼技巧140制作年月选择窗体-950楼技巧141自定义窗体中的鼠标指针类型-951楼技巧142调整窗体的显示位置-959楼技巧143由鼠标确定窗体显示位-960楼技巧144用户窗体的打印-962楼技巧145使用自定义颜色设置窗体颜色-963楼技巧146在窗体中显示图表146-1 使用Export方法-974楼146-2 使用API函数-974楼技巧147窗体运行时调整控件大小-97

20、7楼技巧148在用户窗体上添加菜单-987楼技巧149在用户窗体上添加工具栏-994楼技巧150 使用代码添加窗体及控件-1009楼1_8部分的Word文档和附件-1014楼技巧151用户窗体的全屏显示 151-1 设置用户窗体为应用程序的大小-1095楼 151-2 根据屏幕分辨率进行设置-1095楼技巧152在用户窗体上添加状态栏-1112楼第9部分 函数的使用技巧153调用工作表函数求和-1117楼技巧154查找最大、最小值-1122楼技巧155不重复值的录入-1131楼技巧156获得当月的最后一天-1135楼技巧157 四舍五入运算157-1 极小值修正法-1144楼157-2 调用工

21、作表函数法-1144楼技巧158使用字符串函数-1148楼技巧159使用日期函数-1153楼技巧160判断是否为数值-1194楼技巧161格式化数值、日期和时间-1200楼技巧162计算个人所得税-1205楼技巧163人民币大写函数-1215楼技巧164列号转换为列标-1217楼技巧165判断工作表是否为空表-1238楼技巧166查找指定工作表-1240楼技巧167查找指定工作簿是否打开-1242楼技巧168取得应用程序的安装路径-1253楼技巧169数组的使用169-1 代码运行时创建数组-1271楼169-2 文本转换为数组-1271楼169-3 使用动态数组去除重复值-1271楼1-9部

22、分Word文档及附件-1272楼第10部分 文件操作技巧170 导入文本文件170-1 使用查询表导入-1290楼170-2 使用Open 语句导入-1290楼170-3 使用OpenText方法-1290楼技巧171将数据写入文本文件171-1 使用Print # 语句-1292楼171-2 另存为文本文件-1292楼技巧172文件修改的日期和时间-1309楼技巧173查找文件或文件夹-1321楼技巧174获得当前文件夹的名称-1326楼技巧175创建和删除文件夹-1339楼技巧176重命名文件或文件夹-1340楼技巧177复制指定的文件-1353楼技巧178 删除指定的文件-1357楼技巧

23、179搜索特定的文件-1359楼技巧180使用WSH处理文件180-1 获取文件信息-1373楼180-2 查找文件-1374楼180-3 移动文件-1375楼180-4 复制文件-1376楼180-5 删除文件-1377楼180-6 创建文件夹-1378楼180-7 复制文件夹-1379楼180-8 移动文件夹-1383楼180-9 删除文件夹-1384楼180-10 导入文本文件-1388楼180-11 创建文本文件-1396楼1-10部分Word文档及附件-1399楼第11部分 其他应用技巧181取得电脑名称-1423楼技巧182取得逻辑盘序列号-1425楼技巧183使用API取得硬盘信

24、息-1426楼技巧184使用数字签名-1427楼技巧185暂停代码的运行-1437楼技巧186定时关机-1444楼技巧187打开指定的网页-1445楼技巧188VBE的操作 188-1 添加模块和过程-1463楼 188-2 建立事件过程-1464楼 188-3 模块的导入与导出-1479楼 188-4 删除宏代码-1499楼技巧189保护VBA代码 189-1 设置工程密码-1510楼 189-2 设置“工程不可查看”-1510楼技巧190优化代码 190-1 关闭屏幕刷新-1515楼 190-2 使用工作表函数-1516楼 190-3 使用更快的单元格操作方法-1518楼 190-4 使用

25、With语句引用对象-1522楼 190-5 少用激活或选择语句-1523楼技巧191取得文件的基本名称-1526楼技巧192防止用户中断代码运行-1542楼技巧193加班费计算表-1582楼技巧194制作发放条-1595楼技巧195费用统计表-1598楼技巧196职工花名册-1588楼技巧197 收据系统-1642楼技巧198职工考勤系统-1967楼2009-9-7 更新文档，请下载完全部压缩文件后一起解压缩。VBA常用技巧.part01.rar(1.91 MB, 下载次数: 128801)VBA常用技巧.part02.rar(1.91 MB, 下载次数: 118682)VBA常用技巧.pa

26、rt03.rar(1.91 MB, 下载次数: 122238)VBA常用技巧.part04.rar(1.91 MB, 下载次数: 119909)VBA常用技巧.part05.rar(1.91 MB, 下载次数: 117428)VBA常用技巧.part06.rar(768.18 KB, 下载次数: 94109)附件，请下载完全部压缩文件后一起解压缩。示例文件.part01.rar(1.91 MB, 下载次数: 9379)示例文件.part02.rar(1.91 MB, 下载次数: 57993)示例文件.part03.rar(1.91 MB, 下载次数: 51028)示例文件.part04.rar

27、(1.4 MB, 下载次数: 48475)鉴于示例文件1经常出错导致不能下载，请大家到此处下载：感谢ybzdexcel 兄整理制作了电子书，请到 . p;page=1#pid3482982下载根据此贴内容并以2007版本重新整理的Excel VBA 常用代码实战大全一书已由北京工业出版社出版，喜欢纸质书的朋友可去新华书店或各大网站订购。（呵呵，做个小小广告）第1部分Range（单元格）对象Range对象是Excel应用程序中最常用的对象，一个Range对象代表一个单元格、一行、一列、包含一个或者更多单元格区域（可以是连续的单元格，也可以是不连续的单元格）中选定的单元格，甚至是多个工作表上的一组

28、单元格，在操作Excel 内的任何区域之前都需要将其表示为一个Range对象，然后使用该Range对象的方法和属性。技巧1 单元格的引用方法 在VBA中经常需要引用单元格或单元格区域区域，主要有以下几种方法。1-1 使用Range属性 VBA中可以使用Range属性返回单元格或单元格区域，如下面的代码所示。普通浏览复制代码1. #001SubRngSelect()2. #002Sheet1.Range(A3:F6,B1:C5).Select3. #003EndSub代码解析： RangeSelect过程使用Select方法选中A3:F6，B1:C5单元格区域。 Range属性返回一个Range

29、对象，该对象代表一个单元格或单元格区域，语法如下：Range(Cell1, Cell2) 参数Cell1是必需的，必须为 A1 样式引用的宏语言，可包括区域操作符（冒号）、相交区域操作符（空格）或合并区域操作符（逗号）。也可包括美元符号（即绝对地址，如“$A$1”）。可在区域中任一部分使用局部定义名称，如Range(B2:LastCell)，其中LastCell为已定义的单元格区域名称。 参数Cell2是可选的，区域左上角和右下角的单元格。 运行RangeSelect过程，选中A3:F6, B1:C5单元格区域，如图所示。28 。 ，区 , ，/ 元角和角 析码技 - . 区的 / 参 名区

30、元义 ， : ( /称 义使一 域可。$ “，绝 符美包） 逗-操合）空 域 相、符操包言的式 为，必 ( ：法域元格单表对象 一 区元: 习 法 的程 ， 信：析收 的 .我 :， 中 有多 ) 代代，制示码年的如区 或单返 的使写中 程 用 转传，用学 仅载 件文 。 将后成在误、出大请所学大希上在步理珍不弊内一录成，容全年用计步了对 粹 ，很料找的结文 用现书粹 写 想理料资分将萌到找子个有时，不找查大助对实的各布。 的大收网 几有，域元格 上 : -用引 中 用引单 : 属方象 ) 件载 _ 数载 = = / ./该用象 为表上要之的区任 在 在，+一上 个至格的 选元续 不以元中续是

31、行域区多试或包列一版、一代经 试一的常序用证 象码 对格（确 。分第）代小，呵订论大或，新可书已欢，版业到北书全了战代 此 的感新重0并者贴，据载 的 #容 .一 /.出 处 : 帖 _后 = 0 于 . / 0，电编作理 感 0 /00 / . / _ . / / ：下到，能不常件示 载 0 件例 _ % 0 & . . / ) :下, ( . .例 _ % 0 ? / /: :载, 0 件文 0 0 = = / ) :载 ( .例 0 = . 压起文压载请) 载, .用 _ % =& ? . . / 数, . .（技 ） 对 / . : 0 :下 ( .常 = . . . : 数载, .

32、常 % =& /. . / 载, 楼 -件文 象格（ 分第 _ & = / : -法 _ =?. . : 楼-属 属 使 =& . /. / -属 用 _ 0 . / 使数 表作 技 _ = . / 楼-保后入元 _ 0 = /. 区表工新 _ & /. 息示不格保击 技 0= ? / 楼-域元显高 巧 _ / . / 楼-保元每格元消 ? / / 元连同并 _ / / 楼-本格单连元单- 00 & . / -格合否是单判 = . . / 作格合技 _ . 楼-的格删 _ = = . / 0批加为 - & ?. /. ./ 楼注存元判- _ 0 & ? . : 批元巧 & . . ./ -数为

33、公元将 _ = & ? 楼-格的中格得 _ = & ?. . . / 在存格断判 - _ & / 楼-式有格元 - ? . : -式公元单 = = . . / 公格 技 = . / 楼 拉效据动 ? . / / 楼-性有的 - ? / / -性据数是断 = . . : 据建元单 _ = & . . / 有中单 技 ?. . . / 楼 高格单活 _ . . /: -边加元单 _ = . . / 部元设 - & . /. /: 格元单 _ = / / 作格 技 _ = =? : -拖单用 技 = / 楼-辑动自 0 & ? . 方的直 = . / / -择选 _ = & = . . 域另数复 技 _ ? . / -格制 = ? / . : -字单替技 = = . : 运 使 0 & ? . . . / - & . / 单查