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

840205910

先下载了，没来得及学习。
以前有蓝桥玄霜版主的字典教程，很好的，只是我学得不够，现在再学习山版主的字典，预祝自己更进步！

山菊花

在和弦处等你 发表于 2012-7-27 13:32
请问表单28，解法3中，图中红色方框处为什么不能用原来前两种中的语句：谢谢答复。

1. Sub 第三次练习2()
   
2.     Dim dic, Arr(), Brr(), Crr(), m%, n%
   
3.     Set dic = CreateObject("Scripting.dictionary")    '创建一个字典对象
   
4.     Arr = Sheet25.Range("l1").CurrentRegion '把4月份销售统计表数据存储到数组Arr
   
5.     Brr = Sheet25.Range("q1").CurrentRegion '把5月份销售记录数据存储到数组Brr
   
6.     Range("a4:d100").ClearContents '清空当前工作表中单元格区域
   
7.    
   
8.    
   
9.     '把4月份销售"名称 & 规格"添加到字典 dic 中，设置对应的Item为一负值。
   
10.     For i = 4 To UBound(Arr)
    
11.         dic.Add Arr(i, 1) & Arr(i, 2), -1
    
12.     Next
    
13.    
    
14.    
    
15.     For i = 4 To UBound(Brr) '循环读取5月份数据
    
16.         If dic.exists(Brr(i, 2) & Brr(i, 3)) Then
    
17.             n = dic(Brr(i, 2) & Brr(i, 3)) '查字典，读取序号
    
18.         Else
    
19.             m = m + 1
    
20.             dic.Add Brr(i, 2) & Brr(i, 3), m
    
21.             ReDim Preserve Crr(1 To 4, 1 To m)
    
22.             Crr(1, m) = Brr(i, 2) '将名称存储到数组Crr()第1行
    
23.             Crr(2, m) = Brr(i, 3) '将规格存储到数组Crr第2行
    
24.             n = m
    
25.         End If
    
26.         
    
27.         If n > -1 Then '判断返回的序号是否大于-1，如果大于-1，表示4月份数据表中不存在该 名称 & 规格 。则：
    
28.             Crr(3, n) = Crr(3, n) + Brr(i, 4) '汇总数量，保存到数组Crr第3行
    
29.             Crr(4, n) = Crr(4, n) + Brr(i, 5) '汇总金额，保存到数组Crr第4行
    
30.         End If
    
31.     Next
    
32.    
    
33.     Range("a4").Resize(m, 4).Value = WorksheetFunction.Transpose(Crr)
    
34. End Sub
    

复制代码

山菊花

把负值改为0：

1. 
   
2. Sub 第三次练习3()
   
3.     Dim dic, Arr(), Brr(), Crr(), m%, n%
   
4.     Set dic = CreateObject("Scripting.dictionary")    '创建一个字典对象
   
5.     Arr = Sheet25.Range("l1").CurrentRegion '把4月份销售统计表数据存储到数组Arr
   
6.     Brr = Sheet25.Range("q1").CurrentRegion '把5月份销售记录数据存储到数组Brr
   
7.     Range("a4:d100").ClearContents '清空当前工作表中单元格区域
   
8.    
   
9.    
   
10.     '把4月份销售"名称 & 规格"添加到字典 dic 中，设置对应的Item为0。
    
11.     For i = 4 To UBound(Arr)
    
12.         dic.Add Arr(i, 1) & Arr(i, 2), 0
    
13.     Next
    
14.    
    
15.    
    
16.     For i = 4 To UBound(Brr) '循环读取5月份数据
    
17.         If dic.exists(Brr(i, 2) & Brr(i, 3)) Then
    
18.             n = dic(Brr(i, 2) & Brr(i, 3)) '查字典，读取序号
    
19.         Else
    
20.             m = m + 1
    
21.             dic.Add Brr(i, 2) & Brr(i, 3), m
    
22.             ReDim Preserve Crr(1 To 4, 1 To m)
    
23.             Crr(1, m) = Brr(i, 2) '将名称存储到数组Crr()第1行
    
24.             Crr(2, m) = Brr(i, 3) '将规格存储到数组Crr第2行
    
25.             n = m
    
26.         End If
    
27.         
    
28.         If n > 0 Then '判断返回的序号是否大于-1，如果大于0，表示4月份数据表中不存在该 名称 & 规格 。则：
    
29.             Crr(3, n) = Crr(3, n) + Brr(i, 4) '汇总数量，保存到数组Crr第3行
    
30.             Crr(4, n) = Crr(4, n) + Brr(i, 5) '汇总金额，保存到数组Crr第4行
    
31.         End If
    
32.     Next
    
33.    
    
34.     Range("a4").Resize(m, 4).Value = WorksheetFunction.Transpose(Crr)
    
35. End Sub
    

复制代码

在和弦处等你

在调试过程中也稍微思考了下为什么不能用

1. dic1.Add Brr(i, 2) & Brr(i, 3), m

复制代码

的可能原因：
在运行完该语句后：

1. n = dic1(Brr(i, 2) & Brr(i, 3))

复制代码

字典就将要查询的内容设为关键字，而后运行语句

1. dic1.Add Brr(i, 2) & Brr(i, 3), m

复制代码

时，就会报错（关键字已存在）
请看图：

山菊花

当字典中不存在关键字时，下面的语句会自动为字典添加该关键字。
n = dic1(Brr(i, 2) & Brr(i, 3))
相当于：
dic1.Add Brr(i, 2) & Brr(i, 3), ""
如果再次执行：
dic1.Add Brr(i, 2) & Brr(i, 3), m
它就会提示错误。

fankairong

山菊花老师可是我的启蒙老师啊，虽然你不认识我，我却看着你的贴子入的门！

k_maxing

感谢!下下来学习学习

电脑专家俱乐部

高手中的高手

goldowl2011

Good info.Thank you very much,my teacher.

mis2000

心血之作，心服口服，大爱大赞。