如何合并VBA中两个Worksheet_Change事件使其同时生效

单个工作表仅允许存在一个Worksheet_Change事件过程，因此需要将两个功能的逻辑整合到同一过程中，同时修复原代码的语法问题、避免修改单元格时递归触发事件。

合并后完整代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 通用前置判断：多选单元格/含公式单元格直接退出
    If Target.Cells.Count > 1 Or Target.HasFormula Then Exit Sub
    
    On Error GoTo ErrHandler
    ' 关闭事件触发，避免修改单元格时递归调用本过程
    Application.EnableEvents = False
    
    ' --------------------------
    ' 功能1：指定单元格大小写转换（原事件2逻辑，已修复单元格范围语法错误）
    ' --------------------------
    If Not Intersect(Target, Range("F7,K7")) Is Nothing Then
        Target = StrConv(Target, vbProperCase)
    End If
    
    ' --------------------------
    ' 功能2：K17单元格邮政编码格式化（原事件1逻辑）
    ' --------------------------
    If Not Intersect(Target, Range("K17")) Is Nothing Then
        With CreateObject("vbscript.regexp")
            .Global = True
            .Pattern = "[A-Z]{1,2}[0-9]{1,2}\s[0-9][A-Z]{2}"
            If Not .test(Cells(17, 11).Value) Then
                Cells(17, 11).Value = UCase(Left(Cells(17, 11).Value, Len(Cells(17, 11).Value) - 3) & " " & Right(Cells(17, 11).Value, 3))
            End If
        End With
    End If

ErrHandler:
    ' 无论是否出错都恢复事件触发，避免Excel事件失效
    Application.EnableEvents = True
End Sub

主要改动说明 #

• 修复原事件2的语法错误：Range("F7;K7")修改为Range("F7,K7")，英文逗号才是VBA中分隔多个不连续单元格的正确符号
• 移除了原事件1中不符合K17就直接退出的逻辑，确保两个功能的判断都能被执行
• 统一添加了事件开关和错误兜底逻辑，避免修改单元格时递归触发事件，也防止出错后Excel事件永久关闭
• 补充了单元格值的显式调用.Value，避免VBA默认属性调用导致的潜在异常

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