用VBA字典进行分类汇总

aroundrain

lsc900707 发表于 2017-12-7 17:39
学习也要有个循序渐进的过程。初学者对字典知识一下子搞懂恐怕有点难：

谢谢，老师，我先看一下，不懂的再问您！

aroundrain

lsc900707 发表于 2017-12-7 17:39
学习也要有个循序渐进的过程。初学者对字典知识一下子搞懂恐怕有点难：

老师，你这个代码很好，但是有几下几点还请帮忙一下：
  1.为什么有些数据统计不出来，台账中是有记录的，并且用公式也可以统计出来，请老师帮忙找下原因；
  2.供应商账务汇总中有个年月的查询，这个能加进去吗

lsc900707

现在手机上网中，第二个问题有时间再答。第一个问题是你的分类字母有些是输入的，不规范造成的。

aroundrain

lsc900707 发表于 2017-12-10 10:35
现在手机上网中，第二个问题有时间再答。第一个问题是你的分类字母有些是输入的，不规范造成的。

不是手输造成的，我查到了，是字典d1没有加入
还有如何从下向上找第一个与汇总表中年月一样的台账中的记录行号

lsc900707

aroundrain 发表于 2017-12-12 09:19
不是手输造成的，我查到了，是字典d1没有加入
还有如何从下向上找第一个与汇总表中年月一样的台账中的记 ...

Sub gj23w98()
    Set d = CreateObject("Scripting.Dictionary")
    Set d1 = CreateObject("Scripting.Dictionary")
    With Sheets("台账")
        r = .Cells(.Rows.Count, 1).End(3).Row
        arr = .Range("a2:o" & r)
        For i = 2 To UBound(arr)
            If arr(i, 1) = "p" Then
                d(arr(i, 4)) = d(arr(i, 4)) + arr(i, 15)
            End If
            If arr(i, 1) = "f" Then
                d1(arr(i, 4)) = d1(arr(i, 4)) + arr(i, 15)
            End If
        Next
    End With
    With Sheets("供应商账务汇总")
         r = .Cells(.Rows.Count, 2).End(3).Row
         .Range("d3:e" & r).ClearContents
         For i = 3 To r
             If d.exists(.Cells(i, 2).Value) Then
                 .Cells(i, 4) = d(.Cells(i, 2).Value)
             End If
             If d1.exists(.Cells(i, 2).Value) Then
                 .Cells(i, 5) = d1(.Cells(i, 2).Value)
             End If
        Next
    End With
End Sub

lsc900707

aroundrain 发表于 2017-12-12 09:19
不是手输造成的，我查到了，是字典d1没有加入
还有如何从下向上找第一个与汇总表中年月一样的台账中的记 ...

没有注意第二个问题。请其他人帮你吧。

aroundrain

lsc900707 发表于 2017-12-12 11:06
没有注意第二个问题。请其他人帮你吧。

谢谢您，我根据你的代码，我改了下，解决了我公式能解决的问题。
非常感谢您，没有您打开这个门，我是没办法解决的。

13825719951

uynayna 发表于 2017-12-7 22:46
新人还行，论坛混几年还不懂字典，真不知道说什么好。

我找代码， 一般看不懂不重要，只要我知道应该放在我的代码需要的地方，能运行就好了。
我就是这样学过来的，还给公司编了一整理ERP流程。

uynayna

13825719951 发表于 2017-12-16 09:10
我找代码， 一般看不懂不重要，只要我知道应该放在我的代码需要的地方，能运行就好了。
我就是这样学过 ...

Excel的ERP流程吗？