事件依赖于具有公式的单元格

我在VBA非常新，所以我会在这里问一个问题：

我有一个报告，这是设置为更改正确的标题字体，大小和内容，所有依赖于单元格值，并更新如果我更改另一个单元格的值。 问题是，它所依赖的单元格源自一个由时间轴限制器控制的公式。

限幅器确定某个数据透视表的周期，并且更改的单元格取这个周期的最大date（单元格称为'EndDate'）。 由此，input到标题的单元格显示当前四分之一（单元格被称为“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 

将代码添加到：