VBA,根据单元不同的内容设置不同颜色

 最近一直写文档,领导为了文档看起来方便,要求根据单元不同的内容设置颜色,挺烦,网上查了好多资料,终于是实现了.后来领导又提出了更进一层的要求,我慢慢想想看吧,看怎么实现起来好.问题是估计我写出来,手工早设完了,以后有空吧.

(注意,多条件时if语句的写法,另elseif中间是没有空格的哦~~)

单元格内容为测试通过,显示红色,测试未通过,显示绿色,返回修改显示蓝色,待测试显示为黄色

其它的可扩展.

我写了个宏:

Sub test()
Dim i As Integer
Dim j As Integer

i = 1
j = 1

For i = 1 To 25
   For j = 1 To 25
Row = i
Column = j

If Cells(Row, Column).Value = "测试通过" Then
Cells(Row, Column).Interior.ColorIndex = 10
ElseIf Cells(Row, Column).Value = "测试未通过" Then
Cells(Row, Column).Interior.ColorIndex = 3
ElseIf Cells(Row, Column).Value = "返回修改" Then
Cells(Row, Column).Interior.ColorInde = 5

ElseIf Cells(Row, Column).Value = "待测试" Then
Cells(Row, Column).Interior.ColorInde = 6

End If

   Next
Next
End Sub

附:

EXCEL VBA中的颜色代码图

注:这个图是怎么来的呢?

用一个循环,把显示出的颜色放在excle中,就是上图啦,这样做仅是为了以后用起来方便而已.