Excel 图纸重新计算引发的VBA事件

我正在寻找一个VBA方法，用于在excel中从图纸重新计算触发事件。以下代码仅在手动输入单元格时有效。我需要在特定单元格重新计算后触发事件。有什么想法吗

Private Sub Worksheet_Change(ByVal target As Range)
    If target.Address = Range("numcase").Address Then
        Dim Diagram As String
        numcase = Range("numcase").Value
        Diagram = numcase & "case"
        ActiveSheet.Shapes(Diagram).ZOrder (msoBringToFront)
    End If
End Sub

---

我以前使用过的一个简单的解决方法，用于捕获对筛选列表的更改，它也会起作用

添加虚拟工作表 在此虚拟工作表的单元格中，添加一个公式，例如=小计103，Sheet1！A1:A10其中此范围是您的numcase范围 将此代码添加到图纸代码右键单击图纸选项卡。。。。查看代码。。。粘贴 更新代码以执行所需操作 代码

---

没有这样的内置事件。在这里查找可能的背景：私有子工作表\u Calculate将启动，但无法针对特定范围：如果只想捕获某些更改，则必须跟踪范围值的更改。

'Dummy sheet code
Private Sub Worksheet_Calculate()
'Your range has been changed
    MsgBox "Your range has been changed"
' rest of your code from above
End Sub