如何更改我的 VBA 代码以根据文本或值的变化而不仅仅是值的变化来更改行颜色？

Question

我使用以下 VBA 代码（由 Vicky 提供）在每次 A 列中的值发生变化时更改电子表格中行的颜色。唯一的问题是，如果它遇到不是值的内容（例如“10000CO”），它会结束命令，从而不再更改行颜色，并显示错误消息。有什么方法可以操作代码，以便当 A 列中的值或文本更改时它会更改颜色？ [注意，我使用的是Excel 2007]

Sub colorize()

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

r = 4
val = ActiveSheet.Cells(r, 1).Value
c = 19

For r = 4 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 = 19 Then
         c = 20
    Else
        c = 19
    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

Answer 1

尝试将 val 的类型从 Long 更改为 String