VBA常用技巧代码解析

精品文档 1欢迎下载 VBAVBA 常用技巧代码解析常用技巧代码解析 大家在学习 VBA 的过程中 相信都有收集代码的习惯 我也是 硬盘中藏有许多 VBA 实例 代码 在去年 VBA 精粹 的写作过程中更是在网络上收集了大量的 VBA 资料 这些散布 在各处的代码 实例对学习的帮助很大 但是查找起来很不方便 有时明明知道有某个例 子 就是找不到 因此萌生了将这部分 VBA 资料进行整理的想法 在写作 VBA 精粹 一书时发现使用 Word 的 文档结构图 和 目录 的功能在查找 资料时很方便 便使用 VBA 精粹 的 Word 模板对资料进行了初步整理 计划用半年时间 完成全部内容 目前已完成目录和第一部分内容 弊帚不敢自珍 将整理内容同步发在论 坛上 希望对大家的学习有所帮助 也请大家指出其不足 错误之处 在完成全部内容后 我会将 Word 文档上传 Word 2009 2 10 10 59 上传 下载附件下载附件 99 08 KB 声明声明 上传的附件在上传的附件在 XP Excel2003XP Excel2003 环境中进行过测试 其他版本未经测试 不能保环境中进行过测试 其他版本未经测试 不能保 证代码运行正确 部分代码出自论坛 有些已经找不到链接了 在此一并感谢原作者 在证代码运行正确 部分代码出自论坛 有些已经找不到链接了 在此一并感谢原作者 在 下面的内容中就不一一言明出处了 下面的内容中就不一一言明出处了 本帖最后由 yuanzhuping 于 2010 6 12 16 00 编辑 第第 1 1 部分部分 RangeRange 单元格 对象 单元格 对象 技巧 1 单元格的引用方法 1 1 使用 Range 属性 10 楼 1 2 使用 Cells 属性 11 楼 1 3 使用快捷记号 11 楼 1 4 使用 Offset 属性 12 楼 精品文档 2欢迎下载 1 5 使用 Resize 属性 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 单元格自动进入编辑状态 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 取得单元格中公式的引用单元格 64 楼 13 5 将单元格中的公式转换为数值 64 楼 技巧 14 单元格中的批注 14 1 判断单元格是否存在批注 80 楼 14 2 为单元格添加批注 80 楼 14 3 删除单元格中的批注 80 楼 技巧 15 合并单元格操作 15 1 判断单元格区域是否存在合并单元格 81 楼 15 2 合并单元格时连接每个单元格的文本 82 楼 15 3 合并内容相同的连续单元格 83 楼 精品文档 3欢迎下载 15 4 取消合并单元格时在每个单元格中保留内容 84 楼 技巧 16 高亮显示单元格区域 90 楼 技巧 17 双击被保护单元格时不显示提示消息框 91 楼 技巧 18 重新计算工作表指定区域 92 楼 技巧 19 单元格录入数据后自动保护 94 楼 技巧 20 工作表事件 Target 参数的使用方法 20 1 使用 Address 属性 95 楼 20 2 使用 Column 属性和 Row 属性 95 楼 20 3 使用 Intersect 方法 95 楼 第第 1 1 部分部分 RangeRange 单元格 对象的 单元格 对象的 WordWord 文档和附件文档和附件 97 97 楼楼 第第 2 2 部分部分 WorksheetWorksheet 工作表 对象 工作表 对象 技巧 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 语句 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 楼 第第 2 2 部分部分 WorksheetWorksheet 工作表 对象的 工作表 对象的 WordWord 文档和附件文档和附件 199 199 楼楼 第第 3 3 部分部分 WordbookWordbook 工作簿 对象 工作簿 对象 技巧 40 工作簿的引用方法 40 1 使用工作簿的名称 212 楼 40 2 使用工作簿的索引号 212 楼 40 3 使用 ThisWorkbook 212 楼 精品文档 4欢迎下载 40 4 使用 ActiveWorkbook 212 楼 技巧 41 新建工作簿文件 223 楼 技巧 42 打开指定的工作簿 224 楼 技巧 43 判断指定工作簿是否打开 43 1 遍历 Workbooks 集合方法 225 楼 43 2 错误处理方法 225 楼 技巧 44 禁用宏则关闭工作簿 233 楼 技巧 45 关闭工作簿不显示保存对话框 45 1 使用 Close 方法关闭工作簿 234 楼 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 连接 264 楼 技巧 52 返回窗口的可视区域地址 283 楼 第第 3 3 部分部分 WordbookWordbook 工作簿 对象的 工作簿 对象的 WordWord 文档和附件文档和附件 287 287 楼楼 第第 4 4 部分部分 ShapeShape 图形 图形 ChartChart 图表 对象 图表 对象 技巧 53 在工作表中添加图形 291 楼 技巧 54 导出工作表中的图片 296 楼 技巧 55 在工作表中添加艺术字 302 楼 技巧 56 遍历工作表中的图形 306 楼 技巧 57 移动 旋转图片 311 楼 技巧 58 工作表中自动插入图片 313 楼 技巧 59 固定工作表中图形的位置 317 楼 技巧 60 使用 VBA 自动生成图表 339 楼 技巧 61 使用独立窗口显示图表 345 楼 技巧 62 导出工作表中的图表 350 楼 技巧 63 多图表制作 364 楼 第第 4 4 部分部分 ShapeShape 图形 图形 ChartChart 图表 对象附件及 图表 对象附件及 1 41 4 部分文档部分文档 367 367 楼楼 第第 5 5 部分部分 ApplicationApplication 对象对象 技巧 64 取得 Microsoft Excel 版本信息 368 楼 技巧 65 取得当前用户名称 369 楼 技巧 66 Excel 中的 定时器 370 楼 技巧 67 设置活动打印机的名称 371 楼 精品文档 5欢迎下载 技巧 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 5 部分部分 ApplicationApplication 对象附件及对象附件及 1 51 5 部分文档部分文档 396 396 楼楼 第第 6 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 2 获得单元格区域地址 421 楼 技巧 77 使用对话框 77 1 调用内置的对话框 440 楼 77 2 获取选定文件的文件名 440 楼 77 3 使用 另存为 对话框 440 楼 技巧 78 调用操作系统 关于 对话框 444 楼 第第 6 6 部分部分 使用对话框附件及使用对话框附件及 1 61 6 部分部分 WordWord 文档文档 449 449 楼楼 第第 7 7 部分部分 菜单和工具栏菜单和工具栏 技巧 79 在菜单中添加菜单项 467 楼 技巧 80 在菜单栏指定位置添加菜单 468 楼 技巧 81 屏蔽和删除工作表菜单 476 楼 技巧 82 改变系统菜单的操作 477 楼 技巧 83 定制自己的系统菜单 478 楼 技巧 84 改变菜单按钮图标 489 楼 技巧 85 右键快捷菜单增加菜单项 497 楼 技巧 86 自定义右键快捷菜单 504 楼 技巧 87 使用右键菜单制作数据有效性 505 楼 技巧 88 禁用工作表右键菜单 506 楼 技巧 89 创建自定义工具栏 518 楼 技巧 90 自定义工具栏按钮图标 519 楼 精品文档 6欢迎下载 技巧 91 自定义工作簿图标 520 楼 技巧 92 移除工作表的最小最大化和关闭按钮 530 楼 技巧 93 在工具栏上添加下拉列表框 536 楼 技巧 94 屏蔽工作表的复制功能 537 楼 技巧 95 禁用工具栏的自定义 548 楼 技巧 96 屏蔽所有的命令栏 559 楼 技巧 97 恢复 Excel 的命令栏 560 楼 第第 7 7 部分部分 菜单和工具栏附件及菜单和工具栏附件及 1 71 7 部分部分 WordWord 文档文档 562 562 楼楼 第第 8 8 部分部分 控件与用户窗体控件与用户窗体 技巧 98 限制文本框的输入 568 楼 技巧 99 文本框添加右键快捷菜单 573 楼 技巧 100 文本框回车自动输入 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 楼 技巧 112 允许多项选择的列表框 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 使用 FormControlType 属性遍历图形 734 楼 技巧 120 使微调框最小变动量小于 1 736 楼 技巧 121 不打印工作表中的控件 121 1 设置控件格式 737 楼 精品文档 7欢迎下载 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 使用 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 控件显示层次 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 窗体运行时调整控件大小 977 楼 技巧 148 在用户窗体上添加菜单 987 楼 技巧 149 在用户窗体上添加工具栏 994 楼 技巧 150 使用代码添加窗体及控件 1009 楼 1 81 8 部分的部分的 WordWord 文档和附件文档和附件 1014 1014 楼楼 精品文档 8欢迎下载 技巧 151 用户窗体的全屏显示 151 1 设置用户窗体为应用程序的大小 1095 楼 151 2 根据屏幕分辨率进行设置 1095 楼 技巧 152 在用户窗体上添加状态栏 1112 楼 第第 9 9 部分部分 函数的使用函数的使用 技巧 153 调用工作表函数求和 1117 楼 技巧 154 查找最大 最小值 1122 楼 技巧 155 不重复值的录入 1131 楼 技巧 156 获得当月的最后一天 1135 楼 技巧 157 四舍五入运算 157 1 极小值修正法 1144 楼 157 2 调用工作表函数法 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 91 9 部分部分 WordWord 文档及附件文档及附件 1272 1272 楼楼 第第 1010 部分部分 文件操作文件操作 技巧 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 楼 技巧 179 搜索特定的文件 1359 楼 精品文档 9欢迎下载 技巧 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 101 10 部分部分 WordWord 文档及附件文档及附件 1399 1399 楼楼 第第 1111 部分部分 其他应用其他应用 技巧 181 取得电脑名称 1423 楼 技巧 182 取得逻辑盘序列号 1425 楼 技巧 183 使用 API 取得硬盘信息 1426 楼 技巧 184 使用数字签名 1427 楼 技巧 185 暂停代码的运行 1437 楼 技巧 186 定时关机 1444 楼 技巧 187 打开指定的网页 1445 楼 技巧 188 VBE 的操作 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 使用 With 语句引用对象 1522 楼 190 5 少用激活或选择语句 1523 楼 技巧 191 取得文件的基本名称 1526 楼 技巧 192 防止用户中断代码运行 1542 楼 技巧 193 加班费计算表 1582 楼 技巧 194 制作发放条 1595 楼 技巧 195 费用统计表 1598 楼 技巧 196 职工花名册 1588 楼 技巧 197 收据系统 1642 楼 技巧 198 职工考勤系统 1967 楼 精品文档 10欢迎下载 精品文档 11欢迎下载 2009 9 72009 9 7 更新更新 文档 请下载完全部压缩文件后一起解压缩 文档 请下载完全部压缩文件后一起解压缩 VBA 常用技巧 part01 rar 1 91 1 91 MB MB 下载次数下载次数 128801 128801 VBA 常用技巧 part02 rar 1 91 1 91 MB MB 下载次数下载次数 118682 118682 VBA 常用技巧 part03 rar 1 91 1 91 MB MB 下载次数下载次数 122238 122238 VBA 常用技巧 part04 rar 1 91 1 91 MB MB 下载次数下载次数 119909 119909 VBA 常用技巧 part05 rar 1 91 1 91 MB MB 下载次数下载次数 117428 117428 VBA 常用技巧 part06 rar 768 18 768 18 KB KB 下载次数下载次数 94109 94109 附件 请下载完全部压缩文件后一起解压缩 附件 请下载完全部压缩文件后一起解压缩 示例文件 part01 rar 1 91 1 91 MB MB 下载次数下载次数 9379 9379 示例文件 part02 rar 1 91 1 91 MB MB 下载次数下载次数 57993 57993 示例文件 part03 rar 1 91 1 91 MB MB 下载次数下载次数 51028 51028 示例文件 part04 rar 1 4 1 4 MB MB 下载次数下载次数 48475 48475 鉴于示例文件鉴于示例文件 1 1 经常出错导致不能下载 请大家到此处下经常出错导致不能下载 请