Question

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

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

Answer 1

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

假设我们希望在 C1 中捕获超过100的 A1 中的第一个值。捕获第一个值后，不会复制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

当细胞值按公式

1 个答案: