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

win002

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
蓝桥按你一楼介绍做段代码，为何不对，希望在一楼注解

蓝桥玄霜

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

原帖由 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

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

超人归来

相信我慢慢会学会

枫桥夜泊lwb

谢谢楼主分享收藏学习了

AVEL

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

ammyc

做个记号方便学习。

kalex714

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

yjlexcel

写的很详细，谢谢老师。