有工作表和工作簿两种方式触发，具体看需要。
做的时候注意屏蔽自身相应操作，否则会无限循环。
给你个例程，监控A1的变化，结果写在A2里。
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count > 1 Then Exit Sub
If .Address = "$A$1" Then
Application.EnableEvents = False
.Offset(0.1) = "A1单元格发生了变化，新值为：" & .Value
Application.EnableEvents = True
End If
End With
End Sub
做的时候注意屏蔽自身相应操作，否则会无限循环。
给你个例程，监控A1的变化，结果写在A2里。
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count > 1 Then Exit Sub
If .Address = "$A$1" Then
Application.EnableEvents = False
.Offset(0.1) = "A1单元格发生了变化，新值为：" & .Value
Application.EnableEvents = True
End If
End With
End Sub
温馨提示：内容为网友见解，仅供参考
第1个回答 2015-09-14
单元格的值是否变化，使用VBA的Change事件即可处理本回答被提问者和网友采纳
相似回答
