必须单击公式栏并在重新计算之前按Enter键

Question

我有2个工作表。

工作表1：很好地用这样的行放置数据

• 第1行：5＆lt; - 此数据来自第2页
• 第2行：4＆lt; - 此数据来自第2页
• 第3行：2＆lt; - 此数据来自第2页
• Row4：=（Row1 + Row2 + Row3）/ 3＆lt; - 从上面的单元格进行简单计算。

我有这个宏

Private Sub Worksheet_Change(ByVal Target As Range)

    If IsError(Cells(139, 8).Value) Then
    Call Sheet1.HideCharts
    End If

End Sub

这非常有效，并且在发生错误时运行，因此如果我在第1行中输入= 5/0（这会产生错误），则会运行HideCharts宏。

然而。 数据来自工作表2，这些数据来自多维数据集（数据库），当数据变为什么时，它将给出#REF！在工作表1.我理解是一个错误，然而宏不会运行。我究竟做错了什么？我希望你理解我的问题。

• 编辑：我发现宏实际上是半运行的。然而，我必须双击单元格，然后按回车键，然后激活它。

Answer 1

Private Sub Worksheet_Calculate()

End Sub

或者您可以检查公式中val的更改，以及您检查结果的方式