佛山小老鼠说Excel VBA

佛山小老鼠 · 发表于 2012-11-28 18:08

山山好又快发表于 2012-11-28 16:54
请教老师：
学习您“字典实例应用（二）实例2”中的("产品名称", "型号", "数量", "金额") 加一项“单 ...

先是在单元格里,字典里不能存永久性的东西,运算时放进字典或者数组里,计算后,还是要存放单元格中
所以你要学会从字典里读和写

山山好又快 · 发表于 2012-11-29 15:58

佛山小老鼠发表于 2012-11-28 18:08
先是在单元格里,字典里不能存永久性的东西,运算时放进字典或者数组里,计算后,还是要存放单元格中
所以你 ...

烦请老师：下面代码中的红色代码是我加入计算“单价”的，为什么只计算数据源的首行数据？谢谢！
Sub test()
'定义相关的变量
Dim arr(1 To 10000, 1 To 5), arr1, dic As Object, i As Long, k As Long, hang As Long, Maxrow As Long, t As Single
t = Timer '开始记时
Maxrow = Cells(Rows.Count, 1).End(xlUp).Row '找到A列最后一个有数据单元格的行号
Set dic = CreateObject("scripting.dictionary") '创建字典
arr1 = Range("A2:E" & Maxrow) '把单元格区域装入数组
For i = 1 To UBound(arr1, 1) '遍历数组arr1的一维
      Mystring = arr1(i, 1) & arr1(i, 2) '把两个合起来为一个，因为字典的关键词只能装进一列
      If dic.Exists(Mystring) Then '如果字典里存在arr1这个关键词，那么
         hang = dic(Mystring) '找到这个关键词在字典里的位置，对应的Item,而字典里这种Item位置刚好和数组arr的一维对应
         '把字典里的相应的关键键对应的条目对值赋给hang
         arr(hang, 3) = arr(hang, 3) + arr1(i, 3) '累加数组arr前面所对应的数量
         arr(hang, 4) = arr(hang, 4) + arr1(i, 4) '累加数组arr前面所对应的金额
      Else
         k = k + 1 '累加k
         dic(Mystring) = k '把关键字Mystring添加到字典里，且条目对为k
         arr(k, 1) = arr1(i, 1) '把数组arr1里的第i行第1列的数据装进一个新的arr数组里的第k行第1列
         arr(k, 2) = arr1(i, 2) '把数组arr1里的第i行第2列的数据装进一个新的arr数组里的第k行第2列
         arr(k, 3) = arr1(i, 3) '把数组arr1里的第i行第3列的数据装进一个新的arr数组里的第k行第3列
         arr(k, 4) = arr1(i, 4) '把数组arr1里的第i行第4列的数据装进一个新的arr数组里的第k行第4列

      End If
      arr(k, 5) = arr1(i, 4) / arr1(i, 3) '计算单价
Next i
[H1:L1] = Array("产品名称", "型号", "数量", "金额", "单价")
Range("H2").Resize(k, 5) = arr
MsgBox "用时" & Format(Timer - t, "0.00秒") '
End Sub

shidaity · 发表于 2012-11-29 23:20

继续学习中，太感谢了

佛山小老鼠 · 发表于 2012-11-29 23:29

山山好又快发表于 2012-11-29 15:58
烦请老师：下面代码中的红色代码是我加入计算“单价”的，为什么只计算数据源的首行数据？谢谢！
Sub te ...

把附件传上来

86808801 · 发表于 2012-11-30 08:46

很好很强大，谢谢分享~~

山山好又快 · 发表于 2012-11-30 09:12

本帖最后由山山好又快于 2012-11-30 09:12 编辑

佛山小老鼠发表于 2012-11-29 23:29
把附件传上来

请教老师：想学习一下。谢谢！

工作表.rar (19.52 KB, 下载次数: 9)

xhelx · 发表于 2012-11-30 10:51

拿了，顶一下

佛山小老鼠 · 发表于 2012-11-30 11:16

山山好又快发表于 2012-11-29 15:58
烦请老师：下面代码中的红色代码是我加入计算“单价”的，为什么只计算数据源的首行数据？谢谢！
Sub te ...

这个结果是对的,你用筛选自己验证一下,如筛选W1,用总金额除以总数量,就是1.956522

叱咤风云丫头 · 发表于 2012-11-30 12:39

对我这刚开始学2007的主来说，学这个是早了点，不过好贴子不能错过，收藏下来了。
谢谢斑竹啦

山山好又快 · 发表于 2012-11-30 14:31

佛山小老鼠发表于 2012-11-30 11:16
这个结果是对的,你用筛选自己验证一下,如筛选W1,用总金额除以总数量,就是1.956522

我验证了，为什么只是部分对呢？

		自动登录	找回密码
密码			免费注册

佛山小老鼠说Excel VBA

评分