Excel宏触发邮件异常：仅需F列修改时触发邮件求解决

当前宏的问题在于Worksheet_Change事件会在任意单元格修改时触发并调用notify，只需在事件中增加范围判断，就能实现仅修改目标区域时才执行后续逻辑。

修改后的完整代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 定义需要监控的范围：F3到F14
    Dim monitorRange As Range
    Set monitorRange = Me.Range("F3:F14")
    
    ' 检查修改的单元格是否落在监控范围内，不在则直接退出
    If Intersect(Target, monitorRange) Is Nothing Then
        Exit Sub
    End If
    
    ' 关闭事件触发，避免后续操作（如mymacro中若有单元格修改）递归触发事件
    Application.EnableEvents = False
    
    On Error GoTo Cleanup ' 确保出错时能恢复事件状态
    
    Call notify
    
Cleanup:
    ' 恢复事件触发功能
    Application.EnableEvents = True
End Sub

Sub notify()
   Dim rng As Range
   For Each rng In Range("F3:F14")
    If rng.Value = 1 Then
        Call mymacro
    End If
   Next rng
End Sub

关键修改说明 #

• 范围判断：通过Intersect(Target, monitorRange)检测修改的单元格是否与监控范围有交集，无交集则直接退出，不会执行notify。
• 事件控制：加入Application.EnableEvents开关，防止mymacro中若存在单元格修改操作时，递归触发Worksheet_Change事件。
• 错误处理：Cleanup标签确保即使代码出错，也能恢复Excel的事件触发功能，避免后续操作异常。

若需要监控整个F列（不限于F3:F14），只需将monitorRange的定义改为Me.Range("F:F")即可。

内容的提问来源于stack exchange，提问作者Zachary W