字典嵌套小白入门笔记

huang1314wei

字典嵌套论坛例子还是挺多的，其实嵌套字典创建部分可以简化成
f Not d.exists(area) Then
        Set d(area) = CreateObject("scripting.dictionary")        
End If
If Not d(area).exists(school) Then
        Set d(area)(school) = CreateObject("scripting.dictionary")        
End If
d(area)(school)(id) = Array(person, age)   


另外贴文当中提到的 在字典嵌套过程中，没有Item 准确的说不是没有item，而是它的item是一个字典对象（CreateObject("scripting.dictionary") ）而已

月关

huang1314wei 发表于 2019-10-8 19:46
字典嵌套论坛例子还是挺多的，其实嵌套字典创建部分可以简化成
f Not d.exists(area) Then
        Set d ...

多谢版主指正！代码确实是无意义的重复了。
您指出的第2点倒是知道的，嫌它碍事不去想它而已，一般会基本字典用法的人这点常识都知道了 ^)^

话说您的第一句，先不说有没有例子，为啥我经常搜不出来东西呢，一搜就是类似于404的那种提示，好像我输入了非法关键字一样，苍天在上那关键字纯洁的不要不要的，而且这种概率极大，我经常琢磨这论坛是不是还欺生呀

zopey

如果学校没有重名 ，建立 2个字典（d 1、d2） 即可。




字典成员.rar (15.28 KB, 下载次数: 43)

2019-10-8 21:03 上传

点击文件名下载附件

abc123281

路过参与进来玩一下
看了楼主的帖子，楼主文学水平很高，也很幽默
真正想要掌握理解多级字典嵌套概念及实际应用，以下是论坛chuxw68老师的原贴，可以查看参考学习

http://club.excelhome.net/thread-1075732-1-1.html

zopey

1. Sub pey_testb()
   
2. Dim arr
   
3. arr = [a1].CurrentRegion
   
4. 
   
5. Set d1 = CreateObject("Scripting.Dictionary")
   
6. Set d2 = CreateObject("Scripting.Dictionary")
   
7. 
   
8. For i = 2 To UBound(arr)
   
9.     If Not d1.exists(arr(i, 5)) Then Set d1(arr(i, 5)) = New Collection ' 对象实例1
   
10.    
    
11.     If Not d2.exists(arr(i, 4)) Then
    
12.         Set d2(arr(i, 4)) = New Collection  ' 对象实例2
    
13.         d1(arr(i, 5)).Add arr(i, 4)
    
14.     End If
    
15.    
    
16.     d2(arr(i, 4)).Add Array(arr(i, 1), arr(i, 2), arr(i, 3))
    
17. Next i
    
18. 
    
19. ''''''''''''
    
20. For Each area In d1.keys
    
21. Debug.Print area
    
22. 
    
23.     For Each school In d1(area)
    
24.     Debug.Print school
    
25.    
    
26.         For Each student In d2(school)
    
27.             Debug.Print student(0) & " , " & student(1) & " , " & student(2)
    
28.         Next
    
29.     Next
    
30. Next
    
31. 
    
32. Stop
    
33. End Sub

复制代码

直接 添加集合对象也可以

一把小刀闯天下

一般用字典数组，很少用字典嵌套

E列工作簿、D列工作表。先有序不用字典估计也能解决，，，

月关

abc123281 发表于 2019-10-8 22:26
路过参与进来玩一下
看了楼主的帖子，楼主文学水平很高，也很幽默
真正想要掌握理解多级字典嵌套概念及实 ...

老师谬赞。
您给的链接进去看了下，字典嵌套的用法都差不多（话说您要是早给这个链接我也不用受这么多煎熬费这么大劲了……）。看到44#那个老师，——最近他的帖子被顶起来的比较多，所以对他有印象，一个很好学的人，经常整理笔记。他的问题让我比较有共鸣感，怎么取出子级item…… 所以我就猜多数学字典嵌套的人问题都是出在这个地方。

然后，怎么说呢，字典嵌套的应用应该有很多，但是，每一个上过学的人，都应该对本贴中的案例有着天然的亲近感。
最开始入门一个东西，越简单越好，越贴近生活越好，所以，从一个汲取者的角度来讲，我依然认为本贴中的案例是最实用的，好吧那就之一吧。

我一直在强调，经典的是这个案例本身。
如果让我现在重发这个贴子，我会这样处理：

案例一，题目要求... （把item＝array()也去掉，直接＝一个值就行，这就是那个求助贴原来的样子 ），下面是代码。
案例二，题目要求...，这次加上院系、班级，再多嵌套几重，然后item=array(姓名，出生日期，性别，年龄，籍贯....)，下面再跟着代码

顶楼结束。
这才是一个由浅入深的例子，不要说话，让它静静的立在那里，静静的绽放。
让学习者安静的思考，一个都学习到字典嵌套的人压根不再需要任何人的解释。
所以，这个帖子最大的败笔就是我上面写了那一大坨。

ykqrs

好久没来，今天进坛子正好碰到这个贴，本想练练手，呵呵，手生了，好一个找帖子抄，终于炒出来了，费这么大劲发上去吧，话说，要经常进坛修炼！

1. Sub 字典套字典基础入门案例()
   
2. Dim d As Object, arr, brr, i%, j%, aa, s, bb, n%, cc
   
3. arr = [a1].CurrentRegion
   
4. Set d = CreateObject("scripting.dictionary")
   
5. For i = 2 To UBound(arr)
   
6. If Not d.exists(arr(i, 5)) Then
   
7. Set d(arr(i, 5)) = CreateObject("scripting.dictionary")
   
8. End If
   
9. If Not d(arr(i, 5)).exists(arr(i, 4)) Then
   
10. Set d(arr(i, 5))(arr(i, 4)) = CreateObject("scripting.dictionary")
    
11. End If
    
12. If Not d(arr(i, 5))(arr(i, 4)).exists(arr(i, 1)) Then
    
13. ReDim brr(1 To 5): brr(1) = arr(i, 5): brr(2) = arr(i, 4)
    
14. Else
    
15. brr = d(arr(i, 5))(arr(i, 4))(arr(i, 1))
    
16. End If
    
17. For j = 1 To 3: brr(j + 2) = arr(i, j): Next
    
18. d(arr(i, 5))(arr(i, 4))(arr(i, 1)) = brr
    
19. Next
    
20. s = Array("地区", "高校", "学号", "姓名", "年龄")
    
21. Application.ScreenUpdating = False
    
22. Application.DisplayAlerts = False
    
23. For Each aa In d.keys
    
24. Workbooks.Add
    
25. With ActiveWorkbook
    
26. For Each bb In d(aa).keys
    
27. ReDim arr(1 To d(aa)(bb).Count, 1 To 5): n = 0
    
28. For Each cc In d(aa)(bb).keys
    
29. brr = d(aa)(bb)(cc)
    
30. n = n + 1
    
31. For j = 1 To UBound(brr): arr(n, j) = brr(j): Next
    
32. Next
    
33. .Worksheets.Add.Name = bb
    
34. With .Worksheets(bb)
    
35. .Range("a2").Resize(UBound(arr), 5) = arr
    
36. .Range("a1").Resize(1, 5) = s
    
37. End With
    
38. Next
    
39. .SaveAs ThisWorkbook.Path & "" & aa & ".xlsx"
    
40. .Close True
    
41. End With
    
42. Next
    
43. Application.ScreenUpdating = True
    
44. Application.DisplayAlerts = True
    
45. End Sub
    

复制代码

月关

zopey 发表于 2019-10-9 10:22
直接 添加集合对象也可以

虽然有点跑偏，但是老师的这个用法还是第一次见，好像挺不错，有啥名头没？类似于字典、正则这样的，回头也学学

月关

一把小刀闯天下 发表于 2019-10-9 10:44
一般用字典数组，很少用字典嵌套

E列工作簿、D列工作表。先有序不用字典估计也能解决，，，

多谢老师。
解法有很多，只是单纯的学习字典嵌套而已。