常见字典用法集锦及代码详解

suwenkai

刚刚开始学习VBA，这个东西太强了。一定要学好

cygc

学习了,能有ADO的案例就如鱼得水了

lhw1788

谢谢分享，下来学学

linpiggy

下载学习~~~

wkbu

当初学字典的时候感觉很难，看微软的帮助也只不过只言片语，自己只能在论坛里像翻“字典”一样到处查找示例...　....虽说好贴来的晚些，但还是要赞一个，感谢这些默默奉献的老师们。

zez

收藏了，谢谢分享!

0wchz

6、d(Arr(i, 3)) = d(Arr(i, 3)) + 1 ：Arr(i,3)在本例是姓名列，也就是关键字列，举个例子，假如Arr(i,3)=”张三”，这句代码的意思就是把关键字”张三”加入字典，d(key)等于关键字key对应的项，每出现一次这个关键字，它的项的值就增加1。起到了按关键字累加的作用，也正因为有这个作用，所以可使用字典来进行各种汇总统计。后面要讲的实例会充分的展现这个作用。
很不理解：没有if 判断，就在i循环里使d(Arr(i, 3)) = d(Arr(i, 3)) + 1 ，一般循环都要有条件的！不明白不同的i行都有张三的话，为何张三的条目项要加多次！字典为何有此功能，邮箱h01123@sina.com

lisan

谢谢蓝桥玄霜老师！先收藏，有空再来慢慢学。

中原一布衣

谢了！好好学学！今后肯定用得着！！简单的数据汇总：
Sub bbhz()
  Dim i&, Myr&, Arr
  Application.ScreenUpdating = False
  Set d = CreateObject("Scripting.Dictionary")
  Set d1 = CreateObject("Scripting.Dictionary")
  Myr = Sheets("收料单").[a65536].End(xlUp).Row
  Arr = Sheets("收料单").Range("a2:d" & Myr)     'A1：D1分别为材料编号，数量，金额，期间
  Range("a2:c" & Myr).ClearContents   '汇总前清除原先内容
  qj = Range("D1").Value   '按月份汇总
  For i = 1 To UBound(Arr)
    If Arr(i, 4) = qj Then    '若全部汇总，则IF语句省去即可
      s = Arr(i, 1)    '材料编号
      d(s) = d(s) + Arr(i, 2)    '数量汇总
      d1(s) = d1(s) + Arr(i, 3)   '金额汇总
    End If
  Next
  k = d.Keys
  t = d.items
  t1 = d1.items
  [a2].Resize(d.Count, 1) = Application.Transpose(k)
  [b2].Resize(d.Count, 1) = Application.Transpose(t)
  [c2].Resize(d.Count, 1) = Application.Transpose(t1)
  Application.ScreenUpdating = True
End Sub

中原一布衣

谢了！好好学学！今后肯定用得着！！