最近因某项目的客户需求，需要使用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后面合并单元格的判断处理。
 
     个人写法还有值得完善的地方，不过大体的功能已经实现了。如果还有其它思路或者更好的写法欢迎在评论区中交流。
 
                    最近因某项目的客户需求，需要使用vba，监听某工作簿的某工作表内单元格的值是否发生变化（在已有值上手动修改或者在空白处添加新值），如果有变化设置变化后的单元格的字体为红色。作为初学vba的小白，在网上查了很多教程，但大多有漏洞，故在此记录一下。一、最简单的处理  首先，查到的第一个简单的写法是直接在excel中选中工作表，右键查看代码，直接插入Private Sub Worksheet_Change(ByVal Target As Range)  Target.Font.Color...
Dim a
Private Sub Worksheet_Change(ByVal Target As Range)    If Target.Value &lt;&gt; a Then MsgBox aEnd Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  ...
				
纲举目张说明实现功能代码code使用说明
我们一般触发或者执行一段宏命令都是通过自定义按钮或者自定义快速访问栏调用相关宏命令，前一段时间在CSDN中回答网友提问的问题时，我无意中测试成功了一些Excel的内置事件，其中符合网友要求的就是单元格变更事件Worksheet_Change。
添加该事件的方法：Alt+F11调出Microsoft Visual Basic for Applications窗口，双击该文件下的相应的Sheet，例如Sheet1，在右侧出现的Sheet1 （代码）窗口的左上部选择
  如图所示，在该表中设置了数据有效性，并进行了工作表保护。希望通过该设置允许用户仅输入规定的内容。然而当用户从其他表格复制并粘贴至已经设置数据有效性的区域时，数据有效性并不起作用。如何利用VBA避免这种情况的发生，以完善数据有效性？
  当单元格的值改变之后，无论是粘贴还是将数值写入单元格，都会触发工作表对象的Change事件。在该Change事件中编写程序，执行数据有效性对象(Validation)的Value属性，判断单元格的值是否满足有效性验证。若验证失败，则执行App...