vba 监听手动修改单元格后内容的变化，发生改变后将字体设为红色

最近因某项目的客户需求，需要使用vba，监听某工作簿的某工作表内单元格的值是否发生变化（在已有值上手动修改或者在空白处添加新值），如果有变化设置变化后的单元格的字体为红色。

作为初学vba的小白，在网上查了很多教程，但大多有漏洞，故在此记录一下。

一、最简单的处理

     首先，查到的第一个简单的写法是直接在excel中选中工作表，右键查看代码，直接插入

Private Sub Worksheet_Change(ByVal Target As Range)
  Target.Font.Color = vbRed
End Sub

   利用excel的Worksheet_Change监听单元格变化，触发之后就设置字体颜色为红色。这样做虽然内容改变之后会变红，但是如果只是双击任意单元格没有进行修改，字体也会变红。

二、添加原本单元格值的验证

    第二种写法在此基础上进行了值的验证：

Dim OldValue
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Value <> OldValue Then
        Target.Font.Color = vbRed
    End If
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    OldValue = Target.Value
End Sub

   利用Worksheet_SelectionChange对原本单元格内容的值进行存储，如果修改后单元格的值与原来不同，则将字体设为红色。这样做虽然修改单一单元格的话足够用了，但是如果我们修改的单元格是合并单元格的话，是取不到Target.Value的值的，会触发报错。

三、针对合并单元格进一步处理

Dim OldValue
Dim OldValue2
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Value <> OldValue Then
        If Err Then
           GoTo Line
        End If
        Target.Font.Color = vbRed
    End If
Line:
    If IsEmpty(OldValue) Then
      Target.Font.Color = vbRed
    ElseIf Target.MergeCells = True Then
      If Target.Cells(1, 1).Value <> OldValue2 Then
        Target.Font.Color = vbRed
      End If
    End If
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.MergeCells = True Then
      OldValue2 = Target.Cells(1, 1).Value
    End If
    OldValue = Target.Value
End Sub

     简单来说，比较重要的有两点：1.Target.MergeCells 判断所选单元格是否为合并单元格，是的话返回true. 2.Target.Cells(1, 1).Value 获取合并单元格的值。网上查到的一些其它的写法，使用了MergeArea验证了很多次都会报错，试着去掉之后反而取到了，很神奇。之所以用到On Error Resume Next是因为如果取到的是合并单元格，If Target.Value <> OldValue Then会报错，之后继续执行，跳到Line后面合并单元格的判断处理。

     个人写法还有值得完善的地方，不过大体的功能已经实现了。如果还有其它思路或者更好的写法欢迎在评论区中交流。