根据值更改Excel单元格颜色

Question

您能告诉我如何使用VBA更改Excel单元格颜色吗？ 当值正常时 - ＆gt;细胞颜色是绿色。 当值为NOTOK - ＆gt;细胞颜色是红色。

Answer 1

使用范围的.Interior.Color属性。

Dim ws As Excel.Worksheet
Set ws = Application.ActiveSheet

If ws.Range("A1").Value = "OK" Then
    ws.Range("A1").Interior.Color = 5287936
Elseif ws.Range("A1").Value = "NOTOK" Then 
    ws.Range("A1").Interior.Color = 255
End if

Answer 2

编辑工作表的内容时，可以使用条件格式。如果你想使用VBA，并且有充分的理由这样做，只需打开宏录制器，编辑工作表的内容，然后查看宏的VBA代码。 Excel将为您编写代码：这是学习VBA并以有效方式获得所需内容的好方法。