我正在使用AfterUpdate事件来更新其条件取决于多个条件的文本框。我的代码的第一部分工作正常,但第二部分没有做任何事情。我认为它是因为VBA退出Sub很快就满足了第一部分条件。有办法解决它吗?我还是VBA的新手,我正在努力解决这个问题。任何建议都非常感谢
Private Sub QuantityUsed_AfterUpdate()
If IsNull(QuantityUsed) Then
QuantityUsed = 0
Else: QuantityUsed = QuantityUsed.Value
End If
'First part__________________
If Used1.Value > Total1.Value Then
Exit Sub
End If
If Used1.Value = 0 Then
Exit Sub
End If
QuantityUsed = QuantityUsed.Value + Used1
'Second part__________________
If Used2.Value > Total2.Value Then
Exit Sub
End If
If Used2.Value = 0 Then
Exit Sub
End If
QuantityUsed = QuantityUsed.Value + Used2
End Sub
答案 0 :(得分:3)
如何稍微更改IF
语句?
'...
If Not Used1.Value > Total1.Value And Used1.Value <> 0 Then
QuantityUsed = QuantityUsed.Value + Used1
End If
'...