事件取决于带有公式的单元格

Question

我是 VBA 的新手，所以我会在这里问一个问题：

我有一个报告，它设置为更改正确的标题字体、大小和内容，所有这些都取决于一个单元格的值，如果我更改另一个单元格的值，它就会更新。问题是，它所依赖的值的单元格源于一个公式，该公式由时间线切片器控制。

切片器确定某个数据透视表的周期，变化的单元格取该周期的最大日期（单元格称为“EndDate”）。由此，具有标题输入的单元格显示当前季度（单元格称为“ReportNo”）。

我现在的代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Application.Intersect(Target, Me.Range("EndPeriod")) Is Nothing Then

        ThisWorkbook.Worksheets("Report").PageSetup.RightHeader = "&28" & Me.Range("ReportNo").Text

    End If

End Sub

有什么方法可以让工作表在公式相关单元格中的单元格值发生变化时运行 VBA？

我尝试将线程的第一个答案添加到代码中：

Answer 1

这样的事情怎么样：

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("EndPeriod").Address Then 'if something changes on ReportNo
Call yourmacro 'call your vba macro
End If
End Sub

Sub yourmacro()
    ThisWorkbook.Worksheets("Report").PageSetup.RightHeader = "&28" & Me.Range("ReportNo").Text
End Sub

将代码添加到：