VBA中Dictionary对象使用小结
2009-08-19 00:24
441 查看
转帖自 http://abaper.blogbus.com/logs/1596438.html
VBA中Dictionary对象使用小结
Dim dict
' 创建Dictionary
Set dict = CreateObject("Scripting.Dictionary")
' 增加项目
dict.Add "A", 300
dict.Add "B", 400
dict.Add "C", 500
' 统计项目数
n = dict.Count
' 删除项目
dict.Remove ("A")
' 判断字典中是否包含关键字
dict.exists ("B")
' 取关键字对应的值,注意在使用前需要判断是否存在key,否则dict中会多出一条记录
Value = dict.Item("B")
' 修改关键字对应的值,如不存在则创建新的项目
dict.Item("B") = 1000
dict.Item("D") = 800
' 对字典进行循环
k = dict.keys
v = dict.Items
For i = 0 To dict.Count - 1
key = k(i)
Value = v(i)
MsgBox key & Value
Next
' 删除所有项目
dict.Removeall
遍历字典中的值
Dim key
For Each key In dict
msgbox dict(key)
Next
VBA中Dictionary对象使用小结
Dim dict
' 创建Dictionary
Set dict = CreateObject("Scripting.Dictionary")
' 增加项目
dict.Add "A", 300
dict.Add "B", 400
dict.Add "C", 500
' 统计项目数
n = dict.Count
' 删除项目
dict.Remove ("A")
' 判断字典中是否包含关键字
dict.exists ("B")
' 取关键字对应的值,注意在使用前需要判断是否存在key,否则dict中会多出一条记录
Value = dict.Item("B")
' 修改关键字对应的值,如不存在则创建新的项目
dict.Item("B") = 1000
dict.Item("D") = 800
' 对字典进行循环
k = dict.keys
v = dict.Items
For i = 0 To dict.Count - 1
key = k(i)
Value = v(i)
MsgBox key & Value
Next
' 删除所有项目
dict.Removeall
遍历字典中的值
Dim key
For Each key In dict
msgbox dict(key)
Next
相关文章推荐
- VBA中Dictionary对象使用小结
- VBA中Dictionary对象使用小结
- VBA中Dictionary对象使用小结
- VBA中Dictionary对象使用小结
- VBA中Dictionary对象使用小结
- VBA中Dictionary对象使用(Key,Value)
- OC学习之道:OC对象,字典,集合的使用方法NSDictionary,NSMutableDictionary, NSSet,NSMutableSet,NSCountedSet
- 读取XML数据时,已超过最大字符串内容长度配额(8192)。可以通过更改创建XML阅读器时使用的XmlDictionaryReaderQuotas对象上的MaxStringContentLength属
- 使用web服务时,超出最大字符串内容长度配额 (8192)。通过更改在创建 XML 读取器时所使用的 XmlDictionaryReaderQuotas 对象的 MaxStringContentLen
- 使用dockerfile定制对象小结
- 在QTP中使用Dictionary对象
- WCF:读取 XML 数据时,超出最大字符串内容长度配额 (8192)。通过更改在创建 XML 读取器时所使用的 XmlDictionaryReaderQuotas 对象的 MaxStringContentLength 属性,可增加此配额。
- Asp:Scripting.Dictionary对象的使用
- VBA中Dictionary对象使用小结
- VBS使用Scripting.Dictionary字典对象
- ios之NSDictionary、NSMutableDictionary使用小结【转】
- 在QTP中使用Dictionary对象来替代环境变量
- 通过更改在创建 XML 读取器时所使用的 XmlDictionaryReaderQuotas 对象的 MaxArrayLength 属性,可增加此配额
- 【VBA研究】Excel VBA利用ADODB访问数据库使用小结
- 使用XmlSerializer类将对象序列化为Xml格式保存 - 支持泛型的Dictionary