VBA中Dictionary对象使用小结

2011-07-20 16:18

VBA中Dictionary对象使用小结

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

直接获取excel区域值
Dim arr, i& As Object
arr = Sheet2.Range("a2:g" & Sheet2.[a65536].End(xlUp).Row)
'循环加入到listbox
For x = 1 To UBound(arr)
Me.ListBox1.AddItem (arr(x, 1) & " " & MyFromat(arr(x, 2)) & " " & arr(x, 3) & " " & arr(x, 4) & " " & Format(arr(x, 5), "yyyy-MM-dd") & " " & arr(x, 6) & " " & arr(x, 7))

Next


‘把数组直接赋值给excel的时候，需要转置
Sheet1.Range("A6:A" & UBound(ddName) + 4).Value = Application.Transpose(statisticsName)