当 A 列中的值更改时，VBA 代码更改行颜色

Question

我的电子表格是这样设置的：

我在 A 列中有一个职位编号列表，在 B 列中有一个相应的职位名称列表。我需要为某个职位编号的所有行着色。例如，第 2-4 行在 A 列中有“3705”，因此这些行将被涂成红色。第 5 行和第 6 行在 A 列中有 4169 并且将显示为绿色。第 7-10 行在 A 列中有 5518 并且将被着色为红色（在红色和绿色之间交替）。

有人可以给我一个 VBA 代码，它会自动/使用宏执行我上面描述的操作吗？

谢谢！！

Answer 1

如果您可以添加列，则只能使用 Excel 公式和条件格式来完成此操作。您可能无法交替使用红色/绿色，而只能是一种颜色而没有颜色。

Alternate Excel Row Color Based on Content

Answer 2

Sub colorize()

Dim r As Long, val As Long, c As Long

    r = 1
    val = ActiveSheet.Cells(r, 1).Value
    c = 4 '4 is green, 3 is red '

    For r = 1 To ActiveSheet.Rows.Count
        If IsEmpty(ActiveSheet.Cells(r, 1).Value) Then
            Exit For
        End If

        If ActiveSheet.Cells(r, 1).Value <> val Then
            If c = 3 Then
                c = 4
            Else
                c = 3
            End If
        End If

        ActiveSheet.Rows(r).Select
        With Selection.Interior
            .ColorIndex = c
            .Pattern = xlSolid
        End With

        val = ActiveSheet.Cells(r, 1).Value
    Next

End Sub

如果您希望宏在每次 A 列中的单元格更改值时触发，请将以下内容添加到相关工作表的模块中：

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Range("A:A")) Is Nothing Then
        Exit Sub
    End If

    colorize

End Sub