Excel VBA典型实例大全:通过368个例子掌握

第1章 宏的应用技巧
宏是一个VBA程序，通过宏可以完成枯燥的、频繁的重复性工作。本章的实例分别介绍在Excel 2003、Excel 2007中录制宏、使用Visual Basic代码创建宏的方法，最后还以实例演示运行宏和编辑宏的方法。
1.1 创建宏 1
例001 在Excel 2003中录制宏 1
例002 打开Excel 2007的录制宏功能 3
例003 在Excel 2007中录制宏 4
例004 使用Visual Basic创建宏 5
1.2 管理宏 6
例005 运行宏 7
例006 编辑宏 8
第2章 VBE使用技巧
VBE（Visual Basic Editor）是编写VBA代码的工具，在上一章中曾使用VBE编辑宏代码。本章的实例介绍了设置VBE操作环境、在VBE中管理工程代码、使用VBE的辅助工具提高代码输入效率等方法。
2.1 设置VBE操作环境 10
例007 停靠VBE子窗口 10
例008 定制VBE环境 12
2.2 工程管理 13
例009 增加模块 13
例010 删除模块 15
例011 导出模块 16
例012 导入模块 17
2.3 管理代码 18
例013 属性/方法列表 18
例014 常数列表 19
例015 参数信息 20
例016 自动完成关键字 21
第3章 程序控制流程技巧
结构化程序设计中使用的基本控制结构有3种：顺序结构、选择结构和循环结构。
本章以实例演示了VBA中这三种控制结构的控制语句，最后还介绍了在VBA中使用数组的方法。
3.1 常用输入/输出语句 23
例017 九九乘法表（Print方法的应用） 23
例018 输入个人信息（Inputbox函数的应用） 24
例019 退出确认（Msgbox函数的应用） 25
3.2 分支结构 27
例020 突出显示不及格学生 27
例021 从身份证号码中提取性别 29
例022 评定成绩等级 30
例023 计算个人所得税 32
3.3 循环结构 34
例024 密码验证 34
例025 求最小公倍数和最大公约数 36
例026 输出ASCII码表 37
例027 计算选中区域数值之和 39
例028 换零钱法（多重循环） 40
3.4 使用数组 42
例029 数据排序 42
例030 彩票幸运号码 44
例031 用数组填充单元格区域 46
第4章 Range对象操作技巧
用户在使用Excel时，大部分时间都是在操作单元格中的数据，同样地，在Excel中使用VBA编程时，也需要频繁地引用单元格区域。本章实例介绍用VBA引用单元格、获取单元格信息、操作单元格数据、设置单元格格式等内容。
4.1 获取单元格的引用 48
例032 使用A1样式引用单元格 48
例033 使用索引号引用单元格 49
例034 引用多个单元格区域 50
例035 合并单元格区域 51
例036 引用合并区域的子区域 52
例037 动态选中单元格区域 53
例038 引用相对其他单元格的单元格 54
例039 扩展单元格区域 55
例040 引用单元格交叉区域 56
例041 引用当前区域 57
例042 获取已使用区域 58
例043 引用区域内的单元格 59
例044 设置标题行格式 61
例045 选取条件格式单元格 62
例046 选择数据列末单元格 63
例047 获取某列连续数据区域 64
例048 获取多个不同长度的非连续列 65
例049 当前单元格的前后单元格 65
例050 获取三维区域 66
4.2 获取单元格信息 67
例051 获取标题行和数据行 67
例052 获取当前区域信息 68
例053 单元格区域是否有公式 69
例054 追踪公式单元格 70
例055 获取单元格地址 71
4.3 操作单元格 72
例056 合并相同值单元格 72
例057 删除指定字符后的内容 73
例058 给单元格设置错误值 75
例059 活动单元格错误类型 76
例060 自动设置打印区域 77
例061 按设置长度换行 77
例062 选择不含公式的单元格 79
例063 生成不重复随机数 80
例064 拆分单元格 82
例065 添加超链接 83
例066 删除超链接 84
例067 限制单元格移动范围 85
例068 插入批注 86
例069 隐藏/显示批注 87
例070 删除批注 87
例071 复制单元格区域 88
例072 给单元格设置公式 90
例073 复制公式 90
例074 查找并填充空白单元格 91
例075 清除单元格 92
例076 删除单元格区域 93
4.4 设置单元格格式 94
例077 按颜色统计单元格数量 94
例078 获取单元格底纹和图案 95
例079 设置页眉为单元格值 96
例080 设置日期格式 97
例081 生成大写金额 98
例082 格式化当前区域的数据 100
例083 设置自动套用格式 101
例084 突出显示当前位置 101
例085 设置边框线 103
例086 设置文本对齐格式 104
例087 单元格文本缩排 105
例088 设置文本方向 107
例089 设置自动换行格式 108
例090 设置缩小字体填充 108
例091 设置条件格式 109
例092 设置单元格图案 111
例093 合并单元格 112
第5章 Worksheet对象操作技巧
Worksheet对象表示Excel工作簿中的工作表，Worksheet对象是Worksheets集合的成员。在VBA中，通过操作Worksheet对象和Worksheets集合对象，即可控制Excel的工作表。本章实例介绍了用VBA代码操作工作表、操作工作表行和列、通过工作表事件控制工作表等内容。
5.1 控制工作表集合 114
例094 增加工作表 114
例095 窗体方式新增工作表 115
例096 窗体方式删除工作表 118
例097 批量新建工作表 119
例098 获取工作表数 120
例099 循环激活工作表 121
例100 选择工作表 121
例101 选取前一个工作表/后一个工作表 122
例102 选中工作表的名称 123
例103 保护工作表 124
例104 撤销工作表的保护 126
例105 判断工作表是否存在 127
例106 工作表排序 129
例107 复制工作表 130
例108 移动工作表 131
例109 删除工作表 132
例110 删除空工作表 133
例111 密码控制删除工作表 134
例112 隐藏/显示工作表 135
例113 工作表移至最前/最后 136
例114 工作表打印页数 137
例115 重命名工作表 138
例116 设置工作表标签颜色 140
例117 导出工作表 141
5.2 操作工作表的行和列 144
例118 删除空行 144
例119 插入行 145
例120 插入多行 146
例121 插入列 147
例122 隐藏/显示行 148
例123 隐藏/显示列 149
例124 设置行高 149
例125 设置列宽 151
5.3 操作工作表 152
例126 合并工作表数据 152
例127 工作表是否被保护 153
例128 制作工作表目录 154
例129 删除图片 155
例130 修改工作表的代码名 156
5.4 控制工作表事件 158
例131 为输入数据的单元格添加批注 158
例132 自动填充相同值 159
例133 记录同一单元格多次输入值 160
例134 禁止选中某个区域 161
例135 禁止输入相同数据 162
例136 设置滚动区域 163
例137 自动添加边框线 164
例138 限制在数据区域下一行输入数据 165
例139 增加快捷菜单 166
例140 限制选择其他工作表 168
例141 自动隐藏工作表 169
例142 将原数据作批注 170
例143 输入编码 171
第6章 Workbook对象操作技巧
Workbook对象表示Excel工作簿，Workbooks集合对象表示Excel中所有打开的工作簿。本章实例介绍VBA控制工作簿的方法，包括对工作簿集合和工作簿的操作、通过工作簿事件控制工作簿的操作。
6.1 操作工作簿集合 173
例144 批量新建工作簿 173
例145 设置背景音乐 174
例146 打开工作簿 176
例147 保存工作簿 177
例148 更名保存工作簿 178
例149 将工作簿保存为Web页 180
例150 打开文本文件 181
例151 设置工作簿密码 182
例152 保护工作簿 184
例153 查看文档属性 185
例154 处理命名单元格区域 187
例155 判断工作簿是否存在 190
例156 判断工作簿是否打开 191
例157 备份工作簿 192
例158 获取关闭工作簿中的值（方法1） 194
例159 获取关闭工作簿中的值（方法2） 196
例160 多工作簿数据合并 197
6.2 控制工作簿事件 199
例161 自动打开关联工作簿 199
例162 禁止拖动单元格 200
例163 设置新增工作表为固定名称 201
例164 退出前强制保存工作簿 202
例165 限制打印 203
例166 限制保存工作簿 204
例167 限制工作簿使用次数 205
例168 限制工作簿使用时间 207
例169 设置应用程序标题 207
例170 根据密码打开工作簿 209
例171 打开工作簿禁用宏 210
例172 用VBA删除宏代码 212
第7章 Application对象操作技巧
Application对象代表整个Excel应用程序，使用Application对象可控制应用程序范围的设置和选项。本章实例介绍使用VBA，通过Application对象自定义Excel外观、设置Excel操作选项、控制Excel应用程序，以及通过Application对象的OnTime方法和OnKey方法响应用户操作的内容。
7.1 自定义Excel外观 214
例173 显示/关闭编辑栏 214
例174 设置状态栏 215
例175 控制鼠标指针形状 217
例176 全屏幕显示 218
例177 最大化Excel窗口 219
例178 查询计算机信息 219
7.2 设置Excel操作选项 220
例179 关闭屏幕刷新 220
例180 禁止弹出警告信息 222
例181 复制/剪切模式 223
例182 获取系统路径 224
7.3 控制应用程序 225
例183 激活Microsoft应用程序 225
例184 控制最近使用文档 226
例185 文件选择器 228
例186 快速跳转 230
例187 激活Excel 2007的功能区选项卡 232
7.4 Application对象事件处理 234
例188 工作表上显示时钟 234
例189 整点报时 235
例190 自定义功能键 236
第8章 Window对象操作技巧
Window对象代表一个窗口，许多工作表特征（如滚动条和标尺）实际上是窗口的属性。本章实例介绍用VBA控制窗口的方法，包括通过Window对象的属性和方法创建、拆分窗口、设置窗口大小、显示比例、控制窗口显示状态等。
8.1 控制窗口 238
例191 创建窗口 238
例192 调整窗口大小 239
例193 获取窗口状态 242
例194 拆分窗格 243
例195 并排比较窗口 244
例196 排列窗口 245
例197 窗口显示比例 246
8.2 控制工作表的显示选项 248
例198 工作簿显示选项 248
例199 工作表显示选项 249
例200 工作表网格线 250
例201 获取指定窗口选中的信息 252
第9章 Chart对象操作技巧
在Excel中可以快速简便地创建图表。在程序中，通过VBA代码也可方便地创建图表。本章实例介绍用VBA创建图表（包括嵌入式图表）、控制图表中的对象、通过图表事件响应用户操作等内容。
9.1 创建图表 254
例202 创建图表工作表 254
例203 创建嵌入图表 255
例204 转换图表类型 257
例205 删除图表 258
9.2 控制图表对象 260
例206 获取嵌入图表的名称 260
例207 获取图表标题信息 260
例208 获取图例信息 262
例209 获取图表坐标轴信息 263
例210 获取图表的系列信息 264
例211 判断工作表的类型 265
例212 重排嵌入图表 266
例213 调整图表的数据源 268
例214 为图表添加阴影 269
例215 显示数据标签 271
例216 将图表保存为图片 273
例217 设置图表颜色 274
例218 按值显示颜色 276
例219 修改嵌入图表外形尺寸 277
例220 修改图表标题 279
例221 修改坐标轴 280
例222 图表插入到Word文档 282
9.3 图表事件 283
例223 激活图表工作表 283
例224 显示图表各子对象名称 284
例225 捕获嵌入图表事件 285
第10章 用户界面设计技巧
在Excel中，用户大部分时间是在工作表中进行操作。在Excel中，也可以设计用户窗体，用户直接在窗体上进行操作，而将工作表作为保存数据的地方。本章实例介绍在VBA中调用Excel内置对话框、在VBE中创建自定义窗体等内容。
10.1 使用内置对话框 288
例226 显示打开对话框（使用GetOpenFilename方法） 288
例227 显示保存文件对话框（使用GetSaveAsFilename方法） 290
例228 显示内置对话框 291
例229 用VBA调用Excel 2007功能区功能 293
10.2 创建自定义窗体 294
例230 制作Splash窗口 294
例231 控制窗体显示 295
例232 列表框间移动数据 297
例233 通过窗体向工作表添加数据 302
例234 制作多页窗体——报名登记 305
例235 通过窗体设置单元格格式 307
例236 用窗体控制工作表显示比例 308
例237 调色板窗体 311
例238 在窗体中显示图表 312
例239 制作向导窗体 314
例240 拖动窗体上的控件 317
例241 制作交通信号灯 318
例242 制作进度条 320
第11章 命令栏和功能区操作技巧
在Excel 2007中，以新的功能区取代了以前版本的命令栏（包括菜单栏和工具栏）。本章实例分别介绍了用VBA控制Excel 2003以前版本的命令栏、用XML自定义Excel 2007功能区等内容。
11.1 控制命令栏 322
例243 显示内置菜单和工具栏的ID 322
例244 创建自定义菜单 323
例245 删除自定义菜单 325
例246 创建快捷菜单 326
例247 禁止工作表标签快捷菜单 328
例248 屏蔽工作表标签部分快捷菜单 329
11.2 Excel 2007的功能区 330
例249 创建功能区选项卡 330
例250 禁用Office按钮的菜单 332
例251 在“Office按钮”中新建菜单 333
例252 重定义“Office按钮”菜单项功能 335
例253 为内置选项卡增加功能 336
第12章 Excel处理工作表数据技巧
通过Excel相关对象可对工作表中的数据进行操作，如处理单元格区域的公式、对数据进行查询、排序、筛选等操作。本章实例介绍了用VBA处理公式，对数据进行查询、排序、筛选等内容。
12.1 处理公式 339
例254 判断单元格是否包含公式 339
例255 自动填充公式 340
例256 锁定和隐藏公式 341
例257 将单元格公式转换为数值 342
例258 删除所有公式 343
例259 用VBA表示数组公式 345
12.2 数据查询 346
例260 查找指定的值 346
例261 带格式查找 349
例262 查找上一个/下一个数据 349
例263 代码转换 351
例264 模糊查询 353
例265 网上查询快件信息 354
例266 查询基金信息 357
例267 查询手机所在地 358
例268 使用字典查询 360
12.3 数据排序 361
例269 用VBA代码排序 362
例270 乱序排序 363
例271 自定义序列排序 364
例272 多关键字排序 366
例273 输入数据自动排序 367
例274 数组排序 369
例275 使用Small和Large函数排序 370
例276 使用RANK函数排序 372
例277 姓名按笔画排序 374
12.4 数据筛选 376
例278 用VBA进行简单筛选 377
例279 用VBA进行高级筛选 378
例280 筛选非重复值 380
例281 取消筛选 381
第13章 Excel处理数据库技巧
通过VBA代码，可在Excel中访问数据库。本章实例介绍通过ADO访问Excel工作簿中的数据、在Excel中处理Access数据库（包括获取、添加、修改、删除记录，创建Access数据）等内容。
13.1 用ADO访问Excel工作表 383
例282 使用ADO连接数据库 383
例283 从工作表中查询数据 384
例284 使用ADO导出数据 386
例285 汇总数据 387
例286 不打开工作簿获取工作表名称 388
13.2 处理Access数据库 390
例287 从Access中获取数据 390
例288 添加数据到Access 391
例289 创建Access数据库 393
例290 是否存在指定表 395
例291 列出数据库的表名 396
例292 列出数据表的字段信息 398
例293 修改记录 399
例294 删除记录 401
第14章 创建加载宏技巧
在Excel中，通过加载宏可以扩展功能，加载宏是为Excel提供自定义命令或自定义功能的补充程序。本章实例介绍了在Excel中通过VBA代码创建Excel加载宏和COM加载宏的方法。
14.1 创建加载宏的方法 404
例295 创建Excel加载宏 404
例296 创建COM加载宏 408
例297 系统加载宏列表 413
14.2 常用加载宏示例 414
例298 时间提示 414
例299 大写金额转换 416
例300 计算个人所得税 418
例301 加盖公章 419
第15章 文件和文件夹操作技巧
通过VBA代码可在Excel中操作文件。有两种方式访问操作文件和文件夹：一
是使用过程形式的VB访问和操作方法，另一种是将文件系统作为对象的文件对象模型方式。本章实例介绍了用VB语句操作文件和文件夹、用FSO操作文件和文件夹的内容。
15.1 用VB语句操作文件和文件夹 422
例302 显示指定文件夹的文件 422
例303 判断文件（文件夹）是否存在 424
例304 新建文件夹 425
例305 复制文件 426
例306 重命名文件或文件夹 427
例307 删除文件 429
例308 查看文件属性 430
15.2 用FSO操作文件和文件夹 432
例309 判断文件是否存在（FSO） 432
例310 分离文件名和扩展名 434
例311 新建和删除文件夹（FSO） 435
例312 复制文件（FSO） 437
例313 复制文件夹（FSO） 439
例314 列出文件夹名称 440
例315 显示文件属性 441
例316 删除所有空文件夹 442
例317 显示驱动器信息 444
第16章 文本文件操作技巧
上一章介绍了对文件进行复制、删除之类的操作，更多的时候用户还需要从文本文件中读取数据，或向文本文件中写入数据。本章实例介绍用VBA操作文本文件的内容，包括用VB语句操作文本文件和用FSO操作文本文件。
16.1 用VB语句操作文本文件 446
例318 创建文本文件 446
例319 读取文本文件数据 448
例320 工作表保存为文本文件 450
例321 导出批注到文本文件 451
例322 从文本文件导入批注 453
16.2 用FSO操作文本文件 455
例323 创建文本文件（FSO） 455
例324 添加数据到文本文件（FSO） 456
例325 读取文本文件数据（FSO） 458
第17章 用Excel控制其他程序技巧
在Excel中，通过VBA代码可调用其他应用程序的功能。包括创建和打开Word文
档、创建和打开幻灯片、发送和导入Outlook邮件等。另外，使用VBA提供的Shell函数还可打开Windows中的其他程序、打开控制面板对应的选项等。
17.1 控制Office应用程序 460
例326 打开Word文档 460
例327 从Word文档中获取数据 462
例328 生成成绩通知书 464
例329 在Excel中打开PPT 469
例330 在Excel中创建PPT 470
例331 使用SendMail发送邮件 473
例332 用Outlook发送邮件 474
例333 导入Outlook中的邮件 476
例334 保存Outlook中的附件 478
17.2 调用其他程序 479
例335 运行系统自带程序 479
例336 在Excel中打开控制面板 481
第18章 VBE工程实用操作技巧
在第2章中介绍了VBE的使用方法。其实，VBE也包含一个对象模型，通过该对象模型可控制VBA工程的主要元素。本章实例介绍通过VBE对象模型，用VBA代码添加或删除模块、创建用户窗体、生成VBA代码等内容。
18.1 显示工程相关信息 483
例337 显示工程信息 483
例338 列出工程所有组件 485
例339 显示工作簿中VBA的过程名 486
例340 导出VBA过程代码 488
例341 列出工程引用的外部库 489
18.2 动态创建组件 490
例342 重命名组件 490
例343 导出/导入模块代码 492
例344 删除指定子过程代码 494
例345 查找代码 496
例346 增加模块 498
例347 增加类模块 500
例348 控制VBE的子窗口 501
例349 工作表中动态增加按钮 502
例350 创建动态用户窗体 504
第19章 VBA程序调试优化技巧
Excel应用程序的顺利完成，调试的过程是非常重要的。本章实例介绍Excel VBA调试程序的基本方法和VBA程序的优化技巧。
19.1 VBA程序调试技巧 507
例351 设置断点 507
例352 使用本地窗口 508
例353 使用立即窗口 510
例354 单步执行 510
例355 运行选定部分代码 512
例356 调用堆栈 513
例357 使用监视窗口 514
例358 使用条件编译 515
例359 错误处理语句 517
19.2 VBA程序优化技巧 518
例360 使用VBA已有功能 518
例361 避免使用变体 520
例362 使用对象变量 521
例363 使用数组处理单元格 522
例364 检查字符串是否为空 522
例365 优化循环体 523
例366 使用For Each循环 525
例367 关闭屏幕刷新 526
例368 使用内置函数 527