正松舒，慢匀稳——太极字典少年班

LMY123

谢谢 山菊花总版主的分享

ljx63426

学习总版主的字典用法。下载学习！

xiaoqiu88

最后一个汇总，一个字典完成，代码精炼啊。
有点吹毛求疵了，如果字段名中有和客户名重复的，该客户就统计不出来了。比如a100彩页换成好贸易（只是举例），这种情况极少发生，但不排除有可能。
比如，把附件中的7月汇总.xls文件换成这个附件中的文件，统计结果里就没有好贸易这个客户的数据了

heaven827

我都不会VBA，不过看到这么娓娓道来的帖子，吸引力蛮大的

东阳小伙

太极字典。。。 跟字典不一样么？

AVEL

论坛里面介绍字典的帖子已经不少了，现在又多了一份精品。
感谢山版制作分享字典教程。

Iaixueexcel

太极字典是什么？要好好看看

山菊花

xiaoqiu88 发表于 2012-6-16 00:17
最后一个汇总，一个字典完成，代码精炼啊。
有点吹毛求疵了，如果字段名中有和客户名重复的，该客户就统计 ...

据说精品旗袍都是手工缝制的，大概讲究的是量体裁衣，写程序亦该如此。
如果行标题和列标题有重名的情况，最大可能就是“合计”(如果把它当普通标题处理)，我们就必须考虑区分它们。技巧在讲座中已经重复提过，相信大部分朋友都不把它当问题了。
就在这个程序中，我们把汇总工作表的总行数和总列数存储在字典dic中，下面代码其中nS是汇总工作表的序号：
dic("nR" & nS) = 1 '记录各工作表的总行数
  dic("nL" & nS) = 1 '记录各工作表的总列数
为了区分行数和列数，我们在关键字中加入字符“nR”与“nL”，这样行数与列数就分得清清楚楚了。
言归正传，如果行标题和列标题有混淆的可能性，可以将行标题加入一个字符串以区分：
dic(nS1 & Brr(i, 1)) = nR  (27行)
改为：
dic(nS1 & "@"  & Brr(i, 1)) = nR

第25行：
nR = dic(nS1 & Brr(i, 1))
改为：
nR = dic(nS1 & "@"  & Brr(i, 1))

改记录列标题的关键字也行，把"@"改为其它字符串也行，如“行_”。
一般情况下，一个程序用一个字典就行。

杏花雨V翟

问：这是我所需要的吗？
答：正是！

8200472

  谢谢总版主分享     学习一下