excel VBA程序开发自学宝典 第2版 全书案例文件.rar

【实例截图】

【核心代码】

全书案例文件

├── 第一章
│   ├── 提取身份证信息.xlsm
│   └── 批量获取身份证信息.xlam
├── 第七章
│   ├── Cells循环演示.xlsm
│   ├── End属性演示.xlsm
│   ├── ME关键字使用.xlsm
│   ├── 交换座次(CurrentRegion).xlsm
│   ├── 交换座次(Offset).xlsm
│   ├── 交换座次.xlsm
│   ├── 隔行着色.xlsm
│   ├── 颜色统计.xlsm
│   ├── 选择大于100的所有单元格.xlsm
│   ├── 反选复选框.xlsm
│   ├── 工作表减肥.xlsm
│   ├── 隔行插入行.xlsm
│   ├── 双击输入日期.xlsm
│   ├── 行列自动求和.xlsm
│   ├── 将区域转换为名称.xlsm
│   ├── 为生产表添加边框与底纹.xlsm
│   ├── 合并所有班级成绩到总表.xlsm
│   ├── 获取批注所在单元格地址.xlsm
│   ├── 转换数组区域的公式为值.xlsm
│   ├── 自动定位下一行第一个空单元格.xlsm
│   └── 复制标题以外的数据到当前表空白区.xlsm
├── 第九章
│   ├── 对小于B1的单元格填充背景.xlsm
│   ├── 代码分行.xlsm
│   ├── 代码缩进.xlsm
│   ├── 隐藏偶数列.xlsm
│   ├── 建立工作表目录.xlsm
│   ├── 获取数组最大值.xlsm
│   └── 利用数组标示不及格成绩.xlsm
├── 第八章
│   ├── Auto自动宏.xlsm
│   ├── Change事件引起的递归.xlsm
│   ├── 只在A1单击更新日期.xlsm
│   ├── 快速录入出勤表.xlsm
│   ├── 自动宏与事件的顺序.xlsm
│   ├── 自动设置工作表页眉.xlsm
│   ├── 事件的层次与执行顺序.xlsm
│   ├── 在状态栏显示选区地址.xlsm
│   ├── 移动鼠标报告图片边距.xlsm
│   ├── 未汇总则禁止关闭工作簿.xlsm
│   ├── 禁止修改工作簿窗口大小.xlsm
│   ├── 禁止用户修改工作簿窗口.xlsm
│   └── 利用事件设置新工作簿的工作表.xlsm
├── 第六章
│   ├── 确认权限.xlsm
│   ├── 自定义函数.xlsm
│   └── 为函数添加说明.xlam
├── 第十章
│   ├── 3秒钟自动关闭的信息框.xlsm
│   ├── Inputbox方法录入公式.xlsm
│   ├── Msgbox处理重命错误.xlsm
│   ├── VBA内置错误类型速查表.xlsm
│   ├── gosub示例.xlsm
│   ├── 将A1日期转换成星期.xlsm
│   ├── 以A1的值为文件名另存工作簿.xlsm
│   ├── 分班.xlsm
│   ├── 允许8到18点开启工作簿.xlsm
│   ├── 计算Office版本.xlsm
│   ├── 利用With提速.xlsm
│   ├── 旋转图形.xlsm
│   ├── 生成月历.xlsm
│   ├── 罗列字体.xlsm
│   ├── 选择负数.xlsm
│   ├── 防错处理一.xlsm
│   ├── 防错处理三.xlsm
│   ├── 防错处理二.xlsm
│   ├── 循环删除前20行.xlsm
│   ├── 获取周日列表.xlsm
│   ├── 错误处理函数.xlsm
│   ├── 创建工作表目录.xlsm
│   ├── 单元格文字动画.xlsm
│   ├── 单击录入勾与叉.xlsm
│   ├── 多功能选区统计.xlsm
│   ├── 多条件计算奖金.xlsm
│   ├── 批量生成复选框.xlsm
│   ├── 多条件计算奖金1.xlsm
│   ├── 计算得分累积到1000的场次.xlsm
│   ├── 多条件计算奖金2.xlsm
│   ├── 定制另存为对话框.xlsm
│   ├── 根据成绩返回评语.xlsm
│   ├── 根据月份判断季度.xlsm
│   ├── 错误处理的作用域.xlsm
│   ├── 指定错误的处理方式.xlsm
│   ├── 根据成绩设置背景色.xlsm
│   ├── 统一图片高度及边距.xlsm
│   ├── 计算工资中零钱结余.xlsm
│   ├── 错误三次则退出程序.xlsm
│   ├── 任意选区行列自动求和.xlsm
│   ├── 对错信息进行重新描述.xlsm
│   ├── 循环执行等待消除错误.xlsm
│   ├── 按指定值设置单元格背景色.xlsm
│   ├── 按指定月份批量创建工作表.xlsm
│   ├── 禁止打印总表以外的工作表.xlsm
│   ├── 统一图片高度及对齐单元格.xlsm
│   ├── 利用数据有性建立工作表目录.xlsm
│   ├── 判断区域中是否存在合并单元格.xlsm
│   └── 以指定格式的今日日期显示工作簿标题.xlsm
├── 第四章
│   └── Like用法.xlsm
├── 第三十章
│   ├── Flash.swf
│   ├── PIC
│   │   ├── 冯.jpg
│   │   ├── 卫.jpg
│   │   ├── 吴.jpg
│   │   ├── 周.jpg
│   │   ├── 孙.jpg
│   │   ├── 尤.jpg
│   │   ├── 朱.jpg
│   │   ├── 李.jpg
│   │   ├── 杨.jpg
│   │   ├── 沈.jpg
│   │   ├── 王.jpg
│   │   ├── 秦.jpg
│   │   ├── 蒋.jpg
│   │   ├── 褚.jpg
│   │   ├── 许.jpg
│   │   ├── 赵.jpg
│   │   ├── 郑.jpg
│   │   ├── 钱.jpg
│   │   ├── 陈.jpg
│   │   ├── 韩.jpg
│   │   ├── 陈1.JPG
│   │   └── 导入图片.xlsx
│   ├── 百宝箱.xla
│   ├── 工作簿合并
│   │   ├── 一班.xlsx
│   │   ├── 三班.xlsx
│   │   └── 二班.xlsx
│   ├── 自定义函数
│   │   ├── 测试数据.xlsm
│   │   ├── 自定义函数.xla
│   │   └── 自定义函数说明.doc
│   └── 批量导入图片
│       ├── 冯云.jpg
│       ├── 李靖.jpg
│       ├── 沈划.jpg
│       ├── 褚华.jpg
│       ├── 赵云.jpg
│       ├── 赵宏.jpg
│       ├── 钱丽.jpg
│       ├── 钱秦.jpg
│       ├── 陈芳.jpg
│       ├── 冯丽鹃.jpg
│       ├── 卫斯理.jpg
│       ├── 吴起名.jpg
│       ├── 周丽芳.jpg
│       ├── 孙卫东.jpg
│       ├── 朱明明.jpg
│       ├── 李师师.jpg
│       ├── 秦通丽.jpg
│       ├── 许卫芳.jpg
│       ├── 赵明明.jpg
│       ├── 赵还珠.jpg
│       └── 人事表.xlsx
├── 第二十章
│   ├── 设计左键快捷菜单.xlsm
│   ├── 窗体中创建快捷菜单.xlsm
│   ├── 获取内部所有快捷键.xlsm
│   ├── 由用户定义子菜单容器.xlsm
│   ├── 选择图表才出现的菜单.xlsm
│   ├── 创建两个单元格右键菜单.xlsm
│   ├── 指定工作表才出现的菜单.xlsm
│   ├── 选择已用区域菜单才可用.xlsm
│   ├── 创建关机与重启两个工作表菜单.xlsm
│   └── 打造最强大的单元格右键菜单集合.xlsm
├── 第十一章
│   ├── Application.xlsm
│   ├── Comments.xlsm
│   ├── Names.xlsm
│   ├── PIC
│   │   ├── 冯.jpg
│   │   ├── 卫.jpg
│   │   ├── 吴.jpg
│   │   ├── 周.jpg
│   │   ├── 孙.jpg
│   │   ├── 尤.jpg
│   │   ├── 朱.jpg
│   │   ├── 李.jpg
│   │   ├── 杨.jpg
│   │   ├── 沈.jpg
│   │   ├── 王.jpg
│   │   ├── 秦.jpg
│   │   ├── 蒋.jpg
│   │   ├── 褚.jpg
│   │   ├── 许.jpg
│   │   ├── 赵.jpg
│   │   ├── 郑.jpg
│   │   ├── 钱.jpg
│   │   ├── 陈.jpg
│   │   └── 韩.jpg
│   ├── Range.xlsm
│   ├── 每30分钟备份.xlsm
│   ├── 切换.xlsm
│   ├── 生产表
│   │   ├── 一车间.xls
│   │   ├── 三车间.xls
│   │   ├── 二车间.xls
│   │   └── 四车间.xls
│   ├── 成绩表.txt
│   ├── 人事资料
│   │   └── 人事报表.xls
│   ├── 底纹图片.jpg
│   ├── 背景着色.xlsm
│   ├── 拆分工作簿.xlsm
│   ├── 创建三级菜单.xlsm
│   ├── 导入文本文件.xlsm
│   ├── 设置背景图片.xlsm
│   ├── 选区字符统计.xlsm
│   ├── 切换按钮背景色.xlsm
│   ├── 创建与保存时间.xlsm
│   ├── 创建工作表目录.xlsm
│   ├── 工作表批量命名.xlsm
│   ├── 快速录入出勤表.xlsm
│   ├── 新建汇总工作表.xlsm
│   ├── 每秒钟滚动一行.xlsm
│   ├── 自动跳过公式区.xlsm
│   ├── 记录文件打开次数.xlsm
│   ├── 鼠标移动录入姓名.xlsm
│   ├── 鼠标移过加载图片.xlsm
│   ├── 三种方法不显示零值.xlsm
│   ├── 自动设置工作表页眉.xlsm
│   ├── 开启任意工作簿时备份.xlsm
│   ├── 清除打开工作簿的密码.xlsm
│   ├── 计算活动单元格左边距.xlsm
│   ├── 除了月底禁止打印总表.xlsm
│   ├── 隐藏目录以外的工作表.xlsm
│   ├── 未汇总则禁止关闭工作簿.xlsm
│   ├── 不打开工作簿而获取其数据.xlsm
│   ├── 利用数字简化公司名称输入.xlsm
│   ├── 在批注中存放所有修改记录.xlsm
│   ├── 在状态栏显示选区最大值地址.xlsm
│   ├── 新建工作簿并调用保存对话框.xlsm
│   ├── 新建工作表时以当前时间命名.xlsm
│   ├── 利用事件设置新工作簿的工作表.xlsm
│   ├── 建立所有工作簿中的工作表目录.xlsm
│   ├── 鼠标移过列表框输入品名与单价.xlsm
│   └── 合并指定文件夹下每个工作簿中三月生产表到一个工作簿.xlsm
├── 第十七章
│   ├── 标示100分科目.xlsm
│   ├── 获取Email地址.xlsm
│   ├── 取出a开头的单词.xlsm
│   ├── 位置匹配.xlsm
│   ├── 数字分列.xlsm
│   ├── 限量匹配.xlsm
│   ├── 单字符匹配.xlsm
│   ├── 排除型匹配.xlsm
│   ├── 仅汇总人民币.xlsm
│   ├── 标示重复字词.xlsm
│   ├── 汇总采购金额.xlsm
│   ├── 盈亏平月标示.xlsm
│   ├── 计算建筑面积.xlsm
│   ├── 认识可选匹配.xlsm
│   ├── 分列的高级应用.xlsm
│   ├── 转换电话薄格式.xlsm
│   ├── 迟到人员统计表.xlsm
│   ├── 去除首尾空白字符.xlsm
│   ├── 合计括号中的数值.xlsm
│   ├── 返回文件名与路径.xlsm
│   ├── 前期绑定与后期绑定.xlsm
│   └── 贪婪匹配与惰性匹配.xlsm
├── 第十三章
│   ├── 获取批注.xlsm
│   ├── 转置区域.xlsm
│   ├── 学员资料查询.xlsm
│   ├── 获取相同项目.xlsm
│   ├── 生成百家姓序列.xlsm
│   ├── 自定义数组函数.xlsm
│   └── 批量获取文件信息.xlsm
├── 第十九章
│   ├── 获取内置命令.xlsm
│   ├── 获取并保存内部图标.xlsm
│   ├── 可读写的弹出式工具栏.xlsm
│   ├── 添加一个自定义工具栏.xlsm
│   ├── 自定义三级下拉式工具栏.xlsm
│   ├── 利用工具栏文字框查找数据.xlsm
│   └── 在自定义工具栏建工作表目录.xlsm
├── 第十二章
│   ├── 查找不及格人员.xlsm
│   └── 两个数组中相同项与不同项.xlsm
├── 第十五章
│   ├── Flash播放器
│   │   └── Flash播放器.xlsm
│   ├── 动画.swf
│   ├── 嵌入Flash.xls
│   ├── 播放Gif动画.xlsm
│   ├── 百宝箱.gif
│   ├── 批量插入单选框并分组.xlsm
│   ├── 打造具有唯一值的下拉列表.xlsm
│   └── 利用列表框打造个性化化的下拉选单.xlsm
├── 第十八章
│   ├── only.xlsm
│   ├── 关于引用.xlsm
│   ├── 分类汇总.xlsm
│   ├── 快速查询.xlsm
│   ├── 标示重复值.xlsm
│   └── 快捷调用选区.xlsm
├── 第十六章
│   ├── C盘中所有文件列表.xlsm
│   ├── 让Excel随心所欲地选择打开方式.xlsm
│   ├── 获取CDE三个磁盘的目录列表.xlsm
│   ├── 获取D盘中所有Excel文件.xlsm
│   ├── 删除D盘中大小为0的文件夹.xlsm
│   ├── 获取IP信息.xlsm
│   ├── 打开网上邻居.xlsm
│   ├── 获取磁盘信息.xlsm
│   ├── 获取文件夹信息.xlsm
│   ├── 在收藏夹添加网址.xlsm
│   ├── 显示桌面所有文件列表.xlsm
│   ├── 锁定数字键与大写字母.xlsm
│   ├── 创建当前工作簿的快捷方式.xlsm
│   └── 提取选择的文件夹中所有文件的信息.xlsm
├── 第十四章
│   ├── andy.swf
│   ├── sky.swf
│   ├── 图片
│   │   ├── 1.jpg
│   │   ├── 10.jpg
│   │   ├── 11.jpg
│   │   ├── 12.jpg
│   │   ├── 13.jpg
│   │   ├── 14.jpg
│   │   ├── 15.jpg
│   │   ├── 16.jpg
│   │   ├── 17.jpg
│   │   ├── 18.jpg
│   │   ├── 19.jpg
│   │   ├── 2.jpg
│   │   ├── 20.jpg
│   │   ├── 3.jpg
│   │   ├── 4.jpg
│   │   ├── 5.jpg
│   │   ├── 6.jpg
│   │   ├── 7.jpg
│   │   ├── 8.jpg
│   │   └── 9.jpg
│   ├── 背景
│   │   ├── 1.jpg
│   │   ├── 10.jpg
│   │   ├── 2.jpg
│   │   ├── 3.jpg
│   │   ├── 4.jpg
│   │   ├── 5.jpg
│   │   ├── 6.jpg
│   │   ├── 7.jpg
│   │   ├── 8.jpg
│   │   └── 9.jpg
│   ├── 背景.bmp
│   ├── 播放Flash动画.xlsm
│   ├── 逐步提示.xls
│   ├── 权限验证.xlsm
│   ├── 登录窗体.xlsm
│   ├── 高级查询.xlsm
│   ├── 执行对话框.xlsm
│   ├── 设计超链接.xlsm
│   ├── 随机背景图.xlsm
│   ├── 双击关闭窗体.xlsm
│   ├── 多工作表录入.xlsm
│   ├── 设置光标属性.xlsm
│   ├── 设计动画帮助.xlsm
│   ├── 汇总并按需导出.xlsm
│   ├── 设置复合框属性.xlsm
│   ├── 利用窗体预览图片.xlsm
│   ├── 设计计划任务向导.xlsm
│   ├── 让文字框仅能录入6位数字.xlsm
│   ├── 为控件没置帮助信息.xlsm
│   ├── 窗体缩放与滚动事件.xlsm
│   ├── 鼠标调整文字框宽度.xlsm
│   ├── 窗体永远显示在上左角.xlsm
│   ├── 窗体初化时设置复合框的数据源.xlsm
│   └── 让列表框随鼠标移动显示不同班级的学员资料.xlsm
├── 第二十一章
│   ├── 颜色面板.xlsm
│   ├── 批量添加按钮的事件.xlsm
│   ├── 在标题中显示工作簿路径.xlsm
│   └── 对任意工作表进行选区着色.xlsm
├── 第二十七章
│   ├── VBA代码百宝箱.xla
│   ├── 获取VBE中命令栏信息.xlsm
│   ├── 自定义VBE工具栏.xlsm
│   └── 设计工具栏.xlsm
├── 第二十三章
│   ├── 用10次后就自我删除的工作簿.xlsm
│   ├── 控制U盘的使用.xlsm
│   ├── 让零值显示设置适用所有工作表.xlsm
│   └── 记录当前工作簿最后一次打开时间.xlsm
├── 第二十九章
│   ├── 安装软件
│   │   ├── equal.ICO
│   │   ├── equal.dll
│   │   ├── setup.exe
│   │   ├── 信息.txt
│   │   ├── 许可.txt
│   │   └── 安装文件(请修改代码中的路径).iss
│   ├── 安装软件2
│   │   ├── equal.ICO
│   │   ├── equal.dll
│   │   ├── setup.exe
│   │   ├── 信息.txt
│   │   ├── 许可.txt
│   │   ├── 自定义安装文件.iss
│   │   └── 相同项与不同项使用说明.exe
│   ├── 相同与不同
│   │   ├── Connect.DCA
│   │   ├── Connect.Dsr
│   │   ├── Form1.frm
│   │   ├── MSSCCPRJ.SCC
│   │   ├── Module1.bas
│   │   ├── MyAddIn.vbp
│   │   ├── MyAddIn.vbw
│   │   ├── UserForm1.DCA
│   │   ├── UserForm1.dsx
│   │   ├── UserForm1.frm
│   │   ├── UserForm1.frx
│   │   ├── equal.dll
│   │   ├── equal.exp
│   │   ├── equal.lib
│   │   ├── 相同项与不同项使用说明.exe
│   │   └── 相同项与不同项使用说明.gif
│   ├── 重复值控制
│   │   ├── Connect.DCA
│   │   ├── Connect.Dsr
│   │   ├── Connect.dsx
│   │   ├── MSSCCPRJ.SCC
│   │   ├── Module1.bas
│   │   ├── MyAddIn.vbp
│   │   ├── MyAddIn.vbw
│   │   ├── cbEvents.cls
│   │   ├── 卸载.bat
│   │   ├── 安装.bat
│   │   ├── 重复值控制器.dll
│   │   ├── 重复值控制器.exp
│   │   ├── 重复值控制器.lib
│   │   └── 重复值控制器.pdb
│   └── 相同项与不同项.xla
├── 第二十二章
│   ├── 设计彩蛋.xlsm
│   ├── 设计半圆窗体.xlsm
│   ├── 非设计模式移动ActiveX控件.xlsm
│   ├── 任意地方拖动窗体.xlsm
│   ├── 自动填写邮件内容.xlsm
│   ├── 设计窗体文字动画.xlsm
│   ├── 删除文件且存入回收站.xlsm
│   ├── 设计百叶窗式动态窗体.xlsm
│   ├── 拖动窗体随意修改窗体大小.xlsm
│   └── 限制鼠标在窗体范围内移动.xlsm
├── 第二十五章
│   ├── 罗列VBE中的组件及类型.xlsm
│   ├── 创建新模块.xlsm
│   ├── 在所有工作表创建ActiveX控件且编写单击事件代码.xlsm
│   ├── 删除工作簿中所有代码.xlsm
│   ├── 判断工作簿是否有宏代码.xlsm
│   ├── 计算所有模块中代码行数.xlsm
│   ├── 生成工作簿事件过程的代码.xlsm
│   ├── 获取指定模块中的所有过程.xlsm
│   └── 自动生成窗体控件及事件代码.xlsm
├── 第二十八章
│   ├── 定义函数.dll
│   ├── 鼠标移动着色(2010版).xlam
│   └── 公农历日期输入器.xlam
└── 第二十四章
    ├── 1.jpg
    ├── 2.jpg
    ├── 3.jpg
    ├── 4.jpg
    ├── 5.jpg
    ├── 6.jpg
    ├── Clock.ICO
    ├── Office文件菜单.xlsm
    ├── splitButton按钮.xlsm
    ├── 合并
    │   ├── 1.jpg
    │   ├── 2.jpg
    │   └── 图片库.xlsm
    ├── 样本.xlsm
    ├── 问候.xlsm
    ├── 图片库
    │   ├── 图书
    │   │   ├── Excel 2007函数案例速查宝典.jpg
    │   │   ├── Excel 2010 VBA编程与实践.jpg
    │   │   ├── Excel 2010函数与图表速查手册.jpg
    │   │   └── Excel VBA程序开发自学宝典.jpg
    │   ├── 电器
    │   │   ├── 手机联想p609.jpg
    │   │   ├── 打印机喷墨.jpg
    │   │   ├── 显示器三星.jpg
    │   │   ├── 打印机佳能3000.jpg
    │   │   ├── 手机诺基亚6124.jpg
    │   │   ├── 打印机爱普生.jpg
    │   │   ├── 显示器飞利浦.jpg
    │   │   └── 手机诺基亚彩屏.jpg
    │   └── 动态功能区.xlsm
    ├── 组合框.xlsm
    ├── 导出图片.xlam
    ├── 下拉列表.xlsm
    ├── 下拉菜单.xlsm
    ├── 切换按钮.xlsm
    ├── 显示时钟.xlsm
    ├── 工作表目录.xlam
    ├── 功能区样本.xlsm
    ├── 图标查看器.xlsm
    ├── 第一个按钮.xlsm
    ├── 第二个按钮.xlsm
    ├── 锁定内命令.xlsm
    ├── 图形对象管理.xlsm
    ├── 对话框启动器.xlsm
    ├── 随机显示图标.xlsm
    ├── 标签与复选控件.xlsm
    ├── 照相机与更改形状.xlam
    ├── 调用内置按钮和组.xlsm
    ├── 隐藏部分置选项卡.xlsm
    ├── 利用图标展示星期几.xlsm
    ├── 利用文字框快速查找.xlsm
    ├── 在开始菜单插入新组.xlsm
    ├── 定制快速访问工具栏.xlsm
    ├── 修改内置选项卡的名称.xlsm
    ├── 修改内置选项卡的快捷键.xlsm
    └── 文字框与下拉控件回调案例.xlsm

44 directories, 478 files