四时宝库

程序员的知识宝库

字典对象使用方法介绍,VBA不得不学的技能

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

发表评论:

控制面板
您好,欢迎到访网站!
  查看权限
网站分类
最新留言
    友情链接