作者：绿色风
分类：
时间：2022-08-17
浏览：105
楼主
0Mouse |
Q：如何遍历采用后期绑定法创建的字典的每一个key或item呢？
A：可以使用For Each……in……循环，也可以先将字典的keys或items赋值给一个数组，通过循环该数组间接达到循环字典keys和items的目的，示例代码如下：
直接法：- Sub 遍历每一个key或item1()
- Dim d As Object, element
- Set d = CreateObject("scripting.dictionary")
- d.Add "厦门", 1
- d.Add "深圳", 2
- d.Add "上海", 3
- d.Add "杭州", 4
- '用For Each …… in ……循环
- For Each element In d.keys '或d.items
- MsgBox element '显示key
- MsgBox d(element) '显示item
- Next
- Set d = Nothing
- End Sub
间接法：- Sub 遍历每一个key或item2()
- Dim d As Object
- Set d = CreateObject("scripting.dictionary")
- d.Add "厦门", 1
- d.Add "深圳", 2
- d.Add "上海", 3
- d.Add "杭州", 4
- '将keys或items赋值给一个数组，通过循环该数组间接达到循环字典keys和items的目的
- Dim arr, brr, i As Byte
- arr = d.keys
- brr = d.items
- For i = 1 To d.Count
- MsgBox arr(i - 1)
- MsgBox brr(i - 1)
- Next
- Set d = Nothing
- Erase brr: Erase arr
- End Sub
附件：
 遍历采用后期绑定法创建的字典的每一个key或item.rar
|
2楼
MMonica605 |
这个有点高级，需要慢慢研究 |
3楼
心痛神伤 |
深奥啊 |
4楼
keven |
学习了 |
5楼
hustclm |
很有启发，学习了，谢谢 |
6楼
老糊涂 |
下载学习 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一