VBA中字典的属性和方法(一)，收藏篇

上节课我们介绍了字典的基本概念及其调用方法，本节课我们讲解一下字典的属性和方法。

首先我们通过前期绑定法新建一个字典，如下，当我们输入d. 后，便会弹出字典的属性和方法来。

字典共有六个方法，四个属性，分别如下：

方法：

d.Add

d.Keys

d.Items

d.Exists

d.Remove

d.RemoveAll

属性：

d.CompareMode

d.Count

d.Item

d.Key

今天我们先介绍下字典的六种方法：

Sub test1()

'前期绑定

Dim s As New dictionary, m$

Dim n

'1、增加项目对：add

s.Add "宋江", "A001"

s.Add "卢俊义", "A002"

s.Add "吴用", "A003"

'2、取出某个key值",有三种方法：

'第一：keys，注意字典中第一个key值默认起始位置为0，所以s.keys(0)为第一个key。

m = s.Keys(0)

'第二种方法：利用工作表函数

m = Application.Index(s.Keys, 1)

'第三种方法：先把全部的key赋给一个数组，然后从数组中取值。

n = s.Keys

m = n(0)

'3、取出item值，有四种方法：

'第一种方法，items

m = s.Items(0)

'第二种方法，利用工作表函数

m = Application.Index(s.Items, 1)

'第三种方法：先把全部的item赋给一个数组，然后从数组中取值

n = s.Items

m = n(0)

'第四种方法，items

m = s("宋江")

End Sub

上面介绍了字典中的Add方法：

object.add "key","item"

以及keys和items方法，值得注意的是，keys和items中的第一种方法只能用于前期绑定法，直接创建法里面是不能直接这样取的，可以用函数，也可以先把keys或者是items赋值给一个数组，从数组里往出取值。

4、d.Exists，如果字典中存在指定的关键字则返回true，否则返回false。

5、d.Remove，从字典中删除某个项目对，不仅会删除key，同时也会删除对应的item。

6、d.removeall，删除字典中的全部项目对。

转自：米宏Office