宿迁网页设计培训,江西短视频搜索seo哪家好,网站页面策划怎么做,平面设计毕业设计作品vba中熟练使用字典可以帮我们解决很多问题#xff0c;以下为字典的应用方法及案例#xff1a;
Sub dictionary()
Dim d As New dictionary 定义字典
Dim mykey As Variant
Dim myitems
d.Add 1100000, 身份证 字典录入key关键字和item条目
d.Add 以下为字典的应用方法及案例
Sub dictionary()
Dim d As New dictionary 定义字典
Dim mykey As Variant
Dim myitems
d.Add 1100000, 身份证 字典录入key关键字和item条目
d.Add 2001110, 学生证号
d.Add bj002003, 饭卡号For i 0 To d.Count - 1d.Add a i, 号码 i 字典加入关键字和条目
Next
mykey d.Keys
myitems d.Items
For i 0 To d.Count - 1MsgBox mykey(i) 关键字逐个输出MsgBox myitems(i) 条目逐个输出
Next
End Sub下图为立即窗口显示字典的条目和关键字信息。由此可见 keys和items都是数组的形式字典的item是单个形式非数组。 关于字典的前期绑定和后期绑定本博更倾向后期绑定因为写好的程序换电脑运行或发给别人运行时不需要再到工具栏引用选项选字典库了省事方便
前期绑定
添加引用在VBE界面【工具-引用】中勾选【Microsoft Scripting Runtime】之后在对象浏览器中就可以看到该对象。然后写代码Dim a As New Scripting.Dictionary
优点
使用对象时会有方法、属性、枚举和事件列表。运行速度会比使用后期绑定方法快。
Microsoft Scripting Runtime库
前期
Dim a As New Scripting.DictionaryDim b As New Scripting.EncoderDim c As New Scripting.FileSystemObject
后期
Set dic CreateObject(scripting.dictionary)set fso CreateObject(Scripting.FileSystemObject)
