当单元格的数值发生变化时弹出提示

wrynata · 发表于 2025-2-26 17:31

本帖最后由 wrynata 于 2025-2-26 20:13 编辑

求助：指定某单元格F12，当F12的数值发生变化时（注意不是在F12输入发生的变化）。

'下面语句只能在F12 录入数据时可行，但F12公式取得的结果发生变化时，不起作用。

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("F12")) Is Nothing Then
MsgBox "提示：请注意数值发生变化！！！" & Target.Value
End If
End Sub

求助26.rar (12.66 KB, 下载次数: 3)

zjdh · 发表于 2025-2-26 17:57

既然F12是由于F6:F11发生变化而变化的，那就改为
If Not Intersect(Target, Me.Range("F6:F11")) Is Nothing Then

wrynata · 发表于 2025-2-26 20:12

zjdh 发表于 2025-2-26 17:57
既然F12是由于F6:F11发生变化而变化的，那就改为
If Not Intersect(Target, Me.Range("F6:F11")) Is Nothi ...

果然是！非常感谢你... 既然F12是由....，问题已解决。

用户名		自动登录	找回密码
密码			免费注册

[已解决] 当单元格的数值发生变化时弹出提示