编写VBA字典可以有以下四个动作：增，删，查，改。
- 1、增：增加字典条目,如将下列商品信息放进字典。
商品名称| 单价
---|---|---
明月刀 |10000
孔雀翎 |8888888
龙泉剑 |6666
伏魔棍 |99999
三角刺 |11111
板凳 |999999999
砖头 |99999999999
Sub a()
Dim arr, d As Object
Set d = CreateObject("scripting.dictionary")'创建字典
arr = [a1].CurrentRegion'将数据放进数组
For i = 2 To UBound(arr)'循环数组
'将商品数据新增到字典d里面,arr(i, 1)商品名称,arr(i, 2)单价
d(arr(i, 1)) = arr(i, 2)
Next
End Sub
- 这样一本关于商品单价的字典就创建并添加数据完毕了。
- d(key)=item,这个动作就是新增字典条目。
- 这里要注意的是2个地方，以砖头为例子：1、假如字典里没有砖头这个商品，那么d("砖头")就是新增"砖头"这个条目；2、假如字典里已经存在"砖头"这个商品，d("砖头")是什么意思？
- 2、查：假如，有人来买砖头，你特么一下子不记得砖头单价了，这时候，你就从字典李查砖头的单价。
Sub a()
Dim arr, d As Object
Set d = CreateObject("scripting.dictionary")
arr = [a1].CurrentRegion
'----------新增字典d的条目-----------------------
For i = 2 To UBound(arr)
d(arr(i, 1)) = arr(i, 2)
Next
'-----------查阅字典--------------------------------
s = d("砖头") '砖头的单价
Range("e2") = d(Range("d2")) '砖头的单价输出到单元格
End Sub
- 运行代码，E2单元格并没有单价，啥回事？
Paste_Image.png
- 查阅字典相当简单， s = d("砖头")就相当于将砖头的单价赋值给s变量。d("砖头")读取的就是"砖头"的单价。
- 字典读取单元格信息，读取的是单元格的值，改为Range("e2") = d(Range("d2").Value),就能够得出"砖头"的单价。千万不要忘记 .Value，不然没有数据。
- 如果字典里没有砖头这个商品，s = d("砖头"),就是s=""空值。
- 3、改：假如又有人来买砖头，而且是大量，想要点优惠，希望单价低点。
Dim arr, d As Object
Set d = CreateObject("scripting.dictionary")
arr = [a1].CurrentRegion
'----------新增字典d的条目-----------------------
For i = 2 To UBound(arr)
d(arr(i, 1)) = arr(i, 2)
Next
'-----------查阅字典--------------------------------
s = d("砖头") '砖头的单价
'------------修改字典-------------------------------
d("砖头") = 88888888888#
'再查字典
ss = d("砖头")
修改字典
- 继续以砖头为例子，字典里不需要管砖头这个key存在不存在。
- 如果不存在砖头这个key，那么 d("砖头")=9999999999，就是新增砖头这个条目；
- 如果存在砖头这个key，那么d("砖头")=9999999999，就是修改砖头这个条目的item，不管砖头原来的单价是多少，反正一律修改为9999999999。
- d(key)=item，既是新增条目，也是修改条目。这里修改的是字典的item，也就是单价。
- 如果要修改字典的key，需要用到字典的key属性。下章再说。
- 4、删：商品三角刺要淘汰了，要在字典里删除。语法：
- 4.1、 单个条目删除：字典名称.remove(key)
- 4.2、全部删除：字典名称.removeall
d.Remove ("三角刺") '删除三角刺这个条目
k = d.keys
d.RemoveAll'删除所有条目，相当于清空字典
k = d.keys
Paste_Image.png
- 当运行至d.Remove ("三角刺")语句是，字典里面的key已经不存在三角刺了。k = d.keys这里是辅助代码，为了方便看到字典所有的key。
Paste_Image.png
- 运行到d.RemoveAll，字典已经被清空了。
hhhhhh.gif
