为何我的Excel VBA Worksheet_Change工作表变更事件无法正常工作？

常见原因排查 #

• 首先检查代码存放位置：Worksheet_Change是工作表级事件，必须粘贴到C3单元格所在工作表的代码模块中（VBA编辑器左侧项目管理器双击对应工作表，弹出的代码窗口才是正确存放位置，不能放在普通标准模块里）。
• 检查事件是否被禁用：如果之前代码运行出错意外中断，可能会导致Application.EnableEvents被设为False，事件不再触发。可以先运行一次以下单句子程序重置事件状态：

Sub 重置事件()
    Application.EnableEvents = True
End Sub

• 修正Target判断逻辑：原代码中If Target.Address = Range("C3") Then写法错误，Range("C3")是对象不是地址字符串，且Address返回值自带绝对引用符号$，建议改为更稳妥的Intersect判断，避免单个/多个单元格选中时判断失效。
• 避免事件递归触发：代码中执行Clear、Copy操作都会再次触发当前工作表的Change事件，导致逻辑混乱，需要在操作前关闭事件，执行完成后再重新开启。

修正后的完整代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim month As String
    ' 仅判断修改区域包含C3时触发
    If Not Intersect(Target, Me.Range("C3")) Is Nothing Then
        ' 关闭事件防止递归触发
        Application.EnableEvents = False
        
        Me.Range("A5:H27").Clear
        month = Me.Range("C3").Value

        Select Case month
            Case "Januar"
                Workbooks("Timesheet").Worksheets("Input").Range("A3:A25").Copy Me.Range("A5")
            Case "Februar"
                Workbooks("Timesheet").Worksheets("Input").Range("B3:B25").Copy Me.Range("A5")
            Case "März"
                Workbooks("Timesheet").Worksheets("Input").Range("C3:C25").Copy Me.Range("A5")
            Case "April"
                Workbooks("Timesheet").Worksheets("Input").Range("D3:D25").Copy Me.Range("A5")
            Case "Mai"
                Workbooks("Timesheet").Worksheets("Input").Range("E3:E25").Copy Me.Range("A5")
            Case "Juni"
                Workbooks("Timesheet").Worksheets("Input").Range("F3:F25").Copy Me.Range("A5")
            Case "Juli"
                Workbooks("Timesheet").Worksheets("Input").Range("G3:G25").Copy Me.Range("A5")
            Case "August"
                Workbooks("Timesheet").Worksheets("Input").Range("H3:H25").Copy Me.Range("A5")
            Case "September"
                Workbooks("Timesheet").Worksheets("Input").Range("I3:I25").Copy Me.Range("A5")
            Case "Oktober"
                Workbooks("Timesheet").Worksheets("Input").Range("J3:J25").Copy Me.Range("A5")
            Case "November"
                Workbooks("Timesheet").Worksheets("Input").Range("K3:K25").Copy Me.Range("A5")
            Case "Dezember"
                Workbooks("Timesheet").Worksheets("Input").Range("L3:L25").Copy Me.Range("A5")
        End Select
        
        ' 恢复事件触发
        Application.EnableEvents = True
    End If
End Sub

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