仅当指定单元格值增加时触发Excel宏的技术问询

问题背景 #

需要实现仅当指定工作表的特定单元格值增加时调用Auto_Print_Yellow_Caution宏，当前代码仅能在单元格值变化（增/减）时触发，无法限定触发条件。

现有Worksheet_Change代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "Range" Then
        Call MyMacro
    End If
End Sub

需要触发的宏：

Sub Auto_Print_Yellow_Caution()
    Application.ScreenUpdating = False
    
    Sheets("Saver").Shapes("Group 6").Copy
    Sheets("Main").Select
    ActiveCell.Offset(-1, 0).Select
    ActiveSheet.Paste
    ActiveCell.Select
    
    Application.ScreenUpdating = True
End Sub

工作簿订单跟踪公式：

• =IF(ISNUMBER(SEARCH("Completed",Main!G7)),TRUE)：查找"Completed"文本并返回TRUE
• =IF(T3=TRUE,Main!A7,"")：符合条件时返回订单编号
• =IF(COUNTIF($U3:$U$200,"?*")<ROW(U3)-2,"",INDEX(U:U,SMALL(IF(U$2:U$200<>"",ROW(U$2:U$200)),ROWS(U$2:U3))))：将非空订单编号排序为列表
• =COUNTIF(T2:T135,TRUE)：统计已完成订单数量（假设这是需要监控值变化的目标单元格）

解决方案 #

由于目标单元格是公式计算结果，Worksheet_Change无法直接捕获旧值，需通过存储旧值对比实现仅值增加时触发：

1. 准备旧值存储单元格
   在工作表中选择一个隐藏单元格（如Z1），手动输入目标单元格的当前值作为初始旧值，后续代码会自动更新该值。

2. 使用Worksheet_Calculate事件监控变化
   替换原Worksheet_Change代码，添加以下事件代码到目标工作表的代码模块中：

Private Sub Worksheet_Calculate()
    ' 替换为你需要监控的目标单元格地址（比如统计订单数量的单元格）
    Dim targetCell As Range
    ' 替换为存储旧值的隐藏单元格地址
    Dim oldValueCell As Range
    
    Set targetCell = Me.Range("T136") ' 示例：对应COUNTIF(T2:T135,TRUE)的结果单元格
    Set oldValueCell = Me.Range("Z1")
    
    ' 仅当当前值大于旧值时执行宏，并更新旧值
    If targetCell.Value > oldValueCell.Value Then
        Auto_Print_Yellow_Caution
        oldValueCell.Value = targetCell.Value
    End If
End Sub

3. 优化宏代码（可选）
   移除不必要的Select操作，提升代码效率：

Sub Auto_Print_Yellow_Caution()
    Application.ScreenUpdating = False
    
    Sheets("Saver").Shapes("Group 6").Copy
    Sheets("Main").ActiveCell.Offset(-1, 0).Paste
    
    Application.ScreenUpdating = True
End Sub

注意事项 #

• 如果监控的是手动输入的单元格，可改用Worksheet_Change事件结合Application.Undo获取旧值，但公式计算单元格必须用Worksheet_Calculate。
• 可隐藏存储旧值的列或设置单元格保护，避免误修改。

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