Excel VBA需求：输入新消息时清除指定区域单元格填充色

你现有的双击切换已读标记代码如下：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("I9:J359")) Is Nothing Then
        If Target.Cells.Count > 1 Then Exit Sub
        Cancel = True
        If Target.Interior.ColorIndex = xlNone Then
            Target.Interior.ColorIndex = 35
        ElseIf Target.Interior.ColorIndex = 35 Then
            Target.Interior.ColorIndex = xlNone
        End If
    End If
End Sub

当前问题：新消息输入后，I9:J359区域的已读填充色未自动清除，导致用户误判已阅读新内容。

解决方案：添加工作表内容变更触发事件 #

在同一个工作表的代码模块中，添加Worksheet_Change事件代码，实现内容更新时自动清除已读标记：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 定位已读标记区域
    Dim readMarkArea As Range
    Set readMarkArea = Me.Range("I9:J359")
    
    ' （可选）仅当新消息输入区域变更时触发，替换为实际新消息所在区域即可
    ' If Intersect(Target, Me.Range("A9:H359")) Is Nothing Then Exit Sub
    
    ' 清除所有已读标记的填充色
    readMarkArea.Interior.ColorIndex = xlNone
End Sub

代码说明 #

• Worksheet_Change事件会在工作表中任何单元格内容被修改时自动触发
• 若需避免无关修改（比如格式调整）触发清除操作，取消注释并修改A9:H359为实际新消息输入的单元格范围
• 执行后，I9:J359区域所有单元格的填充色会被重置为无填充，提醒用户确认最新更新内容

内容的提问来源于stack exchange，提问作者ChrisH