Excel VBA 更改单元格颜色

Question

我正在尝试获取 U 列中不等于 2.04 或 3.59 的所有单元格来更改单元格颜色。

这是代码:

Private Sub Cell_Color_Change()

For Each cell In Range("U2:U19004")
    If cell.Value <> 2.04 Or 3.59 Then cell.Interior.ColorIndex = 3
    Next cell

End Sub

由于某些原因，该代码将整列变为红色。
我试过使用条件格式，同样的事情发生了。
请帮忙。谢谢!

Answer 1

更正您的 AND和 OR :

Private Sub Cell_Color_Change()
    For Each cell In Range("U2:U19004")
        If cell.Value <> 2.04 And cell.Value <> 3.59 Then cell.Interior.ColorIndex = 3
    Next cell
End Sub

编辑#1:

要查找四舍五入到两位小数的值，请尝试以下替代方法:

Private Sub Cell_Color_Change()

    Dim cv As Variant

    For Each cell In Range("U2:U19004")
        cv = Application.WorksheetFunction.Round(cell.Value, 2)
        If cv <> 2.04 And cv <> 3.59 Then cell.Interior.ColorIndex = 3
    Next cell
End Sub