这样理解VBA字典法是否有误解？

f8b1987

代码如下

1. Sub 求和()
   
2.     Dim arr, D As Object, ar
   
3.     Dim i As Integer, j As Byte
   
4.    
   
5.     Set D = CreateObject("scripting.dictionary")
   
6.     Set d1 = CreateObject("scripting.dictionary")
   
7.     Set d2 = CreateObject("scripting.dictionary")
   
8.     arr = Sheet2.Range("a1").CurrentRegion    '选定区域装入数组
   
9.     For i = 1 To UBound(arr)    '循环从数组第1行到数组的最后一行
   
10.         D(arr(i, 1) & "|" & arr(i, 2)) = D(arr(i, 1) & "|" & arr(i, 2)) + arr(i, 3)
    
11.         d1(arr(i, 1) & "|" & arr(i, 2)) = arr(i, 1)
    
12.         '字典d1的KEY是arr(i, 1) & "|" & arr(i, 2)，item是arr(i,1),也就是对应行数的日期
    
13.         d2(arr(i, 1) & "|" & arr(i, 2)) = arr(i, 2)
    
14.          '字典d2的KEY是arr(i, 1) & "|" & arr(i, 2)，item是arr(i,2),也就是对应行数的用户名称
    
15.     Next i
    
16.     Sheet3.Range("a1").Resize(d1.Count, 1) = Application.Transpose(d1.items)
    
17.     '把字典d1的items写出来
    
18.     Sheet3.Range("b1").Resize(d2.Count, 2) = Application.Transpose(d2.items)
    
19. 
    
20.     ar = Sheet3.Range("a1").CurrentRegion
    
21.     '装入输入ar
    
22.     For j = 1 To UBound(ar, 1)
    
23.         ar(j, 3) = D(ar(j, 1) & "|" & ar(j, 2))
    
24.         'ar数组的第3列用字典D的item替换, 其中,ar(j, 1) & "|" & ar(j, 2)为字典D的key，是返回字典item结果的依据
    
25.     Next j
    
26. 
    
27.     Sheet3.Range("a1").Resize(UBound(ar), 3) = ar
    
28.    '把ar数组的三列数据写入到以a1开始的连续单元格中
    
29. End Sub

复制代码

对于

d1(arr(i, 1) & "|" & arr(i, 2)) = arr(i, 1)
        '字典d1的KEY是arr(i, 1) & "|" & arr(i, 2)，item是arr(i,1),也就是对应行数的日期
d2(arr(i, 1) & "|" & arr(i, 2)) = arr(i, 2)
         '字典d2的KEY是arr(i, 1) & "|" & arr(i, 2)，item是arr(i,2),也就是对应行数的用户名称

这两句在本地窗口显示的情况如下，item对应的值是”日期|用户“，是不是我的注释理解得有错呢？麻烦各位前辈普及知识。



附件
字典条件求和三.rar (8.27 KB, 下载次数: 328)

2012-5-8 22:41 上传

点击文件名下载附件

f8b1987

木有人解释？

lcjy11185

帮你顶起来。请高手光顾!     我是这样理解的：
1、你的注释无错，我也是这样理解的。
2、本地窗口里的item 其实就是key，真正的item 是看不见的。
3、ar(j, 3) = D(ar(j, 1) & "|" & ar(j, 2))
        'ar数组的第3列用字典D的item替换, 其中,ar(j, 1) & "|" & ar(j, 2)为字典D的key，是返回字典item结果的依据
这句其实是省略了语句的。流程如下：把ar(j, 1) & "|" & ar(j, 2)重新加入字典。不信？你试着在

2012-4-1	江苏省	8019
2012-4-1	四川省	577912
2012-4-3	四川省	79852
2012-4-5	广东省	22825
2012-4-3	四川省	79852
2012-4-5	广东省yu
2012-4-3	四川省ty
2012-4-5	广东省w
2012-4-3	四川省w
2012-4-5	广东省aswe

后面加入随便的东西(如红色)。然后观察d的item，就会发现d的item多了。结合上边的理解：原来d的关键字为

2012-4-1	江苏省
2012-4-1	四川省
2012-4-3	四川省
2012-4-5	广东省

项目为第3列的值。新的字典关键字多了红色的。而红色的项为“”
接着把最后新的字典赋值给数组。表面上看是把关键字赋值给数组。其实是关键字所对应的项(也就是本地窗口看不见的内容)
我的理解可能是错的。但我觉得我这样更好理解。也欢迎指正。

jxbsuzs

菜鸟帮顶，希望有高手帮你解决！

蓝桥玄霜

本地窗口里的item 1、2、3、4，是字典d1的关键字，
把d1.items赋给t    t=d1.Items
再在本地窗口中查看，就可见到真正的item。

f8b1987

蓝桥玄霜 发表于 2012-5-11 18:02
本地窗口里的item 1、2、3、4，是字典d1的关键字，
把d1.items赋给t    t=d1.Items
再在本地窗口中查看， ...

谢谢版主哈，最近也在学习你的帖子

莫悠悠

才开始学字典

chenzuzhong

也刚刚开始学习字典，不过我认为楼主这样有点费事了，个人觉得只需要一个dic加一个texttocolumn搞定，这几天天天在学习楼主的帖子，增长了不少，谢谢楼主的分享，虽然现在一年后才看到您的帖子，但，感激之心是不分时间长短的，呵呵