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

最新推荐文章于 2024-09-05 21:41:32 发布

爱吃鱼的萌萌

最新推荐文章于 2024-09-05 21:41:32 发布

阅读量4.2k

点赞数 4

分类专栏：学习新手教程文章标签： vba

本文链接：https://blog.youkuaiyun.com/aasdf245/article/details/117226558

版权

这篇博客记录了作者在使用VBA实现Excel工作表单元格值变化监听时遇到的问题及解决方案。从最简单的监听单元格变化到添加原值验证，再到处理合并单元格的情况，逐步完善代码，确保只有实际值更改时才会将字体设为红色。作者还分享了在处理合并单元格时的技巧，如使用OnErrorResumeNext来避免错误，并通过Target.Cells(1,1).Value获取合并单元格的值。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

最近因某项目的客户需求，需要使用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 =

最低0.47元/天解锁文章