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---