如何在Excel VBA中合并多个Worksheet_Change事件处理代码？

Excel的工作表中只能存在一个Worksheet_Change事件过程，你需要把两段逻辑整合到同一个过程里，同时修正原代码中的错误（比如第二个过程里错误覆盖target的问题）。

以下是合并并优化后的完整代码：

Private Sub Worksheet_Change(ByVal target As Excel.Range)
    ' 关闭事件触发，避免宏修改单元格时递归触发Change事件
    Application.EnableEvents = False
    
    ' 仅处理单个单元格变更的场景，批量修改时直接跳过
    If target.Cells.Count > 1 Then GoTo Cleanup
    
    ' 处理B3单元格的数值触发逻辑
    If target.Address = "$B$3" Then
        If IsNumeric(target.Value) Then
            Select Case target.Value
                Case 2: Class2
                Case 3: Class3
                ' 可在此补充第三个可选值的处理，例如：Case 1: Class1
            End Select
        End If
    End If
    
    ' 处理B4单元格的文本触发逻辑
    If target.Address = "$B$4" Then
        ' 用UCase兼容大小写输入，不管用户输yes/Yes/YES都能触发
        If UCase(target.Value) = "YES" Then
            RetireeLife
        End If
    End If

Cleanup:
    ' 恢复事件触发，保证后续正常响应单元格变更
    Application.EnableEvents = True
End Sub

关键注意事项： #

• 必须添加Application.EnableEvents = False/True：如果你的Class2、Class3或RetireeLife宏会修改工作表单元格，这行代码能避免递归触发Worksheet_Change事件，防止程序崩溃。
• 去掉了原代码中Set target = Range("$B$4")的错误写法：这行代码会强制把触发事件的目标单元格改成B4，导致不管用户修改哪个单元格，程序都只检查B4的内容，完全偏离需求。
• 用UCase(target.Value)兼容大小写：用户输入不同大小写的"yes"都能正常触发宏，提升容错性。
• 保留了单个单元格判断：批量修改单元格时（比如复制粘贴），程序会直接跳过，避免不必要的逻辑执行。

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