当前位置：文档库 › VBA典型实例：368例

VBA典型实例：368例

完全手册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中使用V BA编程时，也需要频繁地引用单元格区域。本章实例介绍用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实例教程 #055：在工作表中添加艺术字

工作表中的多个图形，如果使用系统缺省名称，如“文本框1”、“文本框2”这样前面是固定的字符串，后面是序号的，可以使用For...Next 语句遍历图形，如下面的代码所示。 1.Sub ErgShapes_1() 2. Dim i As Integer 3. For i = 1 To 4 4. Sheet1.Shapes("文本框 " & i).TextFrame.Characters.Text = "" 5. Next 6.End Sub 代码解析： ErgShapes_1过程清除工作表中四个图形文本框中的文字。第3行到第5行代码，使用Shapes属性在工作表上的三个图形文本框中循环。 Shapes属性返回Shapes对象，代表工作表或图形工作表上的所有图形，可以使用Shapes （index）返回单个的Shape对象，其中index是图形的名称或索引号。返回单个的Shape对象后使用TextFrame 属性和Characters方法清除文本框中的字符，关于Shape对象的TextFrame 属性和Characters方法请参阅技巧53 。如果图形的名称没有规律，可以使用For Each...Next 语句循环遍历所有图形，根据Type 属性返回的图形类型进行相应的操作，如下面的代码所示。 1.Sub ErgShapes_2() 2. Dim myShape As Shape 3. Dim i As Integer 4. i = 1 5. For Each myShape In Sheet1.Shapes 6. If myShape.Type = msoTextBox Then 7. myShape.TextFrame.Characters.Text = "这是第" & i & "个文本框" 8. i = i + 1 9. End If 10. Next 11.End Sub 代码解析： ErgShapes_2过程在工作表中的所有图形文本框中写入文本。第5行代码使用For Each...Next 语句循环遍历工作表中所有的图形对象。第6行到第9行代码如果图形对象是文本框则在文本框中写入文本。其中第6行代码根据Type属性判断图形对象是否为文本框，应用于Shape对象的Type属性返回或设置图形类型，MsoShapeType类型，请参阅表格54 1 。第7行代码根据返回的Type属性值在所有的文本框内写入相应的文本，如图1所示。

Excel_VBA实例教程_查找单元格

Excel VBA实例教程查找单元格 1、使用Find方法在Excel中使用查找对话框可以查找工作表中特定内容的单元格，而在VBA中则使用Find方法，如下面的代码所示。 01.Sub RngFind() 02. Dim StrFind As String 03. Dim Rng As Range 04. StrFind = InputBox("请输入要查找的值:") 05. If Trim(StrFind) <> "" Then 06. With Sheet1.Range("A:A") 07. Set Rng = .Find(What:=StrFind, _ 08. After:=.Cells(.Cells.Count), _ 09. LookIn:=xlValues, _ 10. LookAt:=xlWhole, _ 11. SearchOrder:=xlByRows, _ 12. SearchDirection:=xlNext, _ 13. MatchCase:=False) 14. If Not Rng Is Nothing Then 15. Application.Goto Rng, True 16. Else 17. MsgBox "没有找到该单元格!" 18. End If 19. End With 20. End If 21.End Sub 代码解析： RngFind过程使用Find方法在工作表Sheet1的A列中查找InputBox函数对话框中所输入的值，并查找该值所在的第一个单元格。第6到第13行代码在工作表Sheet1的A列中查找InputBox函数对话框中所输入的值。应用于Range 对象的Find方法在区域中查找特定信息，并返回Range对象，该对象代表用于查找信息的第一个单元格。如果未发现匹配单元格，就返回Nothing，语法如下： 01.expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SerchFormat) 复制代码参数expression是必需的，该表达式返回一个Range对象。参数What是必需的，要搜索的数据，可为字符串或任意数据类型。参数After是可选的，表示搜索过程将从其之后开始进行的单元格，必须是区域中的单个单元格。查找时是从该单元格之后开始的，直到本方法绕回到指定的单元格时，才对其进行搜索。如果未指定本参数，搜索将从区域的左上角单元格之后开始。在本例中将After参数设置为A列的最后一个单元格，所以查找时从A1单元格开始搜索。参数LookIn是可选的，信息类型。参数LookAt是可选的，可为XlLookAt常量的xlWhole 或xlPart之一。参数SearchOrder是可选的，可为XlSearchOrder常量的xlByRows或xlByColumns之一。参数SearchDirection是可选的，搜索的方向，可为XlSearchDirection常量的xlNext或xlPrevious 之一。

Excel VBA实例教程指南

Excel VBA教程之一：写在前面 VBA功能如何强大，这已勿庸费言，但如何才能很快进阶，写出自己满意的程序，却取决于个人努力和悟性。我下了很大功夫却收效甚微，有时，高手一句点拨却胜读三天书。所以，我把个人学习所得作一点整理，希望有助于后学。只所以会有看书没用之感，一来是因为市面（我国）上大多数计算机类图书多为粗制滥造之作（这话稍有唐突），二来因为计算机这东西太呆板，不见得新出现的问题就能立即得到某本书籍上的解释，新问题总是层出不穷的。想把一门编程语言全部搞懂，再去写点程序，是一个十分愚蠢的想法。你想盖房子，难道你想先学会制造砖头、玻璃等？我承认，把语言弄懂再做事情会很顺手，但是，你知道吗，有多少人在弄懂一门晦涩难懂的语言之前就放弃了呢？比如，什么叫面向对象编程？OOP和以前的流线性编程有什么异同？我还是大力提倡学以致用，别指望什么事你都能成专家，计算机世界的“罗氏定理”就是：“毕其一生，不能穷其万一”，你记住了吗？那么，对于没有编程基础的人，怎样才能进步得快呢？我有几点思考： 1.你一定要带着明确的目的去做一件具体的事。这样，才会在做的过程中发现问题，并逐步去解决这些问题。比如，我想做一个《学生成绩分析系统》，我就会想到怎么才能把学生分数分成不同的班、怎么才能算出总分、平均分、标准差等、怎样比较各班的情况，怎样用图形显示更直观，怎么样才能把某个学生的历次成绩放在一起比较等。 2.你动手去做一做，一点一点地完成你上面的设想，不必因为这个大工程没做出来而忽略你在局部的突破，这样，你会越来越有信心，这就够了，还有什么比有信心做事的感觉更好的了吗？ 3.合理及时利用网络资源，这绝对是个好东西，或许你看起来很了不起的问题，在别人看来简直不算什么，一定会有人为你解答。上网并不只是QQ和game啊！同时要好好利用软件的帮助系统，这才是最权威的解释，很多计算机书籍抄自帮助，你想，微软的专家写的，绝对原创，他还能去抄谁？ 4.做了一些工作之后，再回过头来看书，就会感觉很亲切，觉得写书的人原来也不是一无是处，也是很辛苦的（不要过分自我批评了）。不过，要看书，计算机类的，我百分之一万地推荐你看外国人写的，首先，软件是人家编的，当然更了解。其次，外国人写的，又被介绍到中国来，也是比较优秀的了。三来，我确实作过对比，看老外的书收益最大。语言不通的问题怎么办？金山词霸一下呗。我为什么要写这个东西？一是因为我想帮助别人，二是因为我想因此促进自己，三是因为我反感某些号称程序员的家伙，似乎编程是一件多么了不起的事，用一些极端人士的话来说：“编程有什么了不起？不就是判断和循环吗”，说得很有道理，从本质上说，计算机就是在做判断和循环，不信你就跟着我来吧。好了，Let’s go Excel VBA教程之二：从一个界面设计开始一个好的软件，除了运算速度快、体积小后，更重要的是，它的用户界面是不是很友好、亲切，“友好、亲切”这样的词汇在开始接触计算机语言时，感觉很好笑，但现在不一样了，我感觉这两个词最贴切！界面友好，就是引导用户能很快找到他需要的服务，最能想到他的心思，最体贴他，让他不时地心动，不时地赞叹！界面友好，就是能让用户在不经意间学到好多知识，无形中丰富了他自己，让他有美的享受！界面友好，还在于一目了然的界面却能让他需要的功能呼之即来，挥之即去！如此等等。那么，我想做一个《学生成绩分析系统》，我该怎么做呢？以下的界面你满意吗？

Excel VBA实例教程 #060：使用VBA自动生成图表

在实际工作中我们常用图表来表现数据间的某种相对关系，一般采用手工插入的方式，而使用VBA代码可以在工作表中自动生成图表，如下面的示例代码。 1.Sub ChartAdd() 2. Dim myRange As Range 3. Dim myChart As ChartObject 4. Dim R As Integer 5. With Sheet1 6. .ChartObjects.Delete 7. R = .Range("A65536").End(xlUp).Row 8. Set myRange = .Range("A" & 1 & ":B" & R) 9. Set myChart = .ChartObjects.Add(120, 40, 400, 250) 10. With myChart.Chart 11. .ChartType = xlColumnClustered 12. .SetSourceData Source:=myRange, PlotBy:=xlColumns 13. .ApplyDataLabels ShowValue:=True 14. .HasTitle = True 15. .ChartTitle.Text = "图表制作示例" 16. With .ChartTitle.Font 17. .Size = 20 18. .ColorIndex = 3 19. .Name = "华文新魏" 20. End With 21. With .ChartArea.Interior 22. .ColorIndex = 8 23. .PatternColorIndex = 1 24. .Pattern = xlSolid 25. End With 26. With .PlotArea.Interior 27. .ColorIndex = 35 28. .PatternColorIndex = 1

EXCEL宏编程简明教程(有实例),

Worksheets集合包含工作簿中所有的工作表，即一个Excel文件中的所有数据表页；而Worksheet则代表其中的一个工作表；ActiveSheet代表当前处于的活动状态工作表，即当前显示的一个工作表。可用Worksheets(index)来引用Worksheet对象，其中index为工作表名称或索引号；如Worksheets (1)、Worksheets("第一季度数据")。工作表索引号表明该工作表在工作表标签中的位置：第一个（最左边的）工作表的索引号为1，最后一个（最右边的）为Worksheets.Count。需要注意的是：在使用过程中Excel会自动重排工作表索引号，保持按照其在工作表标签中的从左至右排列，工作表的索引号递增。因此，由于可能进行的工作表添加或删除，工作表索引号不一定始终保持不变。 3、图表： Chart、Charts、ChartObject、ChartObjects、ActiveChart代表工作簿中的图表。该图表既可为嵌入式图表（包含在ChartObject中），也可为一个分开的（单独的）图表工作表。 Charts代表指定工作簿或活动工作簿中所有图表工作表的集合，但不包括嵌入式在工作表或对话框编辑表中的图表。使用Charts(index)可引用单个Chart 图表，其中index是该图表工作表的索引号或名称；如Charts (1)、Charts("销售图表")。图表工作表的索引号表示图表工作表在工作簿的工作表标签栏上的位置。Charts (1)是工作簿中第一个（最左边的）图表工作表； Charts(Charts.Count)为最后一个（最右边的）图表工作表。 ChartObject代表工作表中的嵌入式图表，其作用是作为Chart对象的容器。利用ChartObject可以控制工作表上嵌入式图表的外观和尺寸。

Excel VBA实例教程 #022：选择工作表的方法

在VBA中需要激活或者选择某个工作表时使用Select方法或Activate方法，如下面的代码所示。 1.Sub SelectSh() 2. Worksheets("Sheet2").Select 3.End Sub 4.Sub ActivateSh() 5. Worksheets("Sheet2").Activate 6.End Sub 代码解析： SelectSh过程使用Select方法选择“Sheet2”工作表，而ActivateSh过程则使用Activate 方法选择“Sheet2”工作表，从表面看两者的作用是相同的，但是如果“Sheet2”工作表是隐藏的，Activate方法可以正常运行，而Select方法将会出现错误，如图1所示。图 1 Select方法无效提示如果需要同时选中工作簿中的所有工作表，则只能使用Select方法而不能使用Activate 方法，如下面的代码所示。 1.Sub SelectShs() 2. Dim Shs As Worksheet 3. For Each Shs In Worksheets 4. Shs.Select False 5. Next 6.End Sub 7.Sub SelectSheets() 8. Worksheets.Select 9.End Sub 10.Sub ArraySheets() 11. Worksheets(Array(1, 2, 3)).Select

12.End Sub 代码解析： SelectShs过程遍历工作表并使用带参数的Select方法选中所有工作表。应用于Worksheet对象的Select方法的语法如下： Select(Replace) 参数Replace是可选的。如果该值为True，则用指定对象替代当前选定对象。如果该值为False，则延伸当前选定对象以包括任何以前选定的对象。 SelectSheets过程使用Worksheets集合的Select方法选中集合中所有的对象。 ArraySheets过程使用Array 函数返回工作簿中的前三张工作表并使用Worksheets集合的Select方法选中前三张工作表。

excel2010 vba笔记 (实战教程)(基础实例)

VBA笔记 8-21 1.VBA是什么：微软开发出来的应用程序一种能共享通用的自动化语言，VBA能使已有的应用程序(excel等)自动化，可以创建自定义的解决方案.等同:可以用excel的宏语言来使excel自动化,使用word BASIC使word自动化,等等。VBA可以称作excel的“遥控器”.此外,如果你愿意,还可以将excel用做开发平台实现应用程序. 2.VBA可以实现的功能 1. 使重复的任务自动化. 2. 自定义excel工具栏,菜单和界面. 3. 简化模板的使用. 4. 自定义excel,使其成为开发平台. 5. 创建报表. 6. 对数据进行复杂的操作和分析. 3.宏 3.1录制简单的宏选择“工具”—“宏”—“录制新宏”—输入宏名—确定—开始录制（状态栏中显示“录制”）—结束宏录制（“工具”—“宏”—“停止录制”。）*开始录制并非一个按钮，而是你的一系列操作，宏会记录下来变为自己的操作。 3.2执行宏选择任何一个单元格—选择“工具”—“宏”—“宏”（出现“宏”对话框）—选择相应的宏名—“执行”。 3.3查看录制的代码工具”—“宏”—“宏”（显示“宏”对话框）—选择某个宏—“编辑” VBA的编辑器窗口（VBE） Sub 改变颜色() //宏名 ’ ’改变颜色Macro ’xw 记录的宏2000-6-10 ’ ’//以上五行录制时自动生成 Range("A5").Select //表示无论选择哪个单元格，最后都只作用于A5 With Selection.Interior//设置属性在选择区域的内部（开始录制属性） .ColorIndex = 3 //颜色为3号色：红色 .Pattern = xlSolid //区域内部图案=纯色（录制时自动生成，可删） PatternColorIndex = xlAutomatic //内部图案底纹颜色=自动（自动生成，可删） End With //结束属性录制 End Sub//结束宏录制一个名为练习的宏： Sub 练习() ' ' 练习宏 ' ' With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .ColorIndex = 0

Excel VBA基础教程两篇

Excel VBA基础教程两篇篇一：Excel VBA基础教程 Excel VBA教程是把VB编程应用在Excel平台的一套实用教程，Excel +VBA双剑合壁，他可以帮助我们实现Excel原本实现不了的功能，可以让工作变得更高效，可以让操作变得变方便，可以把重复性的操作变得更有趣，随心所欲的定制自己的工作平台，还可以针对企业来开发各种系统如，人事管理系统、仓库系统、进存销系统等，对于经常要处理大量数据工作的朋友，学会了这套VBA教程你的工作将游刃有余。标题 Excel VBA基础教程 Excel VBA基础教程第一章：Excel VBA基础知识 1-1、Excel VBA教程简介 1-2、宏在工作中的运用

1-3、Excel VBA基础 1-4、Excel VBA窗口介绍 1-5、Excel VBA代码编写规则1-6、对象 1-7、属性 1-8、方法 1-9、常量与变量 1-10、数据类型 1-11、判断语句之IF 1-12、判断语句IF之多条件1-12B、If条件判断小结

1-13、判断语句之SELECT 1-14、循环语句之DO...LOOP 1-15、循环语句之DO...LOOP实例 1-16、循环语句之DO WHILE...LOOP 1-17、循环语句之DO UNTIL...LOOP 1-18、循环语句之WHILE与UNTIL位置变化1-18B、DO...LOOP 语法小结 1-19、.循环语句之FOR EACH...NEXT 1-20、循环语句之FOX...NEXT 1-20B、For...NEXT小结与实例 1-21、用语句FOR...NEXT制作九九乘法表

Excel VBA实例教程 #036：复制自动筛选后的数据区域

用户在对如图1所示的数据列表进行自动筛选后，往往希望将自动筛选的结果复制到其它地方。图1 筛选结果这时可以通过获取该列表区域中可见单元格的方法得到筛选结果的单元格区域，并复制到工作表Sheet2中，如下面的代码所示。 1.Sub CopyFilter() 2. Sheet2.Cells.Clear 3. With Sheet1

4. If .FilterMode Then 5. .AutoFilter.Range.SpecialCells(12).Copy Sheet2.Cells(1, 1) 6. End If 7. End With 8.End Sub 代码解析： CopyFilter过程将Sheet1表中的筛选结果复制到工作表Sheet2中。第2行代码清除Sheet2表中数据。第4行代码判断Sheet1表是否处于自动筛选状态。FilterMode属性返回工作表是否处于筛选模式，如果指定工作表中包含已筛选序列且该序列中含有隐藏行，则该值为True。第5行代码通过AutoFilter对象的Range属性返回工作表的自动筛选列表区域，再使用SpecialCells方法获取该列表区域中可见单元格（SpecialCells 方法请参阅技巧4 ），得到筛选结果的单元格区域，然后使用Copy方法将结果区域复制到工作表Sheet2中，应用于Range对象的Copy方法将单元格区域复制到指定的区域或剪贴板中，语法如下： expression.Copy(Destination) 参数expression是必需的，该表达式返回一个Range对象。参数Destination是可选的，指定区域要复制到的目标区域。如果省略该参数，则将该区域复制到剪贴板中。运行CopyFilter过程工作表Sheet2如图2所示。

Excel_VBA编程常用实例(150例)

Excel_VBA编程常用实例（150例）主要内容和特点《ExcelVBA编程入门范例》主要是以一些基础而简短的VBA实例来对ExcelV BA中的常用对象及其属性和方法进行讲解，包括应用程序对象、窗口、工作簿、工作表、单元格和单元格区域、图表、数据透视表、形状、控件、菜单和工具栏、帮助助手、格式化操作、文件操作、以及常用方法和函数及技巧等方面的应用示例。这些例子都比较基础，很容易理解，因而，很容易调试并得以实现，让您通过具体的实例来熟悉ExcelVBA编程。 ■ 分16章共14个专题，以具体实例来对大多数常用的ExcelVBA对象进行讲解； ■ 一般而言，每个实例都很简短，用来说明使用VBA实现Excel某一功能的操作； ■ 各章内容主要是实例，即VBA代码，配以简短的说明，有些例子可能配以必要的图片，以便于理解； ■ 您可以对这些实例进行扩充或组合，以实现您想要的功能或更复杂的操作。VBE编辑器及VBA代码输入和调试的基本知识在学习这些实例的过程中，最好自已动手将它们输入到VBE编辑器中调试运行，来查看它们的结果。当然，您可以偷赖，将它们复制/粘贴到代码编辑窗口后，进行调试运行。下面，对VBE编辑器界面进行介绍，并对VBA代码输入和调试的基本知识进行简单的讲解。激活VBE编辑器一般可以使用以下三种方式来打开VBE编辑器： ■ 使用工作表菜单“工具——宏——Visual Basic编辑器”命令，如图00-01所示；■ 在Visual Basic工具栏上，按“Visual Basic编辑器”按钮，如图00-02所示；■ 按Alt+F11组合键。

图00-01：选择菜单“工具——宏——Visual Basic编辑器”命令来打开VBE编辑器图00-02：选择Visual Basic工具栏上的“Visual Basic编辑器”命令按钮来打开VBE编辑器此外，您也可以使用下面三种方式打开VBE编辑器： ■ 在任一工作表标签上单击鼠标右键，在弹出的菜单中选择“查看代码”，则可进入VBE编辑器访问该工作表的代码模块，如图00-03所示； ■ 在工作簿窗口左上角的Excel图标上单击鼠标右键，在弹出的菜单中选择“查看代码”，则可进入VBE编辑器访问活动工作簿的ThisWorkbook代码模块，如图00-04所示； ■ 选择菜单“工具——宏——宏”命令打开宏对话框，若该工作簿中有宏程序，则单击该对话框中的“编辑”按钮即可进行VBE编辑器代码模块，如图00-05所示。

Excel VBA实例教程 #021：引用工作表的方式

VBA中，在不同的工作表之间转换或者对不同工作表中的单元格区域进行操作时，需要指定引用的工作表，通常有下面几种方法： 1、使用工作表的名称工作表名称是指显示在工作表标签中的文本，工作表名称可以使用WorkSheets集合和Sheets集合两种引用方式，如下面的代码所示。 1.Sub ShActivate() 2. Worksheets("索引号").Activate 3. 'Sheets("索引号").Activate 4.End Sub 第3、4行代码都激活工作簿中名称为“索引号”的工作表，激活后“索引号”工作表将成为活动工作表。 WorkSheets集合包含所有的工作表，而Sheets集合不仅包含工作表集合WorkSheets，还包含图表集合Charts、宏表集合Excel4MacroSheets与MS Excel 5.0对话框集合DialogSheets等。任何时刻工作簿中只有一个工作表是活动工作表。 2、使用工作表的索引号工作表索引号是指工作表在工作簿中的位置，Excel根据工作表在工作表标签中的位置以1开始从左向右进行编号。下面的代码选中并激活当前工作簿中第1个工作表： 1.Sub ShIndex() 2. Worksheets(1).Select 3.End Sub 单个WorkSheet对象的Select方法与Activate方法的主要区别在于Select方法要求工作表可视。注意当工作簿包括工作表、宏表、图表等时，使用索引号引用工作表如Sheets(1)与WorkSheets(1)引用的可能不是同一个表。使用Worksheet对象的Index属性可以返回工作表的索引号，如下面的代码所示。 1.Sub ShInde() 2. MsgBox Worksheets("索引号").Index 3.End Sub 3、使用工作表的代码名称使用Worksheet对象的CodeName属性可以返回工作表的代码名称，如下面的代码所示。

EXCEL宏编程简明教程(有实例),

Excel 宏编程简明教程一)、宏学习首先需要明确的是，本文不可能教会您关于宏的所有内容。您需要学会利用"录制宏"的方法来学习宏：点击Excel"工具"下拉菜单中"宏"下?quot;录制新宏"，此后可象平时一样进行有关操作，待完成后停止录制。然后再点击"工具"下拉菜单中"宏"下"宏"的"编辑"选项即可打开刚才所录制的宏的Visual Basic源程序，并且可以在此时的"帮助"下拉菜单中获得有关的编程帮助。对录制宏进行修改不仅可以学习宏的使用，还能大大简化宏的编写。二)、基本概念为了学习Excel中的宏，我们需要先了解以下一些基本概念。 1、工作簿：Workbooks、Workbook、ActiveWorkbook、ThisWorkbook Workbooks集合包含Excel中所有当前打开的Excel工作簿，亦即所有打开的Excel文件；Workbook对应Workbooks中的成员，即其中的Excel文件；ActiveWorkbook代表当前处于活动状态的工作簿，即当前显示的Excel文件；ThisWorkbook代表其中有Visual Basic代码正在运行的工作簿。在具体使用中可用Workbooks(index)来引用Workbook对象，其中index为工作簿名称或编号；如Workbooks(1)、Workbooks("年度报表.xls")。而编号按照创建或打开工作簿的顺序来确定，第一个打开的工作簿编号为1，第二个打开的工作簿为2……。 2、工作表：Worksheets、Worksheet、ActiveSheet Worksheets集合包含工作簿中所有的工作表，即一个Excel文件中的所有数据表页；而Worksheet则代表其中的一个工作表；ActiveSheet代表当前处于的活动状态工作表，即当前显示的一个工作表。可用Worksheets(index)来引用Worksheet对象，其中index为工作表名称或索引号；如Worksheets(1)、Worksheets("第一季度数据")。工作表索引号表明该工作表在工作表标签中的位置：第一个（最左边的）工作表的索引号为1，最后一个（最右边的）为Worksheets.Count。需要注意的是：在使用过程中Excel 会自动重排工作表索引号，保持按照其在工作表标签中的从左至右排列，工作表的索引号递增。因此，由于可能进行的工作表添加或删除，工作表索引号不一定始终保持不变。 3、图表：Chart 、Charts、ChartObject、ChartObjects、ActiveChart Chart代表工作簿中的图表。该图表既可为嵌入式图表（包含在ChartObject 中），也可为一个分开的（单独的）图表工作表。 Charts代表指定工作簿或活动工作簿中所有图表工作表的集合，但不包括嵌入式在工作表或对话框编辑表中的图表。使用Charts(index) 可引用单个Chart图表，其中index是该图表工作表的索引号或名称；如Charts(1)、Charts("销售图表")。图表工作表的索引号表示图表工作表在工作簿的工作表标签栏上的位置。Charts(1)是工作簿中第一个（最左边的）图表工作表； Charts(Charts.Count)为最后一个（最右边的）图表工作表。 ChartObject代表工作表中的嵌入式图表，其作用是作为Chart对象的容器。

Excel VBA实例教程 #025：工作表的添加与删除

在工作簿中添加工作表使用Add方法，如下面的代码所示。 1.Sub Addsh() 2. Dim Sh As Worksheet 3. With Worksheets 4. Set Sh = .Add(after:=Worksheets(.Count)) 5. https://www.wendangku.net/doc/fa9089803.html, = "数据" 6. End With 7.End Sub 代码解析： Addsh过程使用Add方法在工作簿中新建“数据”工作表。第2行代码声明变量Sh为工作表对象。第4行行代码使用Add方法在工作簿的最后新建“数据”工作表。 Add 方法应用于Sheets和Worksheets对象时新建工作表、图表或宏表，语法如下：expression.Add(Before, After, Count, Type) 参数Before是可选的，指定工作表对象，新建的工作表将置于此工作表之前。参数After是可选的，指定工作表对象，新建的工作表将置于此工作表之后。如果Before和After两者均省略，则新建的工作表将插入到活动工作表之前。参数Count可选，要新建的工作表的数目。默认值为1。参数Type可选，指定新建的工作表类型。第5行代码将添加的工作表重命名为“数据”。如果需要在工作簿中批量添加工作表，可以使用下面的代码。 1.Sub Addsh_2() 2. Dim i As Integer 3. Dim sh As Worksheet 4. For i = 1 To 10 5. Set sh = Sheets.Add(after:=Sheets(Sheets.Count)) 6. https://www.wendangku.net/doc/fa9089803.html, = i 7. Next 8.End Sub 代码解析： Addsh_2过程使用For...Next 语句和Add方法在工作簿中添加10张工作表并将添加的工作表依次重命名。

Excel VBA实例教程指南

Excel VBA教程之一:写在前面 VBA功能如何强大,这已勿庸费言,但如何才能很快进阶,写出自己满意得程序,却取决于个人努力与悟性。我下了很大功夫却收效甚微,有时,高手一句点拨却胜读三天书。所以,我把个人学习所得作一点整理,希望有助于后学。只所以会有瞧书没用之感,一来就是因为市面(我国)上大多数计算机类图书多为粗制滥造之作(这话稍有唐突),二来因为计算机这东西太呆板,不见得新出现得问题就能立即得到某本书籍上得解释,新问题总就是层出不穷得。7MuDj。想把一门编程语言全部搞懂,再去写点程序,就是一个十分愚蠢得想法。您想盖房子,难道您想先学会制造砖头、玻璃等？我承认,把语言弄懂再做事情会很顺手,但就是,您知道吗,有多少人在弄懂一门晦涩难懂得语言之前就放弃了呢？比如,什么叫面向对象编程？OOP与以前得流线性编程有什么异同？我还就是大力提倡学以致用,别指望什么事您都能成专家,计算机世界得“罗氏定理”就就是:“毕其一生,不能穷其万一”,您记住了吗？GGIko。那么,对于没有编程基础得人,怎样才能进步得快呢？我有几点思考: 1、您一定要带着明确得目得去做一件具体得事。这样,才会在做得过程中发现问题,并逐步去解决这些问题。比如,我想做一个《学生成绩分析系统》,我就会想到怎么才能把学生分数分成不同得班、怎么才能算出总分、平均分、标准差等、怎样比较各班得情况,怎样用图形显示更直观,怎么样才能把某个学生得历次成绩放在一起比较等。pVTNJ。 2、您动手去做一做,一点一点地完成您上面得设想,不必因为这个大工程没做出来而忽略您在局部得突破,这样,您会越来越有信心,这就够了,还有什么比有信心做事得感觉更好得了吗？UoyEz。 3、合理及时利用网络资源,这绝对就是个好东西,或许您瞧起来很了不起得问题,在别人瞧来简直不算什么,一定会有人为您解答。上网并不只就是QQ与game啊！同时要好好利用软件得帮助系统,这才就是最权威得解释,很多计算机书籍抄自帮助,您想,微软得专家写得,绝对原创,她还能去抄谁？NVsCr。 4、做了一些工作之后,再回过头来瞧书,就会感觉很亲切,觉得写书得人原来也不就是一无就是处,也就是很辛苦得(不要过分自我批评了)。不过,要瞧书,计算机类得,我百分之一万地推荐您瞧外国人写得,首先,软件就是人家编得,当然更了解。其次,外国人写得,又被介绍到中国来,也就是比较优秀得了。三来,我确实作过对比,瞧老外得书收益最大。语言不通得问题怎么办？金山词霸一下呗。LV7Cw。我为什么要写这个东西？一就是因为我想帮助别人,二就是因为我想因此促进自己,三就是因为我反感某些号称程序员得家伙,似乎编程就是一件多么了不起得事,用一些极端人士得话来说:“编程有什么了不起？不就就是判断与循环吗”,说得很有道理,从本质上说,计算机就就是在做判断与循环,不信您就跟着我来吧。pBfsG。好了,Let’s go Excel VBA教程之二:从一个界面设计开始一个好得软件,除了运算速度快、体积小后,更重要得就是,它得用户界面就是不就是很友好、亲切,“友好、亲切”这样得词汇在开始接触计算机语言时,感觉很好笑,但现在不一样了,我感觉这两个词最贴切！界面友好,就就是引导用户能很快找到她需要得服务,最能想到她得心思,最体贴她,让她不时地心动,不时地赞叹！界面友好,就就是能让用户在不经意间学到好多知识,无形中丰富了她自己,让她有美得享受！界面友好,还在于一目了然得界面却能让她需要得功能呼之即来,挥之即去！如此等等。WQfVJ。那么,我想做一个《学生成绩分析系统》,我该怎么做呢？以下得界面您满意吗？

Excel VBA实例教程 #008：仅复制数值到另一区域

如果在复制单元格区域时，仅希望复制单元格区域的数值，有下面几种方法。 1、使用选择性粘贴使用选择性粘贴功能并指定粘贴数值，如下面的代码所示。 1.Sub CopyPasteSpecial() 2. Sheet1.Range("A1").CurrentRegion.Copy 3. Sheet2.Range("A1").PasteSpecial Paste:=xlPasteValues 4. Application.CutCopyMode = False 5.End Sub 代码解析： CopyPasteSpecial过程复制工作表Sheet1中A1单元格的当前区域的数值到工作表Sheet2的A1单元格所在区域中。第2行代码将如图1所示的Sheet1中A1单元格的当前区域进行复制。图1 需复制的数据表第3行代码使用选择性粘贴功能并指定粘贴数值，选择性粘贴数值仅复制了单元格区域的数值，单元格区域的格式（背景颜色、字体对齐格式和边框等）不会被复制，复制结果如图8 2所示。图2 复制单元格区域数值 2、直接赋值的方法

除了使用Copy方法外，还可以使用直接赋值的方法，如下面的代码所示。 1.Sub GetValueResize() 2. With Sheet1.Range("A1").CurrentRegion 3. Sheet3.Range("A1").Resize(.Rows.Count, .Columns.Count).Value = .Value 4. End With 5.End Sub 代码解析： GetValueResize过程将工作表Sheet1中的A1单元格的当前区域的数值赋予工作表Sheet3的A1单元格所在的单元格区域。在对单元格区域直接赋值时，应保证源区域大小与目标区域的大小一致，如果源区域为动态的单元格区域，可使用Resize方法确定目标区域。运行GetValueResize过程，赋值结果如图2所示。

Excel VBA基础教程

Excel VBA基础教程 Excel VBA基础教程 Excel VBA教程是把VB编程应用在Excel平台的一套实用教程，Excel +VBA双剑合壁，他可以帮助我们实现Excel 原本实现不了的功能，可以让工作变得更高效，可以让操作变得变方便，可以把重复性的操作变得更有趣，随心所欲的定制自己的工作平台，还可以针对企业来开发各种系统如，人事管理系统、仓库系统、进存销系统等，对于经常要处理大量数据工作的朋友，学会了这套VBA教程你的工作将游刃有余。标题 Excel VBA基础教程 Excel VBA基础教程第一章：Excel VBA基础知识 1-1、Excel VBA教程简介 1-2、宏在工作中的运用

Excel VBA实例教程 #026：禁止删除指定工作表

在工作表事件中是没有工作表删除事件的，为了防止用户误删除重要的工作表，除了使用保护工作簿方法外，还可以使用下面的代码。 1.Public Ctl As CommandBarControl 2.Sub DelSht() 3.? ? Set Ctl = ? ? = "MyDelSht" 4.End Sub 5.Sub ResSht() 6.? ? Set Ctl = ? ? = "" 7.End Sub 8.Sub MyDelSht() 9.? ? If $ = "SHEET2" Then 10.? ?? ???MsgBox "禁止删除" & & "工作表!" 11.? ? Else 12.? ?? ??? 13.? ? End If 14.End Sub 代码解析： DelSht过程将工作表标签右键菜单中的“删除工作表”菜单的OnAction属性设置为“MyDelSht”。第3行代码使用Set语句将工作表标签右键菜单中的“删除工作表”菜单赋给变量Ctl，并将其OnAction属性设置为MyDelSht过程，该菜单被单击时将运行“MyDelSht”过程而不是系统默认的设置。OnAction属性返回或设置一个VBA的过程名，该过程在用户单击或更改某命令栏控件的值时运行。 ResSht过程将工作表标签右键菜单中的“删除工作表”菜单的OnAction属性恢复为默认设置。 MyDelSht过程判断所要删除的工作表的代码名称是否是“SHEET2”，如果是则禁止删除该表而只显示一个提示消息框。为了不影响其他工作簿的使用，在VBE中双击ThisWorkbook写入下面的代码。 1.Private Sub Workbook_Activate() 2.? ? Call DelSht 3.End Sub 4.Private Sub Workbook_Deactivate()

excelvba实例教程#054：导出工作表中的图片

有时需要将工作表中的图形对象保存为单独的图像文件，可以使用Export方法将工作表中的图片以文件形式导出，如下面的代码所示。 1.Sub ExportShp() 2. Dim Shp As Shape 3. Dim FileName As String 4. For Each Shp In 5.If = msoPicture Then 6.FileName = & "\" & & ".gif" 7. 8.With 0, + 28, + 30).Chart 9. .Paste 10. .Export FileName, "gif" 11. . 12.End With 13.End If 14. Next 15.End Sub 代码解析： ExportShp过程将Sheet1工作表的所有图片以文件形式导出到同一目录中。第4行代码使用For Each...Next 语句遍历Sheet1工作表中的所有图形。第5行代码判断图形的类型是否为图片，应用于Shape对象的Type属性返回或设置图形类型，可以为表格 1所示的

表格 1 MsoShapeType常量第6行代码使用字符串变量FileName记录需导出图形的路径和名称。第7行代码复制图形，应用于Shape对象的Copy方法将对象复制到剪贴板。第8行代码使用Add方法在工作表中添加一个图表，应用于ChartObjects对象的Add 方法创建新的嵌入图表，语法如下：(Left, Top, Width, Height) 参数expression是必需的，返回一个ChartObjects对象。

参数Left、参数Top是必需的，以磅为单位给出新对象的初始坐标，该坐标是相对于工作表上单元格A1的左上角或图表的左上角的坐标。参数Width、参数Height是必需的，以磅为单位给出新对象的初始大小。第9行代码使用Paste方法将图形粘贴到新的嵌入图表中，应用于Chart对象的Paste方法将剪贴板中的图表数据粘贴到指定的图表中，语法如下： (Type) 参数expression是必需的，返回一个Chart对象。参数Type是可选的的，如果剪贴板中有图表，本参数指定要粘贴的图表信息。可为以下XlPasteType常量之一：xlFormats、xlFormulas或xlAll。默认值为xlAll，如果剪贴板中是数据不是图表，则不能使用本参数。第10行代码使用Export方法将图表导出到同一目录中，应用于Chart对象的Export方法以图形格式导出图表，语法如下：(Filename, FilterName, Interactive) 其中参数Filename是必需的，被导出的文件的名称。第10行代码删除新建的图表。因为Chart对象是不能使用Delete方法直接删除的，应先使用Parent属性返回指定对象的父对象，然后使用Delete方法删除。