如何将SelectionChange事件代码适配至Calculate事件并解决运行报错问题

我来帮你拆解下这两个报错的根源，再给你对应的修复方案：

1. 「Object required」错误的原因 #

Worksheet_Calculate事件根本没有Target参数！你之前在Worksheet_SelectionChange里用的Target是该事件自带的专属参数，但Calculate事件是工作表计算触发的，和选中的单元格完全无关，自然不会提供这个对象。直接用Target就会触发“对象未定义”的错误。

而且原代码里的If Target.Cells.CountLarge = 1是用来判断选中单元格数量的，这在Calculate事件里完全没必要——计算触发时不管你选中多少单元格，逻辑都应该执行，所以这行判断可以直接删掉。

2. 「Method 'Undo' of object '_Application' failed」错误的原因 #

这个报错的核心是：Excel在执行Calculate事件期间，处于计算锁定状态，此时整个撤销栈是被锁定的，根本无法执行Undo操作。

你提到工作表里有Worksheet_Change事件的代码，如果其中用到了Application.Undo，那么当Calculate事件触发时，可能间接触发了Change事件，导致Undo在计算期间被调用，从而触发这个错误。

修正后的Calculate事件代码 #

把代码改成这样，就能正常运行了：

Private Sub Worksheet_Calculate()
    Dim Column_A As Range
    ' 用Me代替ActiveSheet，更可靠（Me代表当前工作表，不会因切换工作表出错）
    Set Column_A = Me.Range("A3", Me.Range("A" & Me.Rows.Count).End(xlUp))
    
    If Me.FilterMode = True Then
        Column_A.Interior.Color = RGB(255, 0, 0)
    Else
        Column_A.Interior.Color = RGB(255, 255, 255)
    End If
End Sub

额外优化建议 #

• 如果你的Worksheet_Change事件里确实有Undo操作，建议在执行前先判断Excel是否处于计算状态，避免冲突：

  Private Sub Worksheet_Change(ByVal Target As Range)
      ' 检查是否在计算中，是就直接退出，避免Undo报错
      If Application.CalculationState <> xlDone Then Exit Sub
      
      ' 你的其他Change事件代码（包括Undo相关逻辑）
      ' ...
  End Sub
  

• Calculate事件会在每次工作表计算时触发（比如公式更新、自动重算开启时），如果A列数据量很大，频繁触发可能影响性能。可以考虑加个状态判断，比如只在FilterMode状态变化时才执行颜色设置，不过这得看你的具体需求。

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