宏文件实例。

xolf

如题。2007年8月。《excel宏魔法书》一书案例资料，转帖。

 

H9JH7XF8.rar (1.79 MB, 下载次数: 12688)

2007-8-19 22:36 上传

点击文件名下载附件
宏文件实例。

[em08]

F:\example\第四章实例\综合技巧实例_Word与Excel间的数据交换.xls
F:\example\第四章实例\综合技巧实例_为相同值加上序号.xls
F:\example\第四章实例\综合技巧实例_产生随机数.xls
F:\example\第四章实例\综合技巧实例_关闭应用程序.xls
F:\example\第四章实例\综合技巧实例_列出某目录下含子目录的所有目录及文件.xls
F:\example\第四章实例\综合技巧实例_列出某目录下含子目录的所有目录及文件_另一种写法.xls
F:\example\第四章实例\综合技巧实例_删除空白工作表.xls
F:\example\第四章实例\综合技巧实例_判断某区域是否被选择.xls
F:\example\第四章实例\综合技巧实例_填充上一个值.xls
F:\example\第四章实例\综合技巧实例_复制当前选取区域至其它工作表.xls
F:\example\第四章实例\综合技巧实例_寄封 Email.xls
F:\example\第四章实例\综合技巧实例_对齐所有统计图形.xls
F:\example\第四章实例\综合技巧实例_寻找缺号.xls
F:\example\第四章实例\综合技巧实例_导入宏并执行.xls
F:\example\第四章实例\综合技巧实例_导入文本文件.xls
F:\example\第四章实例\综合技巧实例_导入文本文件_2.xls
F:\example\第四章实例\综合技巧实例_导出宏并删除.xls
F:\example\第四章实例\综合技巧实例_工作表排序.xls
F:\example\第四章实例\综合技巧实例_彩票统计_列出最久没出现过的号码.xls
F:\example\第四章实例\综合技巧实例_彩票统计_列出某号几期没出现过了.xls
F:\example\第四章实例\综合技巧实例_彩票统计_列出连号的期数及其号码.xls
F:\example\第四章实例\综合技巧实例_彩票统计_最不常出现的号码.xls
F:\example\第四章实例\综合技巧实例_彩票统计_最常出现的号码.xls
F:\example\第四章实例\综合技巧实例_插入行或列.xls
F:\example\第四章实例\综合技巧实例_插入行或列_总和小计.xls
F:\example\第四章实例\综合技巧实例_改变单元格及批注的字体.xls
F:\example\第四章实例\综合技巧实例_改版宏.xls
F:\example\第四章实例\综合技巧实例_数据倒置.xls
F:\example\第四章实例\综合技巧实例_每个工作表独立存成一个文件.xls
F:\example\第四章实例\综合技巧实例_每个工作表独立存成一个网页文件.xls
F:\example\第四章实例\综合技巧实例_清空上一个值.xls
F:\example\第四章实例\综合技巧实例_清空上一个值然后合并单元格.xls
F:\example\第四章实例\综合技巧实例_自定义菜单.xls
F:\example\第四章实例\综合技巧实例_自定义菜单_动态更新工作表清单.xls
F:\example\第四章实例\综合技巧实例_自定义菜单_新的菜单.xls
F:\example\第四章实例\综合技巧实例_自定义菜单_新的菜单_2.xls
F:\example\第四章实例\综合技巧实例_自定义菜单_计算标准差.xls
F:\example\第四章实例\综合技巧实例_自定义菜单_计算标准差_加载数据菜单.xls
F:\example\第四章实例\综合技巧实例_读取网卡地址.xls
F:\example\第四章实例\综合技巧实例_转成自定义文本文件.xls
F:\example\第四章实例\综合技巧实例_转成自定义文本文件_使用ODBC方式.xls
F:\example\第四章实例\综合技巧实例_重新命名工作表.xls
F:\example\第四章实例\这些工作簿的宏要被改版\SQL实例_判断数学成绩进步或退步.xls
F:\example\第四章实例\这些工作簿的宏要被改版\SQL实例_合并2个工作簿的记录.xls
F:\example\第四章实例\这些工作簿的宏要被改版\SQL实例_合并2张工作表的记录.xls
F:\example\第四章实例\这些工作簿的宏要被改版\SQL实例_比较加总后结果.xls
F:\example\第四章实例\这些工作簿的宏要被导出\SQL实例_合并2个工作簿的记录.xls
F:\example\第四章实例\这些工作簿的宏要被导出\SQL实例_比较加总后结果.xls
F:\example\第四章实例\这些工作簿的宏要被导出\测试文件\SQL实例_合并2个工作簿的记录.xls
F:\example\第四章实例\这些工作簿的宏要被导出\测试文件\SQL实例_比较加总后结果.xls
F:\example\第二章实例\SQL实例_Outer_Join.xls
F:\example\第二章实例\SQL实例_判断数学成绩进步或退步.xls
F:\example\第二章实例\SQL实例_剔除数学低于90分者.xls
F:\example\第二章实例\SQL实例_合并2个工作簿的记录.xls
F:\example\第二章实例\SQL实例_合并2张工作表的记录.xls
F:\example\第二章实例\SQL实例_彩票号码排列组合.xls
F:\example\第二章实例\SQL实例_找出主管所管辖的部属.xls
F:\example\第二章实例\SQL实例_找出出现在第1张工作表但未出现在第2张工作表的记录.xls
F:\example\第二章实例\SQL实例_找出到过的不重复国家.xls
F:\example\第二章实例\SQL实例_找出工资比某人高的所有员工.xls
F:\example\第二章实例\SQL实例_找出工资比某人高的所有员工_以子查询做.xls
F:\example\第二章实例\SQL实例_找出数学成绩进步及退步最多者.xls
F:\example\第二章实例\SQL实例_找出数学考最高分的同学.xls
F:\example\第二章实例\SQL实例_找出每次都考得分数比自己高的人.xls
F:\example\第二章实例\SQL实例_找出每次都考得分数比自己高的人_另一种写法.xls
F:\example\第二章实例\SQL实例_找出病假超过2次者.xls
F:\example\第二章实例\SQL实例_找出请假超过2天者.xls
F:\example\第二章实例\SQL实例_按照年或月统计销售额.xls
F:\example\第二章实例\SQL实例_改成绩.xls
F:\example\第二章实例\SQL实例_比较加总后结果.xls
F:\example\第二章实例\SQL实例_计算排名.xls
F:\example\第二章实例\SQL实例_计算百分比排位.xls
F:\example\第二章实例\上网找某一网页的所有HTML_Table.xls
F:\example\第二章实例\工作簿_1.xls
F:\example\第二章实例\工作簿_2.xls
F:\example\第三章实例\单元格自定义函数.xls
F:\example\第三章实例\单元格自定义函数实例_二进制转成十六进制.xls
F:\example\第三章实例\单元格自定义函数实例_二进制转成十进制.xls
F:\example\第三章实例\单元格自定义函数实例_十六进制转成二进制.xls
F:\example\第三章实例\单元格自定义函数实例_十六进制转成十进制.xls
F:\example\第三章实例\单元格自定义函数实例_十进制转成二进制.xls
F:\example\第三章实例\单元格自定义函数实例_十进制转成十六进制.xls
F:\example\第三章实例\单元格自定义函数实例_拆分中文英文数字.xls
F:\example\第三章实例\单元格自定义函数实例_拆分年月日.xls
F:\example\第三章实例\单元格自定义函数实例_闰年判断.xls
F:\example\第三章实例\单元格自定义函数实例字符串反转.xls
F:\example\第一章实例\上网找HTML_Table.xls
F:\example\第一章实例\上网找数据.xls
F:\example\第一章实例\两个时间之间的差.xls
F:\example\第一章实例\删除空白工作表.xls
F:\example\第一章实例\删除空白行.xls
F:\example\第一章实例\原Cell的值加上某字符串.xls
F:\example\第一章实例\原Cell的值加上某字符串_2.xls
F:\example\第一章实例\原Cell的值加减乘除某个数.xls
F:\example\第一章实例\取奇数列的数据.xls
F:\example\第一章实例\找出meta_data.xls
F:\example\第一章实例\找出不重复的值.xls
F:\example\第一章实例\找出不重复的值_2.xls
F:\example\第一章实例\找出不重复的数据.xls
F:\example\第一章实例\找出前3大数字.xls
F:\example\第一章实例\找出小于60的数字并标成红色.xls
F:\example\第一章实例\找出小于60的数字并标成红色_有标题文字.xls
F:\example\第一章实例\找出小于60的数字并标成红色_跨工作表.xls
F:\example\第一章实例\找出最后一个请假记录.xls
F:\example\第一章实例\找数据_001.xls
F:\example\第一章实例\找数据_002.xls
F:\example\第一章实例\找数据_003.xls
F:\example\第一章实例\找数据_2个Table.xls
F:\example\第一章实例\找数据_3个Table.xls
F:\example\第一章实例\找数据_从SQL_Server.xls
F:\example\第一章实例\找数据_从同一工作表的2个区域.xls
F:\example\第一章实例\找数据_从某个区域.xls
F:\example\第一章实例\找数据_从某个名称.xls
F:\example\第一章实例\找数据_从某个方位.xls
F:\example\第一章实例\找数据_使用CopyFromRecordSet方法.xls
F:\example\第一章实例\找数据_使用Insert_Into方法.xls
F:\example\第一章实例\找数据_使用Select_Into方法.xls
F:\example\第一章实例\拆分Cell的內容.xls
F:\example\第一章实例\按照颜色排序.xls
F:\example\第一章实例\排名次.xls
F:\example\第一章实例\排名次_加上班级.xls
F:\example\第一章实例\数字区间设置.xls
F:\example\第一章实例\数字运算.xls
F:\example\第一章实例\数字运算_分组统计.xls
F:\example\第一章实例\数字运算_只算正数.xls
F:\example\第一章实例\数字运算_按行号统计.xls
F:\example\第一章实例\文字转换成日期.xls
F:\example\第一章实例\文字转换成日期_2.xls
F:\example\第一章实例\文本转换成数字.xls
F:\example\第一章实例\用户自定义函数.xls
F:\example\第一章实例\算成绩.xls
F:\example\第一章实例\统计请假次数.xls
F:\example\第一章实例\自动填充.xls
F:\example\第一章实例\自动填充_跨工作表.xls
F:\example\第一章实例\自动填充数列.xls
F:\example\第一章实例\自动填充数列_不连续区域.xls
F:\example\第一章实例\自动填充数列_有东西就跳过.xls
F:\example\第一章实例\自动填充数列_直式填充.xls
F:\example\第一章实例\自动填充数列_超过某数就重来.xls
F:\example\第一章实例\计算工时.xls
F:\example\第一章实例\计算工龄.xls
F:\example\第一章实例\连接完整日期.xls

[此贴子已经被作者于2007-8-22 22:36:18编辑过]

dsp5000

这本书怎么样？

xolf

QUOTE:

以下是引用dsp5000在2007-8-19 22:44:51的发言：
这本书怎么样？

新书，随便翻了翻，没仔细看。不敢妄加评论。应该算比较有特色的一本书。

另外 发现书的排版字体很大，呵呵。

[此贴子已经被作者于2007-8-19 23:11:46编辑过]

伤心别离花

谢谢,正要学学这方面知识!

maillgh

附件中的例子不错，多谢楼主!

57wk

谢谢版主了！！！

  按颜色排序报错：    Run ("'" + ActiveWorkbook.Path + "\找出meta_data.xls'!Module1.ActiveWorkSheet_To_Table")

  请问错在何处，如何解决？

[此贴子已经被作者于2007-8-22 5:43:54编辑过]

jsjijiajun

正在学习这方面的东西,希望这个能提高我一点.

guzhemeng

看看，学习一下！

[em02]

秦关明月

下了，翻了，用得着的时候再看一下。

LangQueS

收藏。谢谢xolf版主。