一 什么是字典字典就是一个储存数据的小仓库，共有两列。第一列Key,不允许有重复的元素，第二列是item，每一个key对应一个item，item列允许重复。 数组和字典的区别，1：A列只能装入非重复的因素，利用这个特点可以很方便的提取不重复的值。2：每一个Key对应唯一的item，只要指定key的值就可以马上返回item，利用字典可以实现快速的查找。 字典的局限性，1：只有两列，如果需要处理多列数据，需要通过字符串的组合和拆分来实现。2：字典调用会耗费一定时间，如果数据量不大，字典优势无法体现。 注意的地方：字典的编号也是从0开始，如果需要查询第一个则是key（0），这一点和数组是一样的 二 如何创建字典字典由scrrun.dll链接数据库提供的，第一种方法，直接创建，set d = createobject('scripting.dictionary'),第二种方法是引用法，工具-引用-浏览-找到scrrun.dll-确定 三 字典的具体使用3.1 装入数据
代码有问题，需要debug. 后来视频中提到，这种方法只能在字典引用法中使用。写代码过程中出现的问题有1 字典的第二种引用方法中，工具中的引用栏为灰色，无法引用，2 d.add cells(x,1)后面忘记加value，这里，如果不加value，那么就会引用单元格的对象而不是值。 debug完成，修改后的代码为 Sub zidian() Dim d Dim x As Integer Set d = CreateObject('scripting.dictionary') For x = 2 To 4 d.Add Cells(x, 1).Value, Cells(x, 2).Value Next x MsgBox d('张三') End Sub 因为引用法不可用，故使用set d 方法，使用该方法时候，msgbox 的时候不能用keys序号引用，需要使用MsgBox d('张三')这种方法引用。 3.2 读取数据Sub z2() Dim d Dim arr Dim x As Integer Set d = CreateObject('scripting.dictionary') For x = 2 To 4 d.Add Cells(x, 1).Value, Cells(x, 2).Value Next x MsgBox d('李四') Range('d1').Resize(d.Count) = Application.Transpose(d.keys) Range('e1').Resize(d.Count) = Application.Transpose(d.items) End Sub 3.3 修改数据（添加新数据）Sub z3() Dim d Dim x As Integer Set d = CreateObject('scripting.dictionary') For x = 2 To 4 d.Add Cells(x, 1).Value, Cells(x, 2).Value Next x d('张三') = 88 d('赵六') = 100 Range('f1').Resize(d.Count) = Application.Transpose(d.keys) Range('g1').Resize(d.Count) = Application.Transpose(d.items) End Sub 注意：这里的修改数据是改变第二列的数值。如果在修改数据时，第一列元素不存在，则会自动添加。如果存在，新加的值则会覆盖掉原来的。用这个方法的时候，相对于add，好处在于不需要判断是否重复，有就覆盖掉没有就新建一个。 3.4 删除数据Sub z4() Dim d Dim x As Integer Set d = CreateObject('scripting.dictionary') For x = 2 To 4 d.Add Cells(x, 1), Cells(x, 2) d.Remove '赵六' End Sub 数组删除的时候不能把一行给单独删除掉，需要查找再删除或者循环，但是字典可以做到。d.removeall是把字典清空。 |
|
|
