[已解决]求老师帮忙写个代码，给个思路。先谢过了

dragon840919

我想实现通过配料表里零件简码所对应的库位和数量，到对应的表里查找匹的条码、架位、数量，其中数量需要根据需求数量来计算条码的个数，图片是模拟效果

最佳答案

月排行榜 / 总排行榜

dsmch

2016-5-21 19:24

自动消减发料库位表中发料数量，建议删除关闭自动保存代码

1. Sub Macro1()
   
2. On Error Resume Next
   
3. Sheets("配料").Activate
   
4. For i = 2 To Range("a65536").End(xlUp).Row
   
5.     jm = Cells(i, 1): sl = Cells(i, "i"): p = ""
   
6.     With Sheets("" & Cells(i, "h"))
   
7.         For j = 2 To .Range("a65536").End(xlUp).Row
   
8.             If .Cells(j, 4) = jm And .Cells(j, "m") > 0 Then
   
9.                 p = p & .Cells(j, 3) & "," & .Cells(j, "k")
   
10.                 If sl >= .Cells(j, "m") Then
    
11.                     p = p & "," & .Cells(j, "m") & Chr(10)
    
12.                     sl = sl - .Cells(j, "m")
    
13.                     .Cells(j, "m") = 0
    
14.                 Else
    
15.                     p = p & "," & sl & Chr(10)
    
16.                     .Cells(j, "m") = .Cells(j, "m") - sl
    
17.                     Exit For
    
18.                 End If
    
19.             End If
    
20.         Next
    
21.     End With
    
22.     Cells(i, "j") = p
    
23. Next
    
24. End Sub

复制代码

跳转到最佳答案楼层

dsmch

自动消减发料库位表中发料数量，建议删除关闭自动保存代码

1. Sub Macro1()
   
2. On Error Resume Next
   
3. Sheets("配料").Activate
   
4. For i = 2 To Range("a65536").End(xlUp).Row
   
5.     jm = Cells(i, 1): sl = Cells(i, "i"): p = ""
   
6.     With Sheets("" & Cells(i, "h"))
   
7.         For j = 2 To .Range("a65536").End(xlUp).Row
   
8.             If .Cells(j, 4) = jm And .Cells(j, "m") > 0 Then
   
9.                 p = p & .Cells(j, 3) & "," & .Cells(j, "k")
   
10.                 If sl >= .Cells(j, "m") Then
    
11.                     p = p & "," & .Cells(j, "m") & Chr(10)
    
12.                     sl = sl - .Cells(j, "m")
    
13.                     .Cells(j, "m") = 0
    
14.                 Else
    
15.                     p = p & "," & sl & Chr(10)
    
16.                     .Cells(j, "m") = .Cells(j, "m") - sl
    
17.                     Exit For
    
18.                 End If
    
19.             End If
    
20.         Next
    
21.     End With
    
22.     Cells(i, "j") = p
    
23. Next
    
24. End Sub

复制代码

dragon840919

dsmch 发表于 2016-5-21 19:24
自动消减发料库位表中发料数量，建议删除关闭自动保存代码

是我想要的效果，老师太牛了，非常感谢

d346836673

新人   学习了