修正VBA代码引发行剪切粘贴失效的问题求助

先拆解你遇到的两个核心问题，再给出完整的修正代码：

问题1：Run-time Error '424' Object Required #

这个错误出在Target.Offset(, 4).Value = Time这行代码上——VBA里的Time如果不带括号，会被解析为对象引用，但我们需要的是返回当前系统时间的函数，应该用Time()来调用它。

问题2：行剪切粘贴功能失效 #

你修正双击事件时，一开始就设置了Application.EnableEvents = False，这会导致修改M列单元格值时，Worksheet_Change事件完全无法触发——而行移动的逻辑正是写在这个事件里的，自然就失效了。

修正后的完整代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngDest As Range, rngDest2 As Range, rngDest3 As Range
    
    ' 避免批量修改单元格时触发错误，只处理单个单元格的变化
    If Target.Cells.Count > 1 Then Exit Sub
    
    If UCase(Target.Value) = "PARTIAL HOLD" Then
        Set rngDest = Sheet3.Range("A5:Q5")
        If Not Intersect(Target, Sheet1.Range("M5:M290")) Is Nothing Then
            Application.EnableEvents = False
            Target.EntireRow.Cut
            rngDest.Insert Shift:=xlDown
            Target.EntireRow.Delete
            Application.EnableEvents = True
        End If
    ElseIf UCase(Target.Value) = "PROGRESSING" Then
        Set rngDest3 = Sheet1.Range("A5:Q5")
        If Not Intersect(Target, Sheet3.Range("M5:M290")) Is Nothing Then
            Application.EnableEvents = False
            Target.EntireRow.Cut
            rngDest3.Insert Shift:=xlDown
            Target.EntireRow.Delete
            Application.EnableEvents = True
        End If
    ElseIf UCase(Target.Value) = "COMPLETE" Then
        Set rngDest2 = Sheet2.Range("A5:Q5")
        If Not Intersect(Target, Sheet1.Range("M5:M290")) Is Nothing Then
            Application.EnableEvents = False
            Target.EntireRow.Cut
            rngDest2.Insert Shift:=xlDown
            Target.EntireRow.Delete
            Application.EnableEvents = True
        End If
    End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    On Error GoTo Xit ' 保留错误处理逻辑
    
    If Target.Column = 11 Then
        Cancel = True
        ' 仅在修改单元格时临时禁用事件，避免重复触发Change事件
        Application.EnableEvents = False
        Target.Offset(, 2).Value = "IN PROGRESS"
        Target.Offset(, 4).Value = Time() ' 修复Time函数调用
        Application.EnableEvents = True ' 重新启用事件，让Change事件正常触发
    ElseIf Target.Column = 12 Then
        Cancel = True
        Application.EnableEvents = False
        Target.Offset(, 1).Value = "COMPLETE"
        Target.Offset(, 4).Value = Time() ' 修复Time函数调用
        Application.EnableEvents = True
    ElseIf Target.Column = 14 Then
        Cancel = True
        Application.EnableEvents = False
        Target.Offset(, -1).Value = "PARTIAL HOLD"
        Application.EnableEvents = True
    End If

Xit:
    ' 确保无论是否出错，事件最终都是启用状态，防止后续操作异常
    If Not Application.EnableEvents Then Application.EnableEvents = True
End Sub

关键修改说明 #

1. 修复424错误：把所有Time改为Time()，明确调用时间函数返回当前时间。
2. 调整事件启用时机：在双击事件中，仅在修改单元格值的前后临时禁用/启用事件——既避免了设置值时重复触发Worksheet_Change，又能让行移动逻辑正常执行。
3. 增加批量操作防护：在Worksheet_Change开头添加判断，避免批量修改单元格时出现未知错误。
4. 完善错误兜底：在错误处理标签处确保事件最终处于启用状态，防止因意外错误导致事件一直被禁用。

这样修改后，双击单元格设置状态时会正确触发行移动，同时也不会再出现424错误。

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