Excel 2007 VBA范例大全

1  单元格选择技巧与选区统计

1.1  单元格与区域选择技巧

实例选择A列最后一个非空单元格

实例基于指定位置的偏移量的选取

实例选择当前列最大值

实例选择所有负数单元格

实例选择工作表已用区域及单元格所在区域

实例选择数组公式区域

实例返回单元格合集与交集

实例选择背景色为红色的单元格

实例选择字体为兰色之单元格

实例10  选择粗线边框之单元格

实例11  反向选择工作表

实例12  选择单元格区域但排除首行标题

实例13  每隔三行选一行

实例14  选择奇数列

1.2  多表单元格选择

实例15  同时选择三个表的B2B11

实例16  选本表以外所有工作表的B2B11区域

实例17  选中名字包含“星期”的工作表的已用区域

1.3  对选区进行基本统计

实例18  提取选区地址并计数

实例19  判断选区隐藏单元格个数

实例20  列出隐藏单元格地址

实例21  统计选区空白单元格个数

实例22  统计选区公式个数

实例23  计算已用行列数

实例24  统计带批注之单元格个数

实例25  统计选区格式为“常规”之单元格个数

实例26  分别统计选区文本与字母、数字个数

实例27  统计选区中负数个数

1.4 本章小结

2  单元格数据处理技巧

2.1  选区数字、文本及字母转换

实例28  将选择区域公式转化成数值

实例29  将当前区域公式转化成数值

实例30  将指定区域数字格式转换为文本

实例31  自动将小写转化为大写

实例32  将英文转为首字母大写

2.2  修改选区格式

实例33  修改日期格式

实例34  将选区零值替换为空

实例34  将区域数据改为为单位

实例36  ”#”号上标显示

实例37  修改任意字符为上标

实例38  任意字符添加下划线

实例39  任意字符上方添加着重符

实例40  用工作表函数对A列数据排序

2.3  修改选区数据

实例41  多个单元格区域数据互换

实例42  填充空白单元格

实例43  填充公式

实例44  批量填充单元格数据

实例45  删除“不采用建议”字符所在行

实例46  瞬间删除空白行

实例47  瞬间删除空白单元格所在行

实例48  瞬间删除选区空格

实例49  行列之隐藏与取消

实例50  符合三个條件则匯總数据

实例51  汇总行列值

 

2.4  控制选区的不重复值

实例52  统计字符在选区的重复次数

实例53  报告重复数据的地址

实例54  检查重复数据重复次数

实例55  统计选区不重数据个数

实例56  提取列数据之不重复值

实例57  提取多列数据不重复值

实例58  单列不允许输入重复值

实例59  双列控制不重复值

实例60  跨工作表控制不重复值

2.5  链接功能的使用

实例61  单元格链接

实例62  工作表链接

实例63  删除其它工作表工作簿之数据链接

实例64  删除工作表自己添加的网址及MAIL地址链接

2.6  批注功能的使用

实例65  快捷键添加日期批注并自动缩放

实例66  批量添加批注

实例67  批量删除批注

实例68  将指定列数据添到加批注

实例69  添加图片批注

实例70  添加个性化批注

实例71  批量修改批注

实例72  为公式添加标注

2.7  合并单元格相关操作

实例73  全选合并单元格

实例74  将所有合并单元格加上背景

实例75  取消所有合并单元格之合并

实例76  取得合并单元格的首个和末尾地址

实例77  合并数据并居中

实例78  合并数据并粘贴

实例79  批量合并单元格

实例80  恢复合并

实例81  取得合并单元格数目

实例82  报告合并单元格地址

实例83  对所有合并单元格添加批注并注示序数

实例84  将已用区域合并取消并让空白单元格等于原合并值

2.8  数据查询与替换

实例85   查找单价

实例86   多表成绩搜索

实例87   电话簿查询

实例88   双循环工号查询

实例89  将工作表中“PC”批量替换成电脑

实例90  将所有工作表中成绩大于60者考分替换成“合格”

2.9  处理名称

实例91  对区域及图片、图表命名

实例92  显示与隐藏名称

实例93  将包含指定名称的对象隐藏

实例94  利用名称动态求和

2.10  其它应用

实例95  发邮件及开启网址

实例96  单元格数据放大

实例97  产生不重复随机数

实例98  将含有分割符之数据转为下拉列表

实例99  生成带圈之编号

实例100  单元格动态显示时间

实例101  根据指定最大值和最小值求所有数据之和

实例102  利用勾股定理求弦长

实例103  输入三边长求三角形面积

实例104  指定时间出现“会议时间到”的提示

2.11  本章小结

3  条件格式及数据突现方式

3.1  条件格式其它数据突现方式

实例105  用黄色字体突出显示当前行

实例106  黑体字体显示男生成绩

实例107  灰色底纹显示优异成绩之成员

实例108  对区域中最大值添加下划线

实例109  对区域中超过平均值之数据加粗倾斜

实例110  用彩色条标示区域值的大小

实例111  列举所有颜色与索引值

实例112  将重复值加上虚框

实例113  圈释目标

3.2  管理条件格式规则

实例114  在已有条件格式区域增加条件

实例115  删除区域的条件格式

实例116  删除工作簿中所有的条件格式

实例117  提升第三个条件优先为一

3.3  本章小结

4  排序

4.1  对数值和文本排序

实例118  对选区数值以升序排序

实例119  对选区文本以字母顺序升序排序

实例120  对选区文本以笔划顺序降序排序

实例121  对选区数据区分大小写排序

实例122  对选区区分大小写对文本排序

4.2  按颜色排序

实例123  按单元格背景颜色对当前列排序

实例124  按单元格字体颜色对当前列排序

实例125  按单元格字体颜色扩展区域排序且有标题

4.3  多条件排序

实例126  双条件排序首列数值升序次列笔划降序

实例127  背景色和拼音单列双条件排序

4.4  本章小结

5  数据筛选

5.1  单条件数据筛选

实例128  筛选大于10之数据

实例129  筛选小于等于300之数据

实例130  筛选高于平均值之数据

实例131  筛选前五个最大值

实例132  筛选不包含目标之数据

实例133  按颜色筛选数据

5.2  多条件数据筛选

实例134  排除212之数据

实例135  排除小于5的数据但等于1时例外

实例136  筛选姓曲、姓名为三个字且不包含飞之数据

实例137  筛选最后一个字符不为仙且长度为2之数据

5.3  去除筛选

实例138  去除区域中的筛选状态

实例139  去除单列筛选状态

5.4  本章总结

6  处理图形与艺术字

6.1  图形的基本操作

实例140  生成椭圆图形并双色渐变填充图形背景

实例141  修改图形边框色与宽度

实例142  旋转图形

实例143  图形的批量删除

实例144  隐藏与显示图形

实例145  移动图片并设置其填充图形背景

实例146  将图片导出至硬盘

实例147  将单元格区域转换成图片

实例148  检测单元格是否被图片覆盖

6.2  使用艺术字

实例149  插入艺术字

实例150  修改艺术字外形及填充色

6.3  图形的综合运用

实例151  将所有图形垂直与水平翻转

实例152  复制签名

实例153  动态旋转图形

实例154  制作风扇

实例155  取得指定文件夹下图片名称

实例156  批量调整片适合单元格大小

实例157  旋转艺术字

实例158  让图片跟随鼠标

实例159  根据名称显示图形

实例160  批量修改复选框的值

实例161  按姓名插入图片

6.4  图形在窗体中的运用

实例162  将工作表填充至窗体

实例163  加载窗体图片

实例164  窗体中预览图片

实例165  随机更换图片

6.5 本章小结

7  处理图表中的技巧

7.1  编辑图表

实例166  显示与隐藏标签、网格

实例167  修改图表标题与座标轴标题

实例168  用图片填充背景墙

实例169  动态显示鼠标所在列数据之图表

实例170  利用动态名称运态显示图表内容

实例171  利用图表制作进度条

实例172  批量修改数据标签

实例173  随心所欲显示图表类型

7.2  图表至图片之转化

实例174  将图片转换成图片

实例175  让图表显示在窗体中并双击更新

7.3  本章小结

8  控制工作表

8.1  工作表的建立、删除、改名与排序

实例176  建新工作表前检查是否具有同名工作表

实例177  批量新建工作表并以日期命名

实例178  禁止新增工作表

实例179  本工作簿及其它工作簿间移动工作表

实例180  启用宏方可进入指定工作表

实例181  禁止进入某工作表

实例182  禁止进入指定工作表以外的工作表

实例183  判断工作簿中是否包含指定工作表

实例184  删除汇总表以外的所有分表

实例185  删除工作簿中所有空白工作表

实例186  禁止修改工作表名

实例187  禁止另存为别的名称

实例188  恢复所有工作表的默认名称

实例189  工作表排序

实例190  语音提示工作表名

8.2  保存与备份工作表

实例191  定时保存

实例192  保存时自动备份文件

8.3  工作表显示与隐藏

实例193  工作表显示与隐藏

实例194  显示所有的被隐藏的工作表

实例195  根据分辨率调整工作表视图

8.4  打开工作表

实例196  后台打开EXCEL文件

实例197  调用打开对话框

实例198  向其它工作表

实例199  打开数据库

实例200  导入文本文件到工作表

实例201  导出工作表到TXT

实例202  调用最近打开的第三个文件

实例203  每次打开都进入同一工作表

8.5  工作表目录

实例204  建立菜单式工作表目录

实例205  在工作表建立目录

实例206  在单个单元格建立工作表目录

实例207  返回工作表目录

8.6  用工作表播放音乐

实例208  工作表播放MP3

实例209  工作簿背景音乐

8.7  工作表事件的运用

实例210  右键查看输入选项

实例211  激活工作表时提示本工作表是否空白

实例212  双击提示现在的时间

实例213  工作表事件在人事管理中的运用

添加一个功能:滚动显示工作表

8.8  本章小结

9  多工作表操作

9.1  多表数据运算与透视

实例215  将数据追加到分表

实例216  多表求和

实例217  建立多表之数据透视一

实例218  建立多表之数据透视二

9.2  工作表拆分

实例219  当前工作表拆分到多表(乱序)

实例220  当前工作表拆分到多表(有序)

实例221  将多工作表拆分成同路径下多工作簿

9.3  工作表合并

实例222  多表数据合并

实例223  多工作簿合并到本工作簿

实例224  多工作簿合并到当前工作表

9.4  本章小结

10  工作表页面设置与打印

10.1  页面设计

实例225  取得当前工作表页数

实例226  页面设置(设定打印区域、设置页边距及居中方式/改缩放比例及打印方向)

实例227  按条件插入分页

实例228  将单元格数据转化为页脚

实例229  分页小计

10.2  打印

实例230  一次打印多个工作表

实例231  打印当前光标所在页

实例232  禁止打印当前工作表

10.3  本章小结

11  工作簿安全处理

11.1  文件加锁

实例233  指定用户名方可开启本工作簿

实例234  本电脑方可打开本工作簿

实例235  工作表反向加密

实例236  不用密码锁定编辑区域

实例237  锁定鼠标移动范围

实例238  批量保护工作表

11.1 文件与代码删除方式

实例239  文件定时自杀

实例240  文件只能使用三次

实例241  VBA代码自杀

实例242  删除“中国”则工作簿自杀

11.3  本章小结

12  文件与目录

12.1  创建与管理文件

实例243  批量创建工作簿

实例244  文件复制并命名

实例245  修改文件创建时间

实例246  生成桌面快捷方式

12.2  获取文件相关属性

实例247  判断文件大小及文件修改时间

实例248  取得当前文件路径

实例249  判断文件夹中指定文件是否存在

实例250  列举指定文件夹下所有EXCEL文件

实例251  报告指定文件夹下隐藏文件个数

12.3  管理文件夹

实例252  查看与修改目录属性

实例253  列出D盘所有目录

实例254  计算驱动器数目

实例255  建立与删除目录

实例256  打开指定目录

实例257  删除空文件夹

实例258  获取磁盘卷标和可用空间

12.4  本章小结

13  窗体与控件

13.1  窗体基本属性

实例259  枚举窗体属性

实例260  窗体基本属性设置

实例261  窗体之装载与卸载

13.2  修改窗体显示模式

实例262  窗体位置在屏幕中央

实例263  窗体全屏显示

实例264  为窗体添加最大化简小化按钮

实例265  为窗体添加图标

实例266  去除窗体边框

实例267  将窗体置于上层

实例268  去除与复位窗体的关闭按钮

实例269  让窗体在指定时间逐渐退出

13.3  窗体事件的运用

实例270  运行窗体时隐藏程序

实例271  单击修改背景双击修改名字

实例272  鼠标移过时隐藏图片控件

实例273  右击窗体循环显示艺术字

实例274  移动窗体时报告窗体座标

实例275  ALT+F4关闭窗体改为ESC

实例276  关闭窗体时报窗体中控件数目

实例277  左键拖动窗体

实例278  移动窗体的标签并显示标签座标

13.4  文本框

实例279  控制文本框的层次

实例280  设置文本框的密码样式

实例281  限制用户输入数字

实例282  批量锁定文本框

实例283  文本框输入完毕后自行执行命令

实例284  利用微调框控制文本框数字

实例285  文本框向工作表添加数据并检测重复性

13.5  列表框

实例286  列表框数据之导入与导出

实例287  列表框追加数据

实例288  两个列表框之间的内容转移

实例299  动态数据列表框使用

实例290  利用列表框查询成绩

实例291  用列表框控件打造增强性数据有效性

13.6  组合框

实例292  用组合框快速输入数据

实例293  添加不重复值到组合框

13.7  网页控件

实例294  窗体中调用网页

实例295  窗体创建网页且

实例296  窗体中使用滚动文字

实例297  窗体中显示GIF

13.8  FLASH控件

实例298  窗体中播放FLASH

实例299  控制播放FLASH

13.9  图片控件

实例300  图片控件的缩放与排列

实例301  用复合框控件图片显示

实例302  让图片循环滚动

实例303  用图像控件打造动态按钮

13.10  窗体与控件的综合运用

实例304  利用日历控件输入日期

实例305  一个按钮执行两个不同程序

实例306  让控件适合窗体的缩放

实例307  设计验证登录框

实例308  制作百叶窗效果的欢迎画面

实例309  利用圆窗体与网页打造时钟

13.11  本章小结

14  自定义函数

14.1  数值运算类

实例310  按字体色求和

实例311  分数型数据求和

实例312  N位和

实例313  按业务量和工龄计算提成

实例314   N次方和

实例315  去首尾求平均

实例316  根据边长求三角形周长和面积

实例317  对指定范围求和与求积

14.2  引用类

实例318  引用区域唯一值

实例319  引用单元格格式

实例320  引用区域中非空值

实例321  枚举工作表名

实例322  返回列号对应之英文字母

14.3  文本处理类

实例323  按分割符取数

实例324  分离数字

实例325  增强型字符连接函数

实例326  从右向左查字符在某字符串的位置

实例327  返回单元格之批注

实例328  根据身份证号返回性别

实例329  大写 

14.3  本章小结

15  设制界面与菜单

15.1  定义EXCEL显示方式

实例330  屏弊EXCEL部分显示功能(网络线/标尺/滚动条)

实例331  自定义状态栏进度条

实例332  增强型状态栏

实例333  状态栏滚动显示日期

15.2  定义功能区菜单

实例334  枚举所有菜单

实例335  在功能区建立自己的工具按钮

实例336  添加工作表标签菜单

实例337  自定义按钮图标

实例338  生成一二级菜单(关机/重启/锁屏)

实例339  禁用与隐藏自定义菜单项

实例340  生成图表专用菜单

15.3  定义快捷键

实例341  禁用与启用快捷键

实例342  重定义快捷键(禁用快捷键)

实例343  给宏指定快捷方式

15.4  定义右键菜单

实例344  禁用右键前三个选项

实例345  在右键中建立工作表目录

实例346  为右键赋与新功能——选区缩放

实例347  添加“返回首页”功能于右键

15.5         本章小结

16   加载宏

16.1 将工作簿转为加载宏

实例348  手工转换工作簿为加载宏

实例349  用代码转换工作簿为加载宏

16.2 加载宏加载与卸载

实例350  加载与卸载加载宏

16.3 本章小结

 

17   综合实例运用

17.1 多功能通讯簿

17.1.1  系统内容说明

17.1.2  界面设计与系统结构

17.1.3  关键技术运用

17.1.4  程序代码分析

16.2人事资料管理

17.2.1  系统内容说明

17.2.2  界面设计与系统结构

17.2.3  关键技术运用

17.2.4  程序代码分析

17.3本章小结

 

 

附录A  VBA常用函数

附录B  VBA方法列表