vba - 当电子表格中出现错误时，如何停止触发基于事件的 VBA 代码？

Question

我设置了一个代码，当单元格达到特定值时自动发送电子邮件。 (下)

如果出现错误并且单元格被删除，它也会发送电子邮件。如果我从单元格中删除该值，我需要在代码中添加什么才能停止发送？

提前致谢。

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub

If Not Application.Intersect(Range("M4:M368"), Target) Is Nothing Then
    If IsNumeric(Target.Value) And Target.Value < 1000 Then
        Call Fuel_LevelW01D
    End If
End If
End Sub

Answer 1

• 您无需测试 IsNumeric
• 最好单独运行两个 IF's而不是AND因为没有对 <1000 进行测试。除非单元格有值

更新代码

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Application.Intersect(Range("M4:M368"), Target) Is Nothing Then
    If Len(Target.Value) > 0 Then
        If Target.Value < 1000 Then Call Fuel_LevelW01D
    End If
End If
End Sub