Excel VBA执行地块清空代码报运行时错误1004但功能正常求助

问题根因 #

报错不是clearPlot本身的逻辑导致的，而是你执行ClearContents清空行数据时，修改了E列的单元格内容，触发了Worksheet_Change事件。手动改单元格触发事件时，Target是单个单元格，代码可以正常运行；但清空操作会同时修改7个单元格，Target是多单元格区域，原事件代码直接读取Target.Value会拿到数组，判断逻辑失效抛出1004错误，这也是为什么你看到所有操作都执行完成后才弹出报错框的原因。

解决方案 #

方案1（最简修复，推荐） #

给clearPlot添加事件关闭逻辑，避免清空操作触发不必要的单元格变更事件，同时添加错误处理防止事件意外永久关闭：

Sub clearPlot()
    Dim rClear As Integer
    Dim clearedPlot As Integer
    ' 关闭事件，防止清空操作触发Worksheet_Change
    Application.EnableEvents = False
    ' 错误兜底，避免出错后事件一直处于关闭状态
    On Error GoTo ErrHandler

    rClear = ActiveCell.Row
    If rClear > 1 Then
        clearedPlot = Cells(rClear, 5).Value
        If clearedPlot > 0 Then
            garden clearedPlot, 0, 255, 0
            With Worksheets("Plot Log")
                .Range(.Cells(rClear, 1), .Cells(rClear, 7)).ClearContents
            End With
        End If
    End If

ExitHandler:
    ' 恢复事件触发
    Application.EnableEvents = True
    Exit Sub
ErrHandler:
    MsgBox "运行错误：" & Err.Description
    Resume ExitHandler
End Sub

方案2（优化事件代码，兼容多单元格变更） #

如果后续需要支持批量修改E列的场景，可以优化Worksheet_Change的逻辑，遍历所有变更单元格处理：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim occupiedPlot As Integer
    Dim cell As Range
    Set plots = Sheets("Plot Log").Range("E:E")
    
    For Each cell In Target
        If Not Application.Intersect(cell, plots) Is Nothing And cell.Row <> 1 And Not IsEmpty(cell.Value) Then
            occupiedPlot = cell.Value
            garden occupiedPlot, 255, 0, 0
        End If
    Next cell
End Sub

可选优化（增强garden子过程鲁棒性） #

可以给garden子过程添加坐标有效性判断，避免传入无效地块编号时抛出错误：

' 原坐标计算逻辑保持不变，在修改颜色前加如下判断
If r > 0 And c > 0 Then
    Worksheets("Plots").Cells(r, c).Interior.Color = RGB(red, green, blue)
End If

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