高手们能否帮忙解决这个难题 先谢谢了

mye680

现有发料单填写发放物料数量，如何在发料单实发数量大于数据源的库存数量时，提示 库存数量不足 该如何写代码呢 先谢谢高手们了

liulang0808

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Target.Row <= 5 Or Target.Row >= 14 Then Exit Sub
    Application.EnableEvents = False
    If Target.Column = 1 Or Target.Column = 5 Then
        r = Target.Row
        If Len(Target) = 0 Then
            Cells(r, 5) = 0
        Else
            Set Rng = Sheets("基础资料汇总").Columns(2).Find(Cells(r, 1), lookat:=xlWhole)
            If Not Rng Is Nothing Then
                m = Rng.Offset(0, 4)
                If Cells(r, 5) > m Then
                    MsgBox "对应数量大于库存:" & m
                    Cells(r, 5) = ""
                End If
            Else
                MsgBox "对应编号的物料不存在"
            End If
        End If
    End If
    Application.EnableEvents = True
End Sub

liulang0808

供参考。。。。。。。

捞屎人

liulang0808 发表于 2022-11-26 23:16
供参考。。。。。。。

版主手太快了

mye680

版主 你太厉害了 感谢版主大大

mye680

再次感谢 问题完美解决 谢谢版主。我这个新手完全不知道从何入手。

于箱长

mye680 发表于 2022-11-26 23:53
版主 你太厉害了 感谢版主大大

好用就赶紧送两花朵吧，点要送花的贴子右下角的评分