常见字典用法集锦及代码详解

win002 · 发表于 2010-11-4 20:28

Sub 练习1()
'
Dim d, t
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens", "a1"
d.Add "b", "Belgrade", "b1"
d.Add "c", "Cairo", "c1"
t = d.Items
[c1].Resize(d.Count, 1) = Application.Transpose(t)

End Sub
蓝桥按你一楼介绍做段代码，为何不对，希望在一楼注解

蓝桥玄霜 · 发表于 2010-11-4 20:43

Sub 练习1()
'
Dim d, t
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens"
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
t = d.Items
[c1].Resize(d.Count, 1) = Application.Transpose(t)

End Sub

jiminyanyan · 发表于 2010-11-4 20:45

原帖由 win002 于 2010-11-4 20:28 发表
Sub 练习1()
'
Dim d, t
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens", "a1"
d.Add "b", "Belgrade", "b1"
d.Add "c", "Cairo", "c1"
t = d.Items
[c1].Resize(d.C ...

Sub 练习1()
'
Dim d, t
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens"
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
t = d.Items
[c1].Resize(d.Count, 1) = Application.Transpose(t)

End Sub
应是这样。

win002 · 发表于 2010-11-4 20:51

Sub 练习2()

蓝桥按你一楼介绍做段代码，为何不对，希望在一楼注解

Dim d
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens"
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
' d.Item("d") = "ddd"
MsgBox (d.Item("d") = "ddd")

End Sub

超人归来 · 发表于 2010-11-4 22:10

相信我慢慢会学会

枫桥夜泊lwb · 发表于 2010-11-5 00:00

谢谢楼主分享收藏学习了

AVEL · 发表于 2010-11-15 20:18

这么好的帖子一定要下载下来好好慢慢仔细的学习一下。

ammyc · 发表于 2010-11-15 21:34

做个记号方便学习。

kalex714 · 发表于 2010-11-20 12:11

借鉴后终于懂得一点点.谢谢!

yjlexcel · 发表于 2010-11-20 21:39

写的很详细，谢谢老师。

		自动登录	找回密码
密码			免费注册

[原创] 常见字典用法集锦及代码详解