target操作，对当前单元格进行操作

需要选择worksheet 和change！

输入数量，和库存比对，并计算总金额

Dim rng As Range

Dim bijiao As Integer
Dim kucun As Integer


If Target.Column = 2 Then
    Set rng = Sheet2.Range("a:a").Find(Target(1, 0).Value) 在库存单中查找库存数量
    bijiao = Target.Value 
    kucun = rng(1, 2).Value
    If bijiao > kucun Then 如果输入数量大于库存，提示超限
        MsgBox "超限！" & Chr(13) & "超限数量为" & bijiao - kucun & "个"
        Target.ClearContents
    Else 否则，更新库存，并计算总金额
        kucun = kucun - bijiao
        rng(1, 2) = kucun
        Target(1, 3) = Target * Target(1, 2)
    End If
    
End If
End Sub