佛山小老鼠带您走进字典(字典入门帖)

用心修炼

renkangjizhen 发表于 2019-5-31 08:47
受教了！请问一下，一个KEY如何对应多个item

可将条目写入数组，再将改数组写入字典的item
例：sub test1()
            dim dic as object,arr
            set dic=createobject("scripting.dictionary")
            dic.add "张三",array("男",24)
            arr=dic("张三")      '将张三的item返回给数组变量arr后，该数组中就有2个元素，arr(0)=男，arr(1)=24
            msgbox dic("张三")(0)  '结果为 男
            msgbox dic("张三")(1)  '结果为 24
      end sub      

dj635673

好作品 ，受益了

liu2336904

学习了add和=的不同，谢谢分享

百色风筝

fjnhwwx 发表于 2016-7-10 21:26
m = dic(arr1(x, 1)) '如果存在,把关键词arr1(x,1)的条目读出来,在原来的
       '基础上累加,通过读取关 ...

通过后面的步骤，
k=k+1
dic(arr1(x,1))=k
返回的就是序号（索引值）。

kaiserchen8273

学习了 感谢分享 收藏了

smileyxdz

佛山小老鼠 发表于 2013-11-3 17:22
第三个案例
透视表式的字典
Option Explicit

这个程序“”行总计“”有个BUG，第一列的值若只出现一次，行总计不统计

囙囜囟囦囨囶

学习，谢谢分享  辛苦！！！！

tony_rico

下载学习, 感谢大神无私的分享

xdxiaodou

下载，学习中。

elaine_lee

字典对我而言真的不易理解, 感谢老师的基础教育