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

上一篇 / 下一篇  2009-01-05 17:27:06 / 个人分类:编程

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

(注意,多条件时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中,就是上图啦,这样做仅是为了以后用起来方便而已.


 


TAG: 编程

 

评分:0

我来说两句

显示全部

:loveliness: :handshake :victory: :funk: :time: :kiss: :call: :hug: :lol :'( :Q :L ;P :$ :P :o :@ :D :( :)

我的栏目

日历

« 2020-07-16  
   1234
567891011
12131415161718
19202122232425
262728293031 

数据统计

  • 访问量: 4591
  • 日志数: 18
  • 图片数: 1
  • 建立时间: 2007-04-19
  • 更新时间: 2009-11-27

RSS订阅

Open Toolbar