VBA字典用法记.docxVIP

VBA字典用法小记 十分鄙视那些将蓝桥玄霜大大的成果上传后还要收取下载券的做法，本来想直接上传一份大大的原版，可是百度文档提示已经有重复的文档，没办法，只好自己修改一下，在上传，想无私奉献的大大致敬！！！！！！！！！！ 常用语句： Dim d Set d = CreateObject(Scripting.Dictionary) d.Add a, Athens d.Add b, Belgrade d.Add c, Cairo 代码详解 1、Dim d ：创建变量，也称为声明变量。变量d声明为可变型数据类型(Variant)，d后面没有写数据类型，默认就是可变型数据类型(Variant)。也有写成Dim d As Object的，声明为对象。 2、Set d = CreateObject(Scripting.Dictionary)：创建字典对象，并把字典对象赋给变量d。这是最常用的一句代码。所谓的“后期绑定”。用了这句代码就不用先引用c:\windows\system32\scrrun.dll了。 3、d.Add a, Athens：添加一关键字”a”和对应于它的项”Athens”。 4、d.Add b, “Belgrade”：添加一关键字”b”和对应于它的项”Belgrade”。 5、d.Add c, “Cairo”：添加一关键字”c”和对应于它的项”Cairo”。 Exists方法 如果 Dictionary 对象中存在所指定的关键字则返回 true，否则返回 false。  HYPERLINK object.Exists( HYPERLINK key) 参数 object 必选项。总是一个 Dictionary 对象的名称。 key 必选项。需要在 Dictionary 对象中搜索的 key 值。 常用语句： Dim d, msg$ Set d = CreateObject(Scripting.Dictionary) d.Add a, Athens d.Add b, Belgrade d.Add c, Cairo If d.Exists(c) Then msg = 指定的关键字已经存在。 Else msg = 指定的关键字不存在。 End If 代码详解 1、Dim d, msg$ ：声明变量，d见前例；msg$ 声明为字符串数据类型(String)，一般写法为Dim msg As String。String 的类型声明字符为美元号 ($)。 2、If d.Exists(c) Then：如果字典中存在关键字”c”，那么执行下面的语句。 3、msg = 指定的关键字已经存在。 ：把指定的关键字已经存在。字符串赋给变量msg。 4、Else ：否则执行下面的语句。 5、msg = 指定的关键字不存在。 ：把指定的关键字不存在。字符串赋给变量msg。 6、End If ：结束If …Else…Endif判断。 Keys方法 返回一个数组，其中包含了一个 Dictionary 对象中的全部现有的关键字。 object.Keys( ) 其中 object 总是一个 Dictionary 对象的名称。 常用语句： Dim d, k Set d = CreateObject(Scripting.Dictionary) d.Add a, Athens d.Add b, Belgrade d.Add c, Cairo k=d.Keys [B1].Resize(d.Count,1)=Application.Transpose(k) 代码详解 1、Dim d, k ：声明变量，d见前例；k默认是可变型数据类型(Variant)。 2、k=d.Keys：把字典中存在的所有的关键字赋给变量k。得到的是一个一维数组，下限为0，上限为d.Count-1。这是数组的默认形式。 3、[B1].Resize(d.Count,1)=Application.Transpose(k) ：这句代码是很常用很经典的代码，所以这里要多说一些。 Resize是Range对象的一个属性，用于调整指定区域的大小，它有两个参数，第一个是行数，本例是d.Count，指的是字典中关键字的数量，整本字典中有多少个关键字，本例d.Count=3，因为有3个关键字。呵呵，是不是说多了。 第二个是列数，本例是1。这样＝左边的意思就是：把一个单元格B1调整为以B1开始的一列单元格区域，行数等于字典中关键字的数量d.Count，就是把单元格B1调整为单元格区域B1：B3了。 ＝右边的k是个一维数组，是水平排列的，我们知道Excel工作