最近因某项目的客户需求,需要使用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后面合并单元格的判断处理。
个人写法还有值得完善的地方,不过大体的功能已经实现了。如果还有其它思路或者更好的写法欢迎在评论区中交流。