根据月份和规格进行汇总

LMW

产品明细需要根据月份和规格型号进行汇总，我自己做了一个，但是只能按规格汇总，不知道怎么加上月份条件，请各位大佬帮帮忙。

kkf5560

多条件最简单就是结合起来，比如    字典（月份 & 规格）=array(月份，发货累计，金额累计）

dambcer

透视表就可以了              

LMW

kkf5560 发表于 2024-11-19 18:09
多条件最简单就是结合起来，比如    字典（月份 & 规格）=array(月份，发货累计，金额累计）

我是个菜鸟,里面用的那个vba是网上复制的，不知道怎么改动，能帮忙改一下吗

lizhipei78

楼主的意思，是说根据汇总表的日期之间，即是A2-A3单元格之间，然后对所有规格包装型号进行累计汇总发货数及发货金额吗？条件说不清楚，想帮也帮不了，看了一下你本身的VBA代码，就是对所有包装型号进行汇总，这个是很简单的字典应用，不用你里面写的这么复杂。
另外，这里是JSA，如果你想要VBA代码，请发VBA版块，那里人多

LMW

lizhipei78 发表于 2024-11-20 15:25
楼主的意思，是说根据汇总表的日期之间，即是A2-A3单元格之间，然后对所有规格包装型号进行累计汇总发货数 ...

我需要按照月份（比如说5月份），根据规格型号，进行发货数和金额的汇总，我弄了好几天都没有弄好，不知道是哪里出问题了，

LMW

我还写了一弄了一个就是运行不了，不知道问题出在哪里

1. Sub 汇总2() '查询不出来
   
2. 
   
3.   Dim arr, brr, crr, Dict As Object, rq As Date, i As Long
   
4.   
   
5.   Set Dict = CreateObject("Scripting.Dictionary") '
   
6.   
   
7.   arr = Range("b1").CurrentRegion '
   
8.   
   
9.   For i = 2 To UBound(arr)
   
10.     arr(i, 3) = 0
    
11.     Dict(arr(i, 1)) = Array(i, CDate([a2]), CDate([a3]))
    
12.    
    
13.   Next
    
14.   
    
15.   brr = Sheets("明细").Range("A1").CurrentRegion
    
16.   
    
17.   For i = 2 To UBound(brr)
    
18.   
    
19.     If Dict.exists(brr(i, 8)) Then
    
20.    
    
21.       crr = Dict(brr(i, 8))
    
22.       
    
23.       rq = CDate(brr(i, 3))
    
24.       
    
25.       If rq >= crr(1) Then If rq <= crr(2) Then arr(crr(0), 2) = arr(crr(0), 2) + brr(i, 12)
    
26.      
    
27.       
    
28.     End If
    
29.   Next
    
30.   
    
31.   Range("b1").CurrentRegion = arr
    
32.   
    
33.   Set Dict = Nothing
    
34.   
    
35. End Sub

复制代码

lizhipei78

lizhipei78

LMW 发表于 2024-11-20 15:34
我需要按照月份（比如说5月份），根据规格型号，进行发货数和金额的汇总，我弄了好几天都没有弄好，不知 ...

刚看到你的信息，我是以日期之间写了代码，你改一下我的

lizhipei78