在Excel VBA中使用字典Dictionary对象的通用代码的步骤
1、新建一个空白工作簿,在工作表界面按下组合快捷键Alt+F11或者右键单击任意一个工作表标签,在弹出的右键快捷菜单单击“查看代码”进入VBA编辑环境,如下图所示:
2、在“代码窗口“中复制粘贴以下代码:
Sub Dic()
'定义字典对象变量
Dim oDic As Object
'创建字典对象
Set oDic = CreateObject("Scripting.Dictionary")
Dim arrKey
Dim arrItem
With oDic
'添加键和项目(key,item),其中键不能重复
.Add 1, "a"
.Add 2, "b"
' 判断是否存在某个键
MsgBox .Exists(2)
'把键2的项目修改为"d"
.Item(2) = "d"
'返回键的数组
arrKey = .keys
'返回项目的数组
arrItem = .items
'清空字典
.RemoveAll
End With
'释放字典对象,清空内存
Set oDic = Nothing
End Sub
如下图所示:
3、以上代码是在VBA中使用字典对象的通用代码,任何具体的案例都可以在这个代码的基础上进行修改,建议收藏保存,避免每次使用字典对象时需要重复输入以上代码。具体的字典对象的所有属性、方法可以参考MSDN中的在线帮助。
相关推荐:
本文地址:http://www.45fan.com/dnjc/80537.html