多条件查找求老师帮忙

yysfcq1

依据物料编码和数量查找合适数量对应库位，求老师帮忙！

ykcbf1100

有VBA密码，提供一下密码。

ykcbf1100

是否满足条件即可，有的有多个解。

shiruiqiang

按照需求，物料做字典，数量值做值。遍历表1，相同字典，判断值大于的话，退出循环。
不过，实际上建议先进先出，从1仓库开始

yysfcq1

ykcbf1100 发表于 2024-8-2 07:01
有VBA密码，提供一下密码。

老师密码是8331600

yysfcq1

shiruiqiang 发表于 2024-8-2 07:03
按照需求，物料做字典，数量值做值。遍历表1，相同字典，判断值大于的话，退出循环。
不过，实际上建议先 ...

老师帮忙一下，不用先进先出

ykcbf1100

yysfcq1 发表于 2024-8-2 07:08
老师密码是8331600

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()    '//2024.8.2
   
2.     Application.ScreenUpdating = False
   
3.     arr = Sheets("总档").UsedRange
   
4.     With Sheets("单据")
   
5.         r = .Cells(Rows.count, "n").End(3).Row
   
6.         For X = 7 To r
   
7.             For i = 2 To UBound(arr)
   
8.                 If .Cells(X, "n") = arr(i, 2) Then
   
9.                     If .Cells(X, "o") <= arr(i, 8) Then
   
10.                         .Cells(X, "p") = arr(i, 9)
    
11.                         Exit For
    
12.                     End If
    
13.                 End If
    
14.             Next
    
15.         Next
    
16.     End With
    
17.     Application.ScreenUpdating = True
    
18.     MsgBox "OK！"
    
19. End Sub
    
20. 
    

复制代码