佛山小老鼠说Excel VBA

佛山小老鼠

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

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

山山好又快

佛山小老鼠 发表于 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 15:58
烦请老师：下面代码中的红色代码是我加入计算“单价”的，为什么只计算数据源的首行数据？谢谢！
Sub te ...

把附件传上来

86808801

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

山山好又快

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

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

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

2012-11-30 09:12 上传

点击文件名下载附件

xhelx

拿了，顶一下

佛山小老鼠

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

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

叱咤风云丫头

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

山山好又快

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

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