求助大佬:订单按时间汇总并自动分配数量

7993708

求助大佬: 订单按时间汇总(4.26号---5.25号) 汇总算5月份.  并自动分配数量到对应产品的发货数中   具体附件有描述(软件WPS)


感谢所有老师的帮助!!

LIUZHU

要求多，看得有些麻烦

3190496160

汇总表的列字段，看的是一头雾水，比如1月份和2025年1月份如何理解呢？？？

7993708

3190496160 发表于 2024-5-29 10:11
汇总表的列字段，看的是一头雾水，比如1月份和2025年1月份如何理解呢？？？

老师,,跨年了 前面是2024年后面是2025年

ykcbf1100

此题的难点应该就是月份的确定吧。题目没完全看明白，只作月份数据统计。

附件供参考。。。

ykcbf1100

汇总表月份设计不尽合理，按理不同年份的字段应该搞成一样才对。这里只统计2024年。

1. Sub ykcbf()  '//2024.5.29
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Set sh = ThisWorkbook.Sheets("汇总")
   
5.     Set d = CreateObject("Scripting.Dictionary")
   
6.     For Each sht In Sheets
   
7.         If sht.Name <> sh.Name Then
   
8.             With sht
   
9.                 r = .Cells(Rows.Count, 1).End(3).Row
   
10.                 arr = .[a1].Resize(r, 6)
    
11.                 For i = 3 To UBound(arr)
    
12.                     yf = CheckMonth(arr(i, 1), 25)
    
13.                     s = yf & "|" & UCase(arr(i, 3)) & "|" & arr(i, 4)
    
14.                     d(s) = d(s) + arr(i, 6)
    
15.                 Next
    
16.             End With
    
17.         End If
    
18.     Next
    
19.     With sh
    
20.         .[o3:z1000] = ""
    
21.         r = .Cells(Rows.Count, "e").End(3).Row
    
22.         arr = .[a1].Resize(r, 26)
    
23.         For i = 3 To UBound(arr)
    
24.             For j = 15 To UBound(arr, 2)
    
25.                 s = arr(2, j) & "|" & UCase(arr(i, 5)) & "|" & arr(i, 6)
    
26.                 If d.exists(s) Then
    
27.                     arr(i, j) = d(s)
    
28.                 End If
    
29.             Next
    
30.         Next
    
31.         .[a1].Resize(r, 26) = arr
    
32.     End With
    
33.     Set d = Nothing
    
34.     Application.ScreenUpdating = True
    
35.     MsgBox "OK！"
    
36. End Sub
    

复制代码

7993708

ykcbf1100 发表于 2024-5-29 11:02
此题的难点应该就是月份的确定吧。题目没完全看明白，只作月份数据统计。

附件供参考。。。

首先感谢老师的帮助. 代码运行速度很快.功能没问题.  就是2025年后它又回到2024年  不跨年统计  字段是一样,只是2025年是往后面排 老师看能不能帮帮忙修改一下.谢谢

ykcbf1100

7993708 发表于 2024-5-29 11:56
首先感谢老师的帮助. 代码运行速度很快.功能没问题.  就是2025年后它又回到2024年  不跨年统计  字段是一 ...

修改好了，不同年份都可以正常统计了。

ykcbf1100

修改一下，适应不同年份。

1. Sub ykcbf()  '//2024.5.29
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Set sh = ThisWorkbook.Sheets("汇总")
   
5.     Set d = CreateObject("Scripting.Dictionary")
   
6.     For Each sht In Sheets
   
7.         If sht.Name <> sh.Name Then
   
8.             With sht
   
9.                 r = .Cells(Rows.Count, 1).End(3).Row
   
10.                 arr = .[a1].Resize(r, 6)
    
11.                 For i = 3 To UBound(arr)
    
12.                     nf = Year(arr(i, 1))
    
13.                     yf = CheckMonth(arr(i, 1), 25)
    
14.                     s = nf & "|" & yf & "|" & UCase(arr(i, 3)) & "|" & arr(i, 4)
    
15.                     d(s) = d(s) + arr(i, 6)
    
16.                 Next
    
17.             End With
    
18.         End If
    
19.     Next
    
20.     With sh
    
21.         .[o3:z1000] = ""
    
22.         r = .Cells(Rows.Count, "e").End(3).Row
    
23.         arr = .[a1].Resize(r, 38)
    
24.         For i = 3 To UBound(arr)
    
25.             For j = 15 To UBound(arr, 2)
    
26.          
    
27.                 s = Val(arr(1, j)) & "|" & arr(2, j) & "|" & UCase(arr(i, 5)) & "|" & arr(i, 6)
    
28.                 If d.exists(s) Then
    
29.                     arr(i, j) = d(s)
    
30.                 End If
    
31.             Next
    
32.         Next
    
33.         .[a1].Resize(r, 38) = arr
    
34.     End With
    
35.     Set d = Nothing
    
36.     Application.ScreenUpdating = True
    
37.     MsgBox "OK！"
    
38. End Sub

复制代码

7993708

ykcbf1100 发表于 2024-5-29 13:09
修改好了，不同年份都可以正常统计了。

老师您好: 跨年的有点问题,就是统计后,如果前面更改或者删除名称,后面的数不会清除.一直显示的