Private Sub Worksheet_Change(ByVal Target As Range)
'关闭(工作表)事件
Application.EnableEvents = False
'借用K1单元格,以便直接得到公式的值
[k1] = "=E1+sum(金额2)-sum(金额)"
'根据条件,输出提示
If [k1] = 0 Then MsgBox "金额钩稽正确" Else MsgBox "金额钩稽正确"
'启用(工作表)事件
Application.EnableEvents = True
End Sub
2.rar
(12.02 KB, 下载次数: 8)