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

hbkyq

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

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

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

hood

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

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

forlovewyz

谢谢，很好，慢慢学。

qldd

真是好东东，占位学习

春播秋收

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

Jackiezhu

正在学习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

好文章，谢谢狼版。

yuyangqh

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

achanghong

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