VBA Worksheet_Change事件如何对N16至N30单元格区域生效

原代码通过直接比对Target.Address和固定单元格地址的写法，只能响应单个单元格N16的修改，无法覆盖目标区域，也不能适配用户批量修改多单元格的场景，可按以下方式改造：

核心改造点 #

• 用Intersect方法判断变更区域和监控范围是否存在重叠，替代原有的固定地址全等判断，天然支持单格、多格批量修改的场景
• 增加事件状态开关，避免代码执行过程中修改单元格触发递归调用
• 增加错误捕获，保证代码异常时也能恢复工作表保护状态、恢复事件触发
• 遍历落在监控区域内的所有变更单元格，逐个执行业务逻辑，避免批量修改时漏触发

改造后代码 #

工作表Change事件代码 #

放在对应工作表的代码模块中即可：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim monitorRange As Range
    Dim hitCell As Range
    
    ' 配置需要监控的目标区域：当前工作表N16至N30
    Set monitorRange = Me.Range("N16:N30")
    
    ' 无交集说明本次修改的单元格不在监控范围内，直接退出
    If Intersect(Target, monitorRange) Is Nothing Then Exit Sub
    
    ' 前置配置：关闭事件触发，避免递归
    Application.EnableEvents = False
    On Error GoTo CleanUp

    ' 原有保护解除逻辑
    Sheet3.Unprotect ""
    
    ' 遍历所有命中监控区域的变更单元格，逐个执行业务过程
    For Each hitCell In Intersect(Target, monitorRange)
        Call QuantityisActivated(hitCell)
    Next hitCell

    ' 原有重新加保护逻辑
    Sheet3.Protect ""

CleanUp:
    ' 无论执行是否报错，都恢复事件状态
    Application.EnableEvents = True
    ' 按需开启错误提示，调试阶段可以放开
    ' If Err.Number <> 0 Then MsgBox "执行出错：" & Err.Description
End Sub

业务过程适配 #

原QuantityisActivated过程不需要做结构性调整，传入的参数即为命中的单个单元格对象，原有逻辑可直接复用：

Sub QuantityisActivated(Target As Range)
    ' 原有业务逻辑写在这里即可
    MsgBox "This is a sample box"
End Sub

注意事项 #

• 不要省略Application.EnableEvents相关逻辑，否则如果QuantityisActivated过程中有修改单元格内容的操作，会反复触发Change事件造成死循环
• 错误捕获块必须保留，否则代码中途报错退出时，会一直停留在事件关闭、工作表未保护的状态，影响表格正常使用
• 如果后续需要调整监控范围，只需要修改monitorRange赋值的单元格地址即可，不需要改动其他逻辑

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