帮忙修改一下代码

dbg111222

我想在库存表中增加按照时间段查询汇总数据的代码，请老师帮忙把源代码修改一下，实现我需要的功能，谢谢！

ykcbf1100

哪来源代码啊

tanglf188

一般的统计库存也要按物料编码的吧，你库存表里都没有，按啥统计？

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     Dim d As Object
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     With Worksheets("库存")
   
7.         rq = .Range("w2:x2")
   
8.         .Range("a3:t" & .Rows.Count).ClearContents
   
9.     End With
   
10.     ls = 20
    
11.     With Worksheets("原始数据")
    
12.         .AutoFilterMode = False
    
13.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
14.         arr = .Range("a2:i" & r)
    
15.         ReDim brr(1 To UBound(arr), 1 To ls)
    
16.         For i = 1 To UBound(arr)
    
17.             For j = 1 To 7
    
18.                 brr(i, j) = arr(i, j)
    
19.             Next
    
20.             brr(i, 8) = brr(i, 6) * brr(i, 7)
    
21.             brr(i, 19) = arr(i, 8)
    
22.             brr(i, 20) = arr(i, 9)
    
23.             d(brr(i, 2)) = i
    
24.         Next
    
25.     End With
    
26.     With Worksheets("收入")
    
27.         .AutoFilterMode = False
    
28.         r = .Cells(.Rows.Count, 2).End(xlUp).Row
    
29.         arr = .Range("a2:l" & r)
    
30.         For i = 1 To UBound(arr)
    
31.             If arr(i, 12) >= rq(1, 1) And arr(i, 12) <= rq(1, 2) Then
    
32.                 If d.exists(arr(i, 2)) Then
    
33.                     m = d(arr(i, 2))
    
34.                     brr(m, 9) = brr(m, 9) + arr(i, 6)
    
35.                     brr(m, 10) = brr(m, 10) + arr(i, 8)
    
36.                 End If
    
37.             End If
    
38.         Next
    
39.     End With
    
40.     With Worksheets("发出")
    
41.         .AutoFilterMode = False
    
42.         r = .Cells(.Rows.Count, 2).End(xlUp).Row
    
43.         arr = .Range("a2:o" & r)
    
44.         For i = 1 To UBound(arr)
    
45.             If arr(i, 11) >= rq(1, 1) And arr(i, 11) <= rq(1, 2) Then
    
46.                 If d.exists(arr(i, 2)) Then
    
47.                     m = d(arr(i, 2))
    
48.                     brr(m, 11) = brr(m, 11) + arr(i, 6)
    
49.                     brr(m, 12) = brr(m, 12) + arr(i, 8)
    
50.                 End If
    
51.             End If
    
52.         Next
    
53.     End With
    
54.     With Worksheets("退料")
    
55.         .AutoFilterMode = False
    
56.         r = .Cells(.Rows.Count, 2).End(xlUp).Row
    
57.         arr = .Range("a2:n" & r)
    
58.         For i = 1 To UBound(arr)
    
59.             If arr(i, 13) >= rq(1, 1) And arr(i, 13) <= rq(1, 2) Then
    
60.                 If d.exists(arr(i, 2)) Then
    
61.                     m = d(arr(i, 2))
    
62.                     brr(m, 13) = brr(m, 13) + arr(i, 6)
    
63.                     brr(m, 14) = brr(m, 14) + arr(i, 8)
    
64.                 End If
    
65.             End If
    
66.         Next
    
67.     End With
    
68.     With Worksheets("退库")
    
69.         .AutoFilterMode = False
    
70.         r = .Cells(.Rows.Count, 2).End(xlUp).Row
    
71.         arr = .Range("a2:l" & r)
    
72.         For i = 1 To UBound(arr)
    
73.             If arr(i, 10) >= rq(1, 1) And arr(i, 10) <= rq(1, 2) Then
    
74.                 If d.exists(arr(i, 2)) Then
    
75.                     m = d(arr(i, 2))
    
76.                     brr(m, 15) = brr(m, 15) + arr(i, 6)
    
77.                     brr(m, 16) = brr(m, 16) + arr(i, 8)
    
78.                 End If
    
79.             End If
    
80.         Next
    
81.     End With
    
82.     For i = 1 To UBound(brr)
    
83.         brr(i, 17) = brr(i, 6) + brr(i, 9) - brr(i, 11) + brr(i, 13) + brr(i, 15)
    
84.         brr(i, 18) = brr(i, 8) + brr(i, 10) - brr(i, 12) - brr(i, 14) - brr(i, 16)
    
85.     Next
    
86.     With Worksheets("库存")
    
87.         .Range("a3").Resize(UBound(brr), UBound(brr, 2)) = brr
    
88.     End With
    
89. End Sub
    

复制代码

chxw68

结果跟楼主模拟的不一样，可能没有理解楼主的规则。

dbg111222

chxw68 发表于 2024-2-28 17:10
结果跟楼主模拟的不一样，可能没有理解楼主的规则。

老师您好，感谢您给修改的代码！有点问题，期初库存应该随着时间的变化而变化，如果入库时间小于要查询的起始时间，就等于原始库存的库存数量。如果大于起始时间，期初库存应该等于前一个时间段的结存。

dbg111222

chxw68 发表于 2024-2-28 17:10
结果跟楼主模拟的不一样，可能没有理解楼主的规则。

也就是说查询1月份的数据，可以去用原始数据表的数量作为期初，但是2月份的就得用1月份的库存数量作为期初数量。

dbg111222

dbg111222 发表于 2024-2-28 17:43
老师您好，感谢您给修改的代码！有点问题，期初库存应该随着时间的变化而变化，如果入库时间小于要查询的 ...

麻烦老师费点心再给修改一下，谢谢！

chxw68

猜测着修改的。

dbg111222

chxw68 发表于 2024-2-28 18:27
猜测着修改的。

感谢老师，我先试一下。