自动扣料问题请教

阿松1212

请问下论坛的大神，《登记界面》我已经根据成品规格型号生成了BOM表，现在想做一个自动扣料程序，就是我点了出库以后，在《库存表》中子物料库存数量列中抓取到《登记界面》的期末数据，并替换原来的期初数据，这样就可以自动扣料，我之前自己做了下，需要命很多变量，不会做，请大神帮忙看一下，万分感谢！

3190496160

Sub BOM表()
Dim rn As Range
If Sheets("登记界面").Cells(7, 2) = "" Then
MsgBox "不能生成BOM表，请相应规格！！"
Else
End If
Dim K As Long
For K = 1 To Sheets("BOM表").Cells(1, 6) + 16
If Sheets("BOM表").Cells(K, 1) = Sheets("登记界面").Cells(7, 2) Then
Sheets("登记界面").Range("B14:c29") = Sheets("BOM表").Cells(K, 2).Resize(16, 2).Value
Else
End If
Next K
r = Cells(Rows.Count, 2).End(xlUp).Row
ar = Range("a14:e" & r)
With Sheets("库存表")
    rs = .Cells(Rows.Count, 3).End(xlUp).Row
    For i = 2 To UBound(ar)
        If ar(i, 2) <> "" Then
            Set rn = .Range("c2:c" & rs).Find(ar(i, 2), , , , , , 1)
            If rn Is Nothing Then MsgBox "库存表中找不到" & ar(i, 2): End
            .Cells(rn.Row, 4) = ar(i, 5)
        End If
    Next i
End With
MsgBox "BOM已生成！"
End Sub

3190496160

阿松1212

3190496160 发表于 2024-6-19 16:24
Sub BOM表()
Dim rn As Range
If Sheets("登记界面").Cells(7, 2) = "" Then

大佬  能不能把自动扣料的宏单独设一个控件，生成BOM还是原来的宏

3190496160

阿松1212 发表于 2024-6-19 17:02
大佬  能不能把自动扣料的宏单独设一个控件，生成BOM还是原来的宏

阿松1212

3190496160 发表于 2024-6-19 18:03

谢谢大佬，试了下是可以的，但是又个问题还要请教下的，如图，BOM表出现一例无物料的时候，点了出库其他物料还是可以出库的，是不是可以优化下变成报警找不到物料的时候点出库时其他物料不出库？还有个就是主物料没有抓取期末数据，这个需要单独设一个变量就可以不？

3190496160

阿松1212 发表于 2024-6-20 11:00
谢谢大佬，试了下是可以的，但是又个问题还要请教下的，如图，BOM表出现一例无物料的时候，点了出库其他 ...

期初数量已经用代码帮你实现了，还用公式干嘛呢？？？？