调用宏根据单元格值的变化，但公式保持不变

Question

我需要调用宏时电池B3的变化，然而B3是RTD链接，以便当值改变公式仍然是相同的，Excel不能识别的变化。我怎样才能让我的宏值更改时运行，但公式不？

我用一个简单的范围（“B3”）。价值试过但给了我一个运行时错误“424”。然后我试图创建一个范围对象来解决这个问题，但还是得到了另一条错误消息。

Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("B3")) Is Nothing Then
    Call Copy_Values
    End If
End Sub

我是比较新的VBA，所以我知道我可能会错过一些东西很明显，感谢您的帮助，您可以提供

Answer 1

你想Worksheet_Calculate不Worksheet_Change。采用静止无功，以“记住”从一个计算周期值。

Sub Worksheet_Calculate()

    static beeThree as variant

    If Range("B3").value2 <> beeThree Then
        application.enableevents = false
        application.calculation = xlcalculationmanual
        Copy_Values
        beeThree = Range("B3").value2
        application.calculation = xlcalculationautomatic
        application.enableevents = true
    End If

End Sub