[分享]浅谈DICTIONARY(字典)对象

hbkyq · 发表于 2010-2-7 20:51

原帖由 northwolves 于 2007-9-8 23:55 发表
'应用实例8 (字符频率统计):'本例统计圆周率前500位中各数字出现的频率并显示在WORKSHEET的前两行Sub Usage8()Const pi As String = "3.1415926535897932384626433832795028841971693993751058209749445923078164062 ...

dic(temp) = dic(temp) + 1 '这个是怎么回事呀？

狼版，这个是什么意思呀？

hood · 发表于 2010-2-10 23:41

原帖由 hbkyq 于 2010-2-7 20:51 发表

dic(temp) = dic(temp) + 1 '这个是怎么回事呀？

狼版，这个是什么意思呀？

给dic(key)相应的items+1

If Not Dic.exists(temp) Then
Dic.Add temp, 1
Else
Dic(temp) = Dic(temp) + 1
End If

[ 本帖最后由 hood 于 2010-2-10 23:47 编辑 ]

fsydw · 发表于 2010-2-27 20:10

学习了！收藏了！！谢谢了！！！

forlovewyz · 发表于 2010-2-28 20:56

谢谢，很好，慢慢学。

qldd · 发表于 2010-3-1 10:02

真是好东东，占位学习

春播秋收 · 发表于 2010-3-6 17:02

高手就是高手，对字典对象及应用说得这么详细。小弟学之不尽！

Jackiezhu · 发表于 2010-3-9 14:35

正在学习Dictionary的用法，多谢狼版的指教。收藏之。

这是我受人之托写的一段代码，用于从前六列中的数字中提取不重复值，写到对应行的第七列，这些我都完成了，现在有一个新问题：
如何对.keys 排序？因为要求按顺序写入。

Sub Con()
Dim rR, cC, dd, Cnum, m, n
rR = [a65536].End(xlUp).Row
cC = 5
Set dd = CreateObject("Scripting.Dictionary")
For m = 1 To rR
dd.Add Cells(m, 1).Value, ""
For n = 2 To 6
Cnum = Cells(m, n).Value
If dd.exists(Cnum) = False Then dd.Add Cnum, ""
Next n
Cells(m, 7).Value = Join(dd.keys, " ")
dd.RemoveAll
Next m
End Sub

另可否推荐一个您关于Dictionary 讲解的汇总地址？便于下载学习的，这个贴子太长，实在不便于查找。

aidixiao · 发表于 2010-4-3 22:58

好文章，谢谢狼版。

yuyangqh · 发表于 2010-4-11 15:11

好的学习资料呀，我从头看完了，感觉不会也难呀

，谢谢狼版主

achanghong · 发表于 2010-5-16 20:48

晕死，这么好的帖子今天才看到，我算是白混了

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

[分享]浅谈DICTIONARY(字典)对象

回复 4楼 northwolves 的帖子

感谢狼版