求助如何做全额统计

月落天涯

向大神求助如何做全额统计，希望达到的效果是：在全额统计表点击按钮后，将已经入库满额的所有订单筛选出来 ，满额是指整张订单所有物料，在入库明细表里的入库数量与该订单里的对应数量差异都为零。订单数量取自订单列表，入库数量取自入库明细，入库数量是入库明细M列对应的数据，需要说明的一点是，如某订单所有物料均已满额入库，但出库日期已经填写，则不在筛选之列。多谢各位大神，有鲜花。表中模拟了20240459订单的情况。

ykcbf1100

其实我看得不太明白，猜一下吧。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.5.26
   
2.     With Sheets("入库明细")
   
3.         r = .Cells(Rows.Count, 1).End(3).Row
   
4.         arr = .[a1].Resize(r, 16)
   
5.     End With
   
6.     ReDim brr(1 To UBound(arr), 1 To 7)
   
7.     b = Array(2, 3, 4, 5, 13, 16)
   
8.     For i = 4 To UBound(arr)
   
9.         If arr(i, 15) = Empty Then
   
10.             If Val(arr(i, 14)) = 0 Then
    
11.                 m = m + 1
    
12.                 brr(m, 1) = m
    
13.                 For x = 0 To UBound(b)
    
14.                     brr(m, x + 2) = arr(i, b(x))
    
15.                 Next
    
16.             End If
    
17.         End If
    
18.     Next
    
19.     With Sheets("全额统计")
    
20.         .[a4].Resize(1000, 7) = ""
    
21.         .[a4].Resize(m, 7) = brr
    
22.     End With
    
23.     MsgBox "OK！"
    
24. End Sub
    

复制代码

shiruiqiang

月落天涯

ykcbf1100 发表于 2024-5-26 15:10
其实我看得不太明白，猜一下吧。

你好老师，除了20240459，还有20240454这个订单也已经满额 ，满额是指整张订单所有物料，在入库明细表里的入库数量与该订单里的对应数量差异都为零。一开始的时候我说的不清楚。

月落天涯

shiruiqiang 发表于 2024-5-26 15:12

你好老师，除了20240459，还有20240454这个订单也已经满额 ，满额是指整张订单所有物料，在入库明细表里的入库数量与该订单里的对应数量差异都为零。一开始的时候我说的不清楚。

shiruiqiang

月落天涯

shiruiqiang 发表于 2024-5-26 15:41

你好，运算结果仍有出入。

shiruiqiang

你把演示的结果发上来看看

月落天涯

全额统计表左侧是实际全额的订单筛选，右侧是代码运行的结果。