Excel VBA:公式中没有更新

我是VBA新手，并且已经想出了一些代码来根据两个单元格值调整矩形的大小。这似乎有效，但问题是它不会从公式更新

    Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Range("BJ6"), Target) Is Nothing Then
    Shapes("Rectangle 1").Width = Target.Value
    End If

    If Not Intersect(Range("Bk6"), Target) Is Nothing Then
    Shapes("Rectangle 1").Height = Target.Value
    End If
    End Sub

---

如何从公式中更新矩形大小？

您需要使用工作表计算事件宏，而不是工作表更改事件宏。见：