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

tylor917

为了升级 积极回帖

neemx

学习字典的基本用法，真的能提升效率呢

1122wen

香川群子 发表于 2013-11-4 15:47
dic.Add "不及格", 59
dic("不及格") = 59

好厉害，对大神太崇拜！

风月闲人

感谢版主分享。努力学习中

shenzewen

你好，我现在才开始接触字典，很感谢你的分享，我有个问题想请教，在6个方法4个属性里
Function 计数(Rg As Range)
    Dim dic, arr1, ar
    Set dic = CreateObject("Scripting.Dictionary") '后期绑定引用字典对象
    arr1 = Rg '把单元格区域装入到数组arr1里,因为装到数组里速度快一些
    For Each ar In arr1
        If ar <> "" Then ' 排除空单元格
            dic(ar) = "" ' 把数组arr1里的每一个元素依次装进字典dic里,进行去重
        End If
    Next ar
    计数 = dic.Count'把结果赋值给函数名'
End Function
dic(ar)=""的意思是把字典里每个key的item设为不存在吗，如果是的话我为什么改成dic(ar)=1显示的items不是1，有点不明白。。。

Vicky.Z

佛山小老鼠 发表于 2013-11-3 12:11
字典不是excel自带的,是外部对象,但是我们可以通过函数CreateObject调用它,来加强,增强excel VBA的功能, ...

学习了，之前不知道一直不知道createobject是什么意思。。。。

wgw500wan

初学者 转悠着 来看看！！

xhzd

想学习字典，但看不懂

shiguang112

留个脚印，谢谢大师

xiahuaxian

号帖子，做记号，学习，谢谢。