Excel VBA实例

Excel VBA实例

目录

第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 为输入数据的单元格添加批注 例132 自动填充相同值 159

例133 记录同一单元格多次输入值 160 例134 禁止选中某个区域 161

158 例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

本文来源：https://www.bwwdw.com/article/cthv.html