怎么实际附件中资料的多条件求和，然后加减，取最小值，

yancjm

1.从SYS表中取仓库名称和品号相同的需求数量，依需求日期累加在本表对应的日期栏位，一直到DB列

2.本表中黄色标示的列中6/26的缺料为现有库存减去6/26的需求，6/27以后为上一日的缺料减去需求，一直到DB列

3.取首批缺料日，从6/26~8/9中取缺料数量小于0的第一个缺料日

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.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
8.     c = .Cells(2, .Columns.Count).End(xlToLeft).Column
   
9.     .Range("q3").Resize(r - 2, c - 16).ClearContents
   
10.     arr = .Range("a2").Resize(r - 1, c)
    
11.     For i = 2 To UBound(arr)
    
12.       xm = arr(i, 2) & "+" & arr(i, 3)
    
13.       d(xm) = i
    
14.     Next
    
15.   End With
    
16.   With Worksheets("sys")
    
17.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
18.     brr = .Range("a2:h" & r)
    
19.     For i = 1 To UBound(brr)
    
20.       xm = brr(i, 7) & "+" & brr(i, 3)
    
21.       If d.exists(xm) Then
    
22.         m = d(xm)
    
23.         If brr(i, 1) >= #6/26/2019# And brr(i, 1) <= #8/9/2019# Then
    
24.           n = DateDiff("d", #6/26/2019#, brr(i, 1)) * 2 + 17
    
25.           arr(m, n) = arr(m, n) + brr(i, 6)
    
26.         End If
    
27.       End If
    
28.     Next
    
29.   End With
    
30.   For i = 2 To UBound(arr)
    
31.     arr(i, 18) = arr(i, 10) - arr(i, 17)
    
32.     For j = 20 To UBound(arr, 2) Step 2
    
33.       arr(i, j) = arr(i, j - 2) - arr(i, j - 1)
    
34.     Next
    
35.     For j = 18 To UBound(arr, 2) Step 2
    
36.       If arr(i, j) < 0 Then
    
37.         Exit For
    
38.       End If
    
39.     Next
    
40.     If j <= UBound(arr, 2) Then
    
41.       arr(i, 16) = arr(1, j)
    
42.     Else
    
43.       arr(i, 16) = ""
    
44.     End If
    
45.   Next
    
46.       
    
47.   With Worksheets("需求")
    
48.     .Range("a2").Resize(UBound(arr), UBound(arr, 2)) = arr
    
49.   End With
    
50. End Sub
    

复制代码

chxw68

详见附件。

yancjm

太强大了，非常感谢！

yancjm

chxw68 发表于 2019-6-26 16:50
详见附件。

如果日期要改成两个单元格取数，比如：Q2单元格为开始日期，DB2单元格为结束日期,该如何修改以下这句？ If brr(i, 1) >= #6/26/2019# And brr(i, 1) <= #8/9/2019# Then
          n = DateDiff("d", #6/26/2019#, brr(i, 1)) * 2 + 17

chxw68

开始和结束日期从第二列自动获得。

yancjm

非常感谢！

yancjm

chxw68 发表于 2019-6-26 17:18
开始和结束日期从第二列自动获得。

老师，sys表数据大于32700时运行出错，如附件，帮忙看看可如何解决？

chxw68

yancjm 发表于 2019-6-27 20:17
老师，sys表数据大于32700时运行出错，如附件，帮忙看看可如何解决？

把第2行Dim r%,i%修改为Dim r&,i&

yancjm

chxw68 发表于 2019-6-27 20:19
把第2行Dim r%,i%修改为Dim r&,i&

OK，非常感谢！