excel - 当单元格结果按公式更改时运行宏

Question

我需要什么:要触发的宏，让我们调用宏“MacroRuns”，每当单元格 C3 根据其公式返回与当前不同的值时，而不是基于手动键入不同的值。

我花了一整天的时间阅读并尝试在我的谷歌搜索关于这个主题的前两页上的每一个“解决方案”。到目前为止，似乎没有什么对我有用。请帮忙!!!我将不胜感激!

示例:

我现在已经尝试过了，但它在工作几次后损坏了我的文件。

Private Sub Worksheet_Calculate()
    If Range("E3") <> Range("C3").Value Then
        Range("E3") = Range("B3").Value
        MsgBox "Successful"
    End If
End Sub

Answer 1

Module1、Sheet1(计算)、ThisWorkbook(打开)

强调

当工作簿打开时，C3 中的值被公之于众
变量 TargetValue通过 TargetStart .

当 C3 中的值正在计算中，TargetCalc被激活
通过计算事件。如果 C3 中的当前值不同于 TargetValue , MacroRuns被触发并且TargetValue用 C3 中的值更新.

编码

模块1

Option Explicit

Public TargetValue As Variant
Private Const cTarget As String = "C3"

Sub TargetCalc(ws as Worksheet)
    If ws.Range(cTarget) <> TargetValue Then
        MacroRuns
        TargetValue = ws.Range(cTarget).Value
    End If
End Sub

Sub TargetStart()
    TargetValue = Sheet1.Range(cTarget).Value
End Sub

Sub MacroRuns()
    MsgBox "MacroRuns"
End Sub

本工作手册

Option Explicit

Private Sub Workbook_Open()
    TargetStart
End Sub

表1

Option Explicit

Private Sub Worksheet_Calculate()
    TargetCalc Me
End Sub