【VBA研究】如何检测单元格内容改变

iamlaosong文

我们经常需要监督Excel工作表中单元格的值是否变化，例如我们客服有一个报表要通报，报表的内容来自很多地方，需要将这些数据复制到这个表中，由于数据较多，为了防止有遗漏，希望更新后的数据有个标志，这样没有更新的就一目了然了。为此，很自然就会想起利用Worksheet_Change事件完成。当工作表任何单元格发生变化时就会激活这个事件。另一个事件函数Worksheet_SelectionChange则是活动单元格发生变化时激活。

1、用Worksheet_Change事件完成

先看代码，其中的 Date_Change()是用于日期变化的微调按钮指定的宏：

Public Sub Date_Change()
'日期变化时，将标志还原
Range("C1:K1") = "Old"
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row >= 4 And Target.Row <= 21 Then
If Target.Column >= 3 And Target.Column <= 11 Then
'选定范围的值发生变化时
Cells(1, Target.Column) = "New"
End If
End If
End Sub

2、自定义函数，比较备份值确定

如果不想用worksheet 的 change 事件，也可以自己写个函数，因为用来change 事件，一点改变都会激活这个事件，关键一点是，只要进入了编辑状态，即使值没有变化，也会激活这个事件，使你无法判断值是否真的变了。

为了达到这个目标，在日期变更时，将数据做个备份，标志单元格用个if函数判断一下是不是改变了即可。为了简化判断，只对报表的最后一行总和进行比较。

先看代码，日期变更时将21行的数据备份到24行：

Sub cp_data()

Application.ScreenUpdating = True

Rows("21:21").Copy
Range("A24").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A5").Select
Application.CutCopyMode = False

Application.ScreenUpdating = True
End Sub

25行的状态单元格内容为公式，如C25：=IF(C24=C21,"Old","New")，如下图所示：



最后说一下，为了显示明显，标志单元格设置了条件格式，当内容为New时显示为红底。

3、用Worksheet_SelectionChange事件确定值是否真的改变

对于手工修改单元格的值，可以用Worksheet_SelectionChange事件记录修改前的值，这样就可以判断单元格的值是否真的变了，因为要手工修改一个单元格的值，首先要选择它。注意：一次只能选一个单元格。代码如下：

Dim OldValue

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value <> OldValue Then
MsgBox Target.Address & "单元格由" & OldValue & "变为" & Target.Value
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
OldValue = Target.Value
End Sub