求助：公式触发单元格值更新时自动运行VBA宏高亮对应行

Hey John, 刚好做过类似的需求，给你一套靠谱的VBA实现方案，完美适配你现有自动加行的宏，支持多行自动触发高亮效果：

我们要利用Excel的Worksheet_Calculate事件（毕竟O列的True/False是公式计算结果，手动编辑触发的事件抓不到这个变化），再配一个模块级变量来追踪O列单元格的状态变化——只要单元格从False跳成True，就自动高亮对应行的B-K区域。

1. 打开目标工作表的代码窗口 #

右键点击你的工作表标签（比如「数据 sheet」），选「查看代码」，在弹出的窗口里粘贴下面的代码：

' 模块级变量：存O列单元格上一次的状态，避免重复高亮
Private prevOColumnState As Variant

Private Sub Worksheet_Calculate()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim currentVal As Boolean
    
    Set ws = Me
    ' 拿到O列最后一行有数据的行号
    lastRow = ws.Cells(ws.Rows.Count, "O").End(xlUp).Row
    
    ' 第一次运行时初始化状态数组
    If IsEmpty(prevOColumnState) Then
        ReDim prevOColumnState(1 To lastRow) As Boolean
        For i = 1 To lastRow
            prevOColumnState(i) = ws.Cells(i, "O").Value
        Next i
        Exit Sub
    End If
    
    ' 自动适配新增的行：如果O列新增了行，扩展状态数组
    If lastRow > UBound(prevOColumnState) Then
        ReDim Preserve prevOColumnState(1 To lastRow) As Boolean
        For i = UBound(prevOColumnState) + 1 To lastRow
            prevOColumnState(i) = ws.Cells(i, "O").Value
        Next i
    End If
    
    ' 遍历O列，检查每个单元格的状态变化
    For i = 1 To lastRow
        ' 跳过空单元格或不是布尔值的单元格，避免报错
        If Not IsEmpty(ws.Cells(i, "O").Value) And VarType(ws.Cells(i, "O").Value) = vbBoolean Then
            currentVal = ws.Cells(i, "O").Value
            ' 只有从False变True的时候才高亮
            If prevOColumnState(i) = False And currentVal = True Then
                ' 高亮B到K列的当前行，这里用的浅黄色，你可以自己改
                ws.Range("B" & i & ":K" & i).Interior.Color = RGB(255, 255, 153)
            End If
            ' 更新状态变量，下次计算时用
            prevOColumnState(i) = currentVal
        End If
    Next i
End Sub

2. 自定义高亮颜色（可选） #

要是你不喜欢浅黄色，改一下代码里的RGB(255, 255, 153)就行：

• 浅绿色：RGB(198, 239, 206)
• 浅蓝色：RGB(189, 215, 238)
• 也可以直接用Excel内置常量，比如vbYellow、vbGreen

3. 和你现有宏的适配 #

完全不用改你现有的自动加行宏！这段代码会自动识别新增的行——每次工作表计算时，它会检查O列的最后一行，自动扩展状态数组，适配新行的公式结果变化。

• 为什么用Worksheet_Calculate？：因为O列的结果是公式算出来的，Worksheet_Change只会在手动编辑单元格时触发，抓不到公式更新的情况，而Worksheet_Calculate会在任何公式计算完成后触发，刚好适配你的需求。
• 模块级变量的作用：用来记每个单元格上一次的状态，避免每次计算都把已经是True的行再高亮一遍，效率更高。
• 空值检查：防止O列里有非布尔值的单元格导致代码报错，兼容性更好。

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