《Excel VBA套用案例速查手册》是Excel VBA入门的经典教材。全书共分17章，主要是以一些基础而简短的VBA实例来对Excel VBA中的常用对象及其属性和方法进行讲解，包括应用程式对象、视窗、工作簿、工作表、单元格和单元格区域、图表、数据透视表、形状、控制项、格式化操作、档案操作等套用示例。

这些例子都比较基础，很容易理解，因此很容易调试并得以实现，让您通过具体的实例来熟悉Excel VBA编程。本书在Excel 2010版本中操作编写，本书为每个套用範例设定了“範例说明”、“範例步骤”、“知识扩展”和“提示”等模组，既容易理解，又可以让读者在学习VBA理论知识与实践之外拓展知识面。

本书适合VBA入门者阅读，可以通过本书系统地学习VBA知识，也适合已有VBA基础，但需要扩展知识面的读者阅读，让自己的程式具有更好的通用性、纠错性及更高的执行效率。

Excel是一款市场占有率最高、使用範围最广的数据处理软体。这归功于它除了拥有强大的制表功能外，还提供二次开发平台，允许用户开发新工具，以完成Excel本身不具备的功能；或者通过VBA实现自动化，让某些功能全自动执行，大大提升工作效率。这使得Excel从众多制表软体中脱颖而出。

通过VBA进行二次开发，可以强化Excel的功能，将某些烦杂或者重複的日常工作简化，还可以开发商业外挂程式或者小型财务系统等。可以说VBA已完全融入办公文员的日常工作，拥有VBA就等于拥有效率。

市场上也有大量的Excel VBA 的书籍，但大多侧重于讲述VBA 基本语法和理论套用。因此，笔者一直构思编写一套“以套用案例贯穿基本理论”、“以套用案例为主线”的介绍Excel VBA的图书。

在套用Excel VBA的过程中，笔者利用长达数年的时间，对Excel VBA的功能进行了系统的整理和归纳，将Excel VBA强大的功能和複杂的操作用简短、易学的範例展示给广大读者。对热衷于Excel的朋友，以及Excel VBA初学者快速了解和步入Excel VBA编程殿堂有所帮助。

《Excel VBA套用案例速查手册》是Excel VBA入门的经典教材。主要是以一些基础而简短的VBA实例来对Excel VBA中的常用对象及其属性和方法进行讲解，包括应用程式对象、视窗、工作簿、工作表、单元格和单元格区域、图表、数据透视表、形状、控制项、格式化操作、档案操作等套用示例。这些例子都比较基础，很容易理解，因此很容易调试并得以实现，让您通过具体的实例来熟悉Excel VBA编程。

全书共分17章，大体可分为以下4部分。

第一部分：Excel VBA基本语法（包括第1～2章）

第二部分：Excel VBA对象模型套用（包括第3～13章）

第三部分：界面设计（包括第14章）

第四部分：高级套用（包括第15～17章）

（1）本书中所有的套用範例都是在Excel 2010（VBA 7.0）环境下进行操作并介绍的。

（2）为了最大限度地提升读者的知识面，本书在通过套用範例介绍基本语法的同时，提供了数百个“知识扩展”模组，从而让读者在学习VBA 理论知识与实践之外，可以拓展知识面，解除心中疑惑。

（3）本书中的套用範例图文并茂，图片中使用桔黄色方框为操作节点进行重点提示，使读者更易掌握和理解。

（4）本书中设定了“提示”模组，以提醒读者在操作过程中的注意事项。

（5）使用表格扩展知识面。在书中不可能对所有的知识点都进行介绍，一些文中涉及但又不太常用的对象，使用表格对其属性、方法和事件做了简要介绍。

（6）本书附送光碟中包含範例档案，读者可方便地对其进行操作和学习。

本书提供了大量的範例，对VBA 的基础理论有比较详尽的介绍。另外，对VBA的高级知识——数组、类模组、API等也有大量的理论阐述与範例演示。

本书适合的读者包括三类：

VBA入门者，可以通过本书系统地学习VBA知识。

已有VBA基础，但需要扩充知识面的读者，让自己的程式具有更好的通用性、纠错性及更高的执行效率。本书对程式的最佳化、纠错等方面进行了大量的论证。

数年的时间和套用经验造就了本书。但由于作者水平有限，纰漏之处在所难免。恳请大家多提宝贵意见。

编者

第一部分 Excel VBA基本语法

第一章 宏与VBA1

第一节 宏1

範例1-1-1 显示和隐藏“开发工具”选项卡1

範例1-1-2 设计图书卡2

範例1-1-3 把宏指定到图片4

第一节 宏2

範例1-1-1 显示和隐藏“开发工具”选项卡2

範例1-1-2 设计图书卡3

範例1-1-3 把宏指定到图片4

範例1-1-4 把宏保存到档案5

範例1-1-5 删除宏7

範例1-1-6 对宏安全性进行设定8

第二节 VBA10

範例1-2-1 打开VBE11

範例1-2-2 从VBE返回Excel12

範例1-2-3 通过工程资源管理器插入一个宏模组13

範例1-2-4 通过工程资源管理器删除一个宏模组15

範例1-2-5 为宏代码加密15

範例1-2-6 向标準工具列中添加立即视窗命令16

範例1-2-7 在VBA中对宏进行编辑最佳化17

第二章 语法入门19

第一节 面向对象的程式设计20

範例2-1-1 创建一个类模组20

範例2-1-2 根据存在的类创建对象22

範例2-1-3 在对象浏览器中查看类及对象24

範例2-1-4 设定窗体尺寸及位置26

範例2-1-5 使用代码关闭当前工作簿26

第二节 数据与数据类型27

範例2-2-1 为变数和常量命名27

範例2-2-2 声明变数27

範例2-2-3 数据类型28

範例2-2-4 用户自定义类型29

範例2-2-5 强制声明变数30

範例2-2-6 使用变数31

範例2-2-7 使用局部变数31

範例2-2-8 使用全局变数32

範例2-2-9 对象变数的使用32

範例2-2-10 自定义常量的使用33

範例2-2-11 内置常量的使用34

範例2-2-12 使用一维数组35

第三节 运算符与表达式36

範例2-3-1 算术运算符及表达式36

範例2-3-2 比较运算符及表达式37

範例2-3-3 字元串运算符及表达式37

範例2-3-4 逻辑运算符及表达式37

範例2-3-5 引用运算符及表达式38

範例2-3-6 其他运算符及表达式38

第四节 语句基础40

範例2-4-1 使用MsgBox函式输出40

範例2-4-2 使用InputBox函式输入42

範例2-4-3 If…Then语句43

範例2-4-4 If…Then…Else语句43

範例2-4-5 阶梯电价的计算43

範例2-4-6 企业信用等级的判定44

範例2-4-7 使用While…Wend计算从1到100的累加值46

範例2-4-8 使用Do…Loop计算从1到100的累加值47

範例2-4-9 使用For…Next计算从1到100的累加值48

範例2-4-10 计算所选工作表区域之和49

範例2-4-11 使用嵌套循环解决数学问题50

範例2-4-12 使用On Error进行错误处理51

範例2-4-13 使用Resume语句进行错误处理53

第五节 过程与函式55

範例2-5-1 调用具有多个参数的 Sub 过程56

範例2-5-2 调用Fuction过程56

範例2-5-3 在Fuction过程中使用可选参数57

範例2-5-4 在Fuction过程中使用不定参数57

範例2-5-5 自定义工作表函式58

範例2-5-6 使用VBA的内置函式59

第二部分 Excel VBA对象模型套用

第三章 应用程式操作62

第一节 Application属性操作63

範例3-1-1 显示活动印表机的名称63

範例3-1-2 调用“另外储存为”对话框63

範例3-1-3 检查并显示编辑栏64

範例3-1-4 显示或隐藏整个Excel的滚动条65

範例3-1-5 设定Excel视窗的大小和位置66

範例3-1-6 设定Excel为全萤幕模式66

範例3-1-7 检查并隐藏Excel套用67

範例3-1-8 返回视窗状态，并根据需要设定是否最小化68

範例3-1-9 在VBA中使用工作表函式69

第二节 Application对象的方法操作71

範例3-2-1 使用“打开”对话框打开档案71

範例3-2-2 与其他应用程式通信71

範例3-2-3 为宏程式指定快捷键74

範例3-2-4 30秒后运行指定过程75

範例3-2-5 退出Excel77

第四章 视窗套用78

第一节 Window(s)属性操作79

範例4-1-1 修改并获取当前视窗的标题79

範例4-1-2 显示单元格中的公式80

範例4-1-3 显示和设定工作表中的格线线81

範例4-1-4 显示和隐藏工作表标籤83

範例4-1-5 根据用户要求调整视窗显示比例84

範例4-1-6 自定义视窗84

範例4-1-7 隐藏视窗中的零值85

範例4-1-8 选择合适的视图方式86

第二节 Window对象的方法操作89

範例4-2-1 保存并关闭工作簿视窗89

第五章 工作簿套用91

第一节 Workbook属性操作92

範例5-1-1 删除工作簿中所有的图表工作表92

範例5-1-2 设定共享工作簿为自动更新93

範例5-1-3 保存共享工作簿的历史版本94

範例5-1-4 在共享工作簿中启动修订功能95

範例5-1-5 隐藏工作簿中的所有图形96

範例5-1-6 显示工作簿名称97

範例5-1-7 检查工作簿中是否存在宏项目98

範例5-1-8 检查工作簿是否以唯读方式打开98

範例5-1-9 检查工作簿是否建议以唯读方式打开99

範例5-1-10 检查工作簿保存后是否发生过修改100

範例5-1-11 显示工作簿中第一个工作表的名称101

範例5-1-12 检查工作簿的自动恢复功能102

範例5-1-13 取得当前打开的工作簿数103

範例5-1-14 为工作簿设定打开密码103

範例5-1-15 检查工作簿是否有保护104

範例5-1-16 检查并保护工作簿106

範例5-1-17 为工作簿设定防写密码106

第二节 Workbook对象的方法操作108

範例5-2-1 激活工作簿108

範例5-2-2 将主题套用到工作簿108

範例5-2-3 通过ChangeFileAccess方法设定工作簿许可权110

範例5-2-4 Excel伺服器套用111

範例5-2-5 不保存退出Excel112

範例5-2-6 列印当前工作簿中的前3页113

範例5-2-7 保护当前工作簿114

範例5-2-8 禁止指定用户与共享工作簿的连线115

範例5-2-9 保存当前工作簿中的更改116

範例5-2-10 另保存当前工作簿中的更改117

範例5-2-11 将当前工作簿以副本保存118

範例5-2-12 取消工作簿保护119

範例5-2-13 新建工作簿120

範例5-2-14 打开工作簿120

範例5-2-15 关闭工作簿121

第三节 Workbook(s)对象的事件操作123

範例5-3-1 保存成功后提示123

範例5-3-2 保存前确认是否保存125

範例5-3-3 在工作簿中创建图表时提示125

範例5-3-4 新建工作表后提示工作表数量126

範例5-3-5 打开工作簿时提示工作簿名称127

第六章 工作表套用128

第一节 Worksheet属性操作130

範例6-1-1 删除工作簿中所有的图表工作表130

範例6-1-2 删除当前工作表中的所有批注131

範例6-1-3 隐藏除第一个工作表外的其他工作表132

範例6-1-4 创建目录工作表132

範例6-1-5 删除工作表中的空行134

範例6-1-6 限制工作表的滚动区域135

範例6-1-7 保护工作表135

範例6-1-8 页面设定137

第二节 Worksheet对象的方法操作141

範例6-2-1 选择工作表141

範例6-2-2 激活工作表142

範例6-2-3 把工作表複製到指定位置143

範例6-2-4 删除空工作表144

範例6-2-5 将工作表导出为PDF文档145

範例6-2-6 在现有工作表之后插入工作表146

範例6-2-7 将当前工作表移动到其他工作簿147

範例6-2-8 複製工作表中的内容数据148

範例6-2-9 向工作表中贴上网页中的文字149

範例6-2-10 建立数据透视表150

範例6-2-11 为工作表设定背景152

第三节 Worksheet(s)对象的事件操作153

範例6-3-1 验证后编辑工作簿153

範例6-3-2 改变更改内容的颜色和字型155

範例6-3-3 在工作簿中创建图表时提示156

範例6-3-4 快速输入默认值156

第七章 单元格套用158

第一节 Range对象的属性操作161

範例7-1-1 设定单元格对齐方式161

範例7-1-2 自动向下行添加当前日期162

範例7-1-3 为所选单元格设定行高和列宽164

範例7-1-4 当选择範围发生改变时返回高度和宽度165

範例7-1-5 选区发生变化时提示行数、列数和单元格数166

範例7-1-6 突出显示特定内容166

範例7-1-7 查看隐藏的行168

範例7-1-8 设定单元格数字格式168

第二节 Range对象的方法操作169

範例7-2-1 当工作表被激活时自动填充数据169

範例7-2-2 根据内容自动调整行高、列宽171

範例7-2-3 查看数据清单中符合特定条件的记录172

範例7-2-4 为单元格设定框线173

範例7-2-5 保存前清空临时工作表174

範例7-2-6 清空工作表中的超连结175

範例7-2-7 複製单元格数据176

範例7-2-8 删除单元格178

範例7-2-9 向区域内填充相同数据179

範例7-2-10 查找并修改特定记录的数据180

範例7-2-11 删除数据清单中的重複行182

範例7-2-12 创建分类汇总183

範例7-2-13 对选区数据排序185

範例7-2-14 跨行合併单元格186

範例7-2-15 替换单元格中的数据188

第八章 图表套用190

第一节 图表基本操作192

範例8-1-1 创建图表192

範例8-1-2 设定图表区格式194

範例8-1-3 修改图表类型195

範例8-1-4 图表没有模拟运算表时添加模拟运算表196

範例8-1-5 图表中无坐标轴时显示坐标轴198

範例8-1-6 显示图表标题并设定199

範例8-1-7 检查和显示图例202

範例8-1-8 显示和隐藏图表204

範例8-1-9 显示各图表的名称205

範例8-1-10 重新设定图表的数据源区域205

範例8-1-11 複製和贴上图表207

範例8-1-12 激活并删除图表207

範例8-1-13 在原位置複制图表208

範例8-1-14 图表被激活时提示209

範例8-1-15 提示选择的元素210

第二节 迷你图套用212

範例8-2-1 创建迷你图212

範例8-2-2 更改迷你图的数据源区域213

範例8-2-3 更改迷你图的位置215

範例8-2-4 同时改变迷你图的数据源和位置216

範例8-2-5 删除迷你图（组）217

範例8-2-6 更改迷你图的类型218

範例8-2-7 设定折线亮度220

範例8-2-8 突出显示折线图中的标记点221

第九章 图形套用223

第一节 图形的属性操作224

範例9-1-1 替换自选图形的类型224

範例9-1-2 为图形设定填充颜色226

範例9-1-3 设定图形框线颜色227

範例9-1-4 为图形指定宏229

範例9-1-5 使用内置样式格式化图形230

範例9-1-6 统计工作表中的图形数量232

範例9-1-7 设定图形中的文本233

範例9-1-8 设定部分图形的格式235

第二节 图形对象的方法操作237

範例9-2-1 在工作表中创建图形237

範例9-2-2 在工作表中创建文本框238

範例9-2-3 在工作表中创建艺术字240

範例9-2-4 删除工作表中的单个图形241

範例9-2-5 删除工作表中的多个图形242

第十章 超连结与批注243

第一节 超连结操作245

範例10-1-1 创建超连结245

範例10-1-2 统计超连结的数量246

範例10-1-3 清除全部超连结247

範例10-1-4 显示工作表中超连结指向的地址248

第二节 批注操作250

範例10-2-1 统计并显示工作表中的批注数量250

範例10-2-2 显示工作表中所有批注的作者250

範例10-2-3 隐藏奇数批注251

範例10-2-4 改变批注的形状并设定格式252

範例10-2-5 插入批注并设定文本253

第十一章 筛选和排序255

第一节 自动筛选257

範例11-1-1 在指定区域建立自动筛选257

範例11-1-2 检查自动筛选是否开启259

範例11-1-3 筛选同时满足多个条件的数据260

範例11-1-4 筛选满足多个条件中任一条件的数据261

範例11-1-5 显示高于平均值的记录262

範例11-1-6 筛选曾作过颜色标记的记录263

範例11-1-7 筛选姓名为两个汉字并且姓“王”学员的记录264

範例11-1-8 筛选不姓“王”且姓名为两个汉字学员的记录265

範例11-1-9 清除筛选条件266

第二节 高级筛选267

範例11-2-1 在其他位置显示某工作单位学员记录267

範例11-2-2 筛选“李”姓三字姓名的学员记录269

範例11-2-3 筛选姓“李”或姓“吴”的学员记录270

第三节 排序271

範例11-3-1 根据数值大小排序271

範例11-3-2 按字母顺序排列姓名273

範例11-3-3 排序时区分大小写274

範例11-3-4 数据清单中部分排序275

範例11-3-5 按行排序277

範例11-3-6 将默认颜色排到最前面278

範例11-3-7 对多个栏位进行排序279

第十二章 条件格式282

第一节 条件格式对象的方法操作284

範例12-1-1 突出显示较大值284

範例12-1-2 突出显示总分在200～240之间的数据286

範例12-1-3 突出显示姓名中包括“王”的数据287

範例12-1-4 突出显示总分前10名的数据288

範例12-1-5 突出显示总分高于平均值的数据289

範例12-1-6 将总分显示为数据条290

範例12-1-7 使用色阶显示总分数据292

範例12-1-8 使用图示集显示总分数据293

範例12-1-9 清除条件格式294

範例12-1-10 加粗显示总分在260分以上的姓名295

範例12-1-11 填充总分在265分以上记录所在的行为灰色296

範例12-1-12 提升第二个条件格式的优先权297

第二节 条件格式对象的属性操作299

範例12-2-1 显示工作表中的条件格式数量299

範例12-2-2 将单科成绩在95分以上的成绩加格线300

範例12-2-3 将单科成绩95分以上的成绩加图案302

範例12-2-4 给重複值加上虚框303

範例12-2-5 更改条件格式的套用範围304

範例12-2-6 修改条件格式中符合条件的填充颜色305

第十三章 外部数据与数据工具307

第一节 外部数据操作309

範例13-1-1 从其他Excel工作簿中获取数据（1）309

範例13-1-2 统计并提示查询表的数量311

範例13-1-3 获取文本档案的数据312

範例13-1-4 获取网路上的数据314

範例13-1-5 从网页上导入指定表格内容315

範例13-1-6 从其他Excel工作簿中获取数据（2）317

範例13-1-7 删除分析表与数据源的连线320

第二节 数据工具操作322

範例13-2-1 将一列的数据分为两列322

範例13-2-2 删除重複行324

範例13-2-3 为选定区域创建下拉列表325

範例13-2-4 控制输入字元长度328

範例13-2-5 对字元长度有两种要求329

範例13-2-6 圈释无效成绩331

範例13-2-7 清除无效成绩标识圈333

第三部分 界面设计

第十四章 窗体控制项334

第一节 窗体控制项基本操作335

範例14-1-1 创建窗体335

範例14-1-2 设定窗体属性336

範例14-1-3 向窗体中添加控制项337

範例14-1-4 设定组合框属性339

範例14-1-5 为文本框设定密码隐藏显示340

範例14-1-6 设定按钮控制项属性341

範例14-1-7 向工具箱中添加控制项342

範例14-1-8 显示窗体343

第二节 窗体事件程式设计345

範例14-2-1 窗体初始化时隐藏数据工作表345

範例14-2-2 当密码输入文本框记忆体在内容时“确定”按钮方可

操作346

範例14-2-3 单击“取消”按钮关闭窗体347

範例14-2-4 单击“确定”按钮检测用户密码348

範例14-2-5 打开工作簿时自动显示窗体350

範例14-2-6 创建数据输入窗体351

範例14-2-7 禁用窗体的 按钮354

範例14-2-8 计算滞纳金356

第四部分 高级套用

第十五章 资料库操作358

第一节 使用DAO对象运算元据库359

範例15-1-1 利用DAO创建与资料库的连线359

範例15-1-2 查询栏位信息360

範例15-1-3 创建资料库361

範例15-1-4 向资料库中添加表362

範例15-1-5 向资料库中添加数据信息363

範例15-1-6 修改资料库365

範例15-1-7 删除资料库中的数据367

第二节 使用ADO对象运算元据库371

範例15-2-1 连线资料库371

範例15-2-2 向资料库中添加数据372

範例15-2-3 把资料库导入到Excel中373

範例15-2-4 快速获取ADO连线字元串375

第十六章 档案系统操作378

第一节 使用命令操作档案379

範例16-1-1 重命名档案379

範例16-1-2 在不打开工作簿的情况下，在不同的工作簿之间

複製数据381

範例16-1-3 删除当前资料夹下大小为0的档案383

範例16-1-4 向文本档案中写入数据386

範例16-1-5 向文本档案中写入当前日期388

範例16-1-6 关闭所有打开的档案389

範例16-1-7 利用文本档案中的数据验证密码390

第二节 使用VBA对象操作档案393

範例16-2-1 显示档案所在的磁碟394

範例16-2-2 显示磁碟信息394

範例16-2-3 创建磁碟档案395

範例16-2-4 判断档案是否存在396

範例16-2-5 向文本档案中添加信息396

第十七章 其他套用398

第一节 API函式套用399

範例17-1-1 获取萤幕高度和宽度399

第二节 Office组件协作402

範例17-2-1 新建Word文档402

範例17-2-2 打开Word文档403