excel - VBA：公式没有更新

Question

我是 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

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

Answer 1

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

http://www.cpearson.com/Excel/Events.aspx