vba - 当单元格值被公式更改时动态调用宏

Question

在 Excel 中，通过“数据连接”，我在单元格 A1 中获取实时数据。使用 A1 的值，我正在对单元格 B1 进行一些计算。如果 B1 中的值为 TRUE，则应将该值复制到 C1。

到目前为止，我一直无法达到预期的结果，希望得到一些指导。

Answer 1

如果您在外部刷新单元格A1并希望根据单元格B1的计算执行复制，则可以使用计算事件宏。

假设我们希望在C1中捕获A1中超过 100 的第一个值。捕获第一个值后，将不会复制大于 100 的其他值。

在B1中，我们输入：

=AND(A1>100,C1="")

然后在工作表代码区域中安装此事件宏：

Private Sub Worksheet_Calculate()
   Dim B As Boolean
   B = Range("B1").Value
   If B Then
      Application.EnableEvents = False
         Range("C1").Value = Range("A1").Value
      Application.EnableEvents = True
   End If
End Sub