添加CommandButton及VBA代码后无法使用Command+Z执行撤销操作

Excel自带的撤销功能与VBA代码存在冲突——任何VBA执行的操作（包括触发Worksheet_Change事件）都会清空Excel的撤销队列。当你删除行时，会触发worksheet_Change事件，事件中的VBA代码运行后，之前的删除操作就被移出撤销栈，导致无法用Command+Z撤销。另外，点击CommandButton1执行的单元格修改操作，同样会清空撤销栈。

针对这个问题，我们可以从两个方向优化：

1. 优化事件代码，减少对撤销栈的不必要影响；
2. 手动实现关键操作的撤销功能，弥补Excel自带撤销的不足。

优化Worksheet_Change事件代码 #

原事件代码可以简化，同时加入事件禁用逻辑，避免递归触发（比如点击按钮清空单元格时会再次触发Change事件），减少对撤销栈的干扰：

Private Sub worksheet_Change(ByVal target As Range)
    Application.EnableEvents = False ' 禁用事件防止递归
    Application.ScreenUpdating = False
    
    ' 简化按钮显示判断逻辑
    Me.CommandButton1.Visible = (Cells(4, 5).Value > 0)
    
    Application.ScreenUpdating = True
    Application.EnableEvents = True ' 恢复事件
End Sub

手动实现撤销功能 #

因为VBA会清空默认撤销栈，我们可以自定义记录操作状态，添加一个撤销按钮来恢复之前的操作：

步骤1：添加全局变量记录状态 #

插入一个标准模块（按Alt+F11打开VBA编辑器，右键项目→插入→模块），在模块中声明全局变量：

' 保存按钮点击前的单元格状态
Public prevC3Value As Variant
Public prevC5Value As Variant
Public lastAction As String ' 标记最后执行的操作类型

步骤2：修改CommandButton1的点击代码 #

在执行修改前保存单元格状态：

Private Sub CommandButton1_Click()
    ' 保存当前状态用于后续撤销
    prevC3Value = Cells(4, 3).Value
    prevC5Value = Cells(4, 5).Value
    lastAction = "UpdateCells" ' 标记操作类型
    
    ' 执行原有逻辑
    Cells(4, 3) = Cells(4, 3) + Cells(4, 5)
    Cells(4, 5).Clear
End Sub

步骤3：添加撤销按钮 #

在工作表中插入第二个CommandButton（命名为CommandButton2），设置标题为“撤销”，然后添加点击事件代码：

Private Sub CommandButton2_Click()
    If lastAction = "UpdateCells" Then
        Application.EnableEvents = False
        ' 恢复之前的单元格状态
        Cells(4, 3).Value = prevC3Value
        Cells(4, 5).Value = prevC5Value
        lastAction = "" ' 重置操作标记
        Application.EnableEvents = True
    End If
End Sub

关于删除行后无法撤销的说明 #

如果是删除行触发Change事件导致无法撤销，目前没有完美的原生解决方案——因为删除行的操作在触发VBA事件前已经完成，VBA运行后直接清空了撤销栈。如果需要保留删除行的撤销功能，可以考虑：

• 在删除行前暂时禁用工作表事件（手动执行Application.EnableEvents = False，删除后再恢复）；
• 或者手动记录行的内容，添加自定义撤销逻辑来恢复被删除的行。

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