工作表变更事件Worksheet_Change，如果是写入的是公式值变更，为什么不能触发

松野

求助：


示例文件B4单元格写入的是公式，计算sheet2的A2和B2的求和，那么当改变A2或B2的数值时，sheet1的B4值随之改变，但是无法触触发Sheet1的Worksheet_Change事件，而sheet1的B2列其他单元格改变值则可以触发Worksheet_Change事件。要求如何在用公式的类似B4单元格也能触发

蓝桥玄霜

现阶段是做不到的。

心的启点

你可以看下这个方法行不行？https://club.excelhome.net/threa ... tml?_dsign=ad237520
直接用代码不用公式就是了

剑指E

这个需要 事件触发

松野

剑指E 发表于 2023-4-7 19:39
这个需要事件触发

怎么检测到具体哪个单元格的变化？

剑指E

松野 发表于 2023-4-9 11:08
怎么检测到具体哪个单元格的变化？

这个事件中没有参数设置（如Target），应根据实际案例去处理

松野

如在sheet2中数据发生变化，sheet1中的公式值也随之变化，如何在有变化的行标注上时间

selen

Private oldVal As Variant

Private Sub Worksheet_Calculate()
    ' 如果B4单元格中的公式计算结果与上一次不同，则表示该单元格的值已更改
    If Range("B4").Value <> oldVal Then
        ' 检查B4单元格是否引用Sheet2的A2和B2单元格，并且这些单元格的计算已完成
        If InStr(1, Range("B4").Formula, "Sheet2!A2") > 0 And InStr(1, Range("B4").Formula, "Sheet2!B2") > 0 And Not Application.CalculationState = xlCalculating Then
            MsgBox "B4 has changed to: " & Range("B4").Value
            oldVal = Range("B4").Value
        End If
    End If
End Sub

松野

selen 发表于 2023-4-9 16:01
Private oldVal As Variant

Private Sub Worksheet_Calculate()

感谢大神的回复，请问7楼的附件示例完整的如何实现，多个公式的就麻烦了