No.1

编程中有一个字典概念的应用，熟悉任何一种编程都对此不陌生，但是应用熟练就不一定都会了。

具体字典有什么好处呢，可以在实际操作中自己体会，只能说很有用。

本节介绍一下VBA中的字典的使用方法。

No.2

下图为Dictionary对象说明

下图为Dictionary对象的属性和方法

新建对象

在使用字典对象之前，首先要创建一个字典，下面是创建对象的方法：

Dim Dic
Set Dic = CreateObject("Scripting.Dictionary") '新建字典

上面两行就创建好了一个对象，名称为Dic的字典对象，然后就可以用字典对象的方法来添加或删除键以及值了。

添加键用Add方法，如：

Dic.Add "键名(Key)","值(Item)"

下面用一个实例来具体说明一下，如下图所示：

No.3

代码

本例中把Dictionary对象的方法和属性分别使用了一次，可根据以下代码来进行分辨。

Private Sub CommandButton1_Click()
Dim Dic, KeyArr, ItemArr
Set Dic = CreateObject("Scripting.Dictionary") '新建字典
With Dic
    For i = 0 To 5
        Dic.Add "A" & i, "Aitem" & i '添加字典
    Next i
End With
KeyArr = Dic.keys '返回所有键到数组KeyArr
ItemArr = Dic.items '返回所有项到数组ItemArr
MsgBox Join(KeyArr)
MsgBox Join(ItemArr)
MsgBox Dic.exists("A1") '判断键是否存在
MsgBox "Dic字典共有： " & Dic.Count & "个项。", vbInformation, "提示"
MsgBox Dic.Item(KeyArr(0))
Dic.Key(KeyArr(0)) = "SSS" '修改新Key
MsgBox Join(Dic.keys)
Dic.RemoveAll '删除所有键/项
End Sub

字典应用是一个十分有效的方法，可以和数组进行配合使用，将大大提高数据处理效率。

其中Keys和Items两个方法分别将"键"和"值"以数组形式返回。

本例中如下代码所示：

KeyArr = Dic.keys '返回所有键到数组KeyArr
ItemArr = Dic.items '返回所有项到数组ItemArr

将"键"和"值"返回到数组KeyArr和ItemArr中，以便对数组进行操作和处理。

总之，要学到更好的数据处理方法，字典对象应用是一个很必要的选项。

欢迎关注、收藏

---END---