求助SUMIFS VBA

pkkgong

老师们，麻烦帮我看一下。用VBA达到月报模版的SUMIFS的公式效果。通过调整月报模版查询期间来调取自动保存出入库存数量。

不知道为什么

把需求说说清晰，不是每个人都能看懂公式得

pkkgong

不知道为什么 发表于 2018-8-21 08:39
把需求说说清晰，不是每个人都能看懂公式得

你好。是这样的，有报表模版的E列为查询期间前的期末数量，F列为查询期间的入库数量汇总，G列为查询期间的出库数量汇总，H列为期末余额。数量来源于自动保存中的G\J\N\O列。还请老师帮助。

pkkgong

不好意思！又忘记清密码了。

microyip

1. Sub 统计()
   
2.     Dim vData As Variant, nRow As Double
   
3.     Dim dicCode As Object, vCode As Variant
   
4.     Dim vFill As Variant, nFill As Double
   
5.     Dim dStart As Date, dEnd As Date, dDate As Date
   
6.    
   
7.     Application.ScreenUpdating = False
   
8.     Set dicCode = CreateObject("Scripting.Dictionary")
   
9.     With Sheet5
   
10.         dStart = .[E2].Value
    
11.         dEnd = .[F2].Value
    
12.         
    
13.         With .UsedRange
    
14.             vCode = .Offset(2, 1).Resize(.Rows.Count - 2, 1).Value
    
15.         End With
    
16.         ReDim vFill(1 To UBound(vCode), 1 To 4)
    
17.         For nRow = 1 To UBound(vCode)
    
18.             If Trim(vCode(nRow, 1)) <> "" Then dicCode(Trim(vCode(nRow, 1))) = nRow
    
19.         Next
    
20.         
    
21.         vData = Sheet3.UsedRange.Value
    
22.         For nRow = 1 To UBound(vData)
    
23.             If dicCode.Exists(Trim(vData(nRow, 10))) Then
    
24.                 nFill = dicCode(Trim(vData(nRow, 10)))
    
25.                 dDate = vData(nRow, 7)
    
26.                 If dDate < dStart Then
    
27.                     vFill(nFill, 1) = vFill(nFill, 1) + vData(nRow, 14) - vData(nRow, 15)
    
28.                     vFill(nFill, 2) = vFill(nFill, 2) - vData(nRow, 14)
    
29.                     vFill(nFill, 3) = vFill(nFill, 3) - vData(nRow, 15)
    
30.                 ElseIf dDate <= dEnd Then
    
31.                     vFill(nFill, 1) = vFill(nFill, 1) + 0
    
32.                     vFill(nFill, 2) = vFill(nFill, 2) + vData(nRow, 14)
    
33.                     vFill(nFill, 3) = vFill(nFill, 3) + vData(nRow, 15)
    
34.                 End If
    
35.                 vFill(nFill, 4) = vFill(nFill, 4) + vFill(nFill, 1) + vFill(nFill, 2) - vFill(nFill, 3)
    
36.             End If
    
37.         Next
    
38.         .[E3].Resize(UBound(vFill), 4) = vFill
    
39.     End With
    
40.     Application.ScreenUpdating = True
    
41. End Sub

复制代码

microyip

附上附件以供参考

pkkgong

microyip 发表于 2018-8-21 14:25
附上附件以供参考

首先感谢老师的帮助，但修改查询时间后所提取的数据和结果有出入还请老师修改一下。

序号	物料编码	物料名称	规格型号	期初数量	0	本期出库	期末余额
			查询期间	4月1日	4月15日
1	SA01.1008右1			-2582	-5091	-7673	15264
2	SA01.1008右2			2	-4	-2	0
3	SA01.1008左1			2	-5	-3	0
4	SA01.1008左2			2	-6	-4	0
5	SA01.1009(右2)			2	-7	-5	0
6	SA01.100P(右1)			2	-8	-6	0
7	SA01.100P(右2)			2	-9	-7	0

microyip

1. Sub 统计()
   
2.     Dim vData As Variant, nRow As Double
   
3.     Dim dicCode As Object, vCode As Variant
   
4.     Dim vFill As Variant, nFill As Double
   
5.     Dim dStart As Date, dEnd As Date, dDate As Date
   
6.    
   
7.     Application.ScreenUpdating = False
   
8.     Set dicCode = CreateObject("Scripting.Dictionary")
   
9.     With Sheet5
   
10.         dStart = .[E2].Value
    
11.         dEnd = .[F2].Value
    
12.         
    
13.         With .UsedRange
    
14.             vCode = .Offset(2, 1).Resize(.Rows.Count - 2, 1).Value
    
15.         End With
    
16.         ReDim vFill(1 To UBound(vCode), 1 To 4)
    
17.         For nRow = 1 To UBound(vCode)
    
18.             If Trim(vCode(nRow, 1)) <> "" Then dicCode(Trim(vCode(nRow, 1))) = nRow
    
19.         Next
    
20.         
    
21.         vData = Sheet3.UsedRange.Value
    
22.         For nRow = 1 To UBound(vData)
    
23.             If dicCode.Exists(Trim(vData(nRow, 10))) Then
    
24.                 nFill = dicCode(Trim(vData(nRow, 10)))
    
25.                 dDate = vData(nRow, 7)
    
26.                 If dDate < dStart Then
    
27.                     vFill(nFill, 1) = vFill(nFill, 1) + vData(nRow, 14) - vData(nRow, 15)
    
28.                     vFill(nFill, 2) = vFill(nFill, 2) + 0
    
29.                     vFill(nFill, 3) = vFill(nFill, 3) + 0
    
30.                 ElseIf dDate <= dEnd Then
    
31.                     vFill(nFill, 1) = vFill(nFill, 1) + 0
    
32.                     vFill(nFill, 2) = vFill(nFill, 2) + vData(nRow, 14)
    
33.                     vFill(nFill, 3) = vFill(nFill, 3) + vData(nRow, 15)
    
34.                 End If
    
35.                 vFill(nFill, 4) = vFill(nFill, 4) + vFill(nFill, 1) + vFill(nFill, 2) - vFill(nFill, 3)
    
36.             End If
    
37.         Next
    
38.         .[E3].Resize(UBound(vFill), 4) = vFill
    
39.     End With
    
40.     Application.ScreenUpdating = True
    
41. End Sub

复制代码

microyip

附上新附件以供参考