如何实现订单满足查询

brucehanyx

如题，交货的部品只能部分满足订单，每次都要人为判断交到了哪个订单。可否用函数计算出订单满足查询sheet中的D、E列结果。以上，谢谢。
订单满足查询求助.zip (7.57 KB, 下载次数: 25)

2018-5-18 18:10 上传

点击文件名下载附件

一指禅62

1. Sub 订单进度检查()
   
2.     Dim d As Object, arr, i&, s$
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     Rem 提取当日出货量
   
5.     arr = Sheet2.Range("A1").CurrentRegion
   
6.     For i = 2 To UBound(arr)
   
7.         d(arr(i, 1)) = arr(i, 2)
   
8.     Next
   
9. 
   
10.     Rem  计算客户订单满足量
    
11.     arr = Sheet1.Range("A2:E" & Sheet1.Range("A1").CurrentRegion.Rows.Count)
    
12.     For i = 1 To UBound(arr)
    
13.         If d.Exists(arr(i, 2)) Then
    
14.             If d.Item(arr(i, 2)) >= arr(i, 3) Then
    
15.                 arr(i, 4) = arr(i, 3)
    
16.                 arr(i, 5) = "是"
    
17.                 d.Item(arr(i, 2)) = d.Item(arr(i, 2)) - arr(i, 3)
    
18.             Else
    
19.                 arr(i, 4) = d.Item(arr(i, 2))
    
20.                 arr(i, 5) = "否"
    
21.                 d.Item(arr(i, 2)) = 0
    
22.             End If
    
23.         Else
    
24.             arr(i, 4) = 0
    
25.             arr(i, 5) = "否"
    
26.         End If
    
27.     Next
    
28.    
    
29.     Rem  输出到 Sheet3
    
30.     Sheet3.Select
    
31.     With Range("A2:E" & Range("A1").CurrentRegion.Rows.Count)
    
32.         .ClearContents
    
33.         .Borders.LineStyle = xlNone
    
34.     End With
    
35.     With Range("A2").Resize(UBound(arr), UBound(arr, 2))
    
36.         .Value = arr
    
37.         .Borders.LineStyle = xlContinuous
    
38.     End With
    
39. End Sub

复制代码

一指禅62

订单满足查询求助.zip (59.67 KB, 下载次数: 49)

2018-5-20 09:57 上传

点击文件名下载附件

brucehanyx

一指禅62 发表于 2018-5-20 09:57

衷心感谢专家的解答！我得好好学习VBA了。

brucehanyx

一指禅62 发表于 2018-5-20 09:56

尝试修改您的VBA代码，结果发现报错。
另外又开了一个帖子求助，
http://club.excelhome.net/thread-1414877-1-1.html
期待能得到您的指导，谢谢。