Sub 字型条件格式化变色2()
Selection.FormatConditions.Delete
With Selection.FormatConditions.Add(xlCellValue, xlEqual, "OK")
  .Font.Color = vbGreen
  .Font.Bold = True
End With
With Selection.FormatConditions.Add(xlCellValue, xlEqual, "NG")
  .Font. ..

访客只能看到部份内容，免费 加入会员 或由脸书 Google 可以看到全部内容

改成这样试试看...
复制程式

With Selection
.FormatConditions.Add(xlCellValue, xlEqual, "YES")
.Font.Color = vbBlue
.Font.Bold = True
End With


这段没办法正常执行

下面是引用day741025于2008-07-27 14:38发表的 :
With Selection
.FormatConditions.Add(xlCellValue, xlEqual, "YES")
.Font.Color = vbBlue
.Font.Bold = True
End With
这段没办法正常执行

如果你用储存格格式化条件的语法
最多只能套用三组设定
不信你把第三组删掉
留下一、二、四组
保证一定没问题

但超过的设定
一定要全部套用的话
只有放弃格式化条件的语法
自己下判断了
建议使用 Select Case 不要用 If

图 1. A1上的OK本来是黑色的   

图 2. 执行后OK套用为绿色的   

下面是引用day741025于2008-07-27 07:17发表的 EXCEL VBA 储存格条件格式化:
但我需要五个至十个条件…
使用VBA写的结果无法如期执行…
请大大们帮帮小弟…
感谢…
.......

这个程式应该可以
帮你套用多组条件了
但请自行修改一下
储存格的范围
还有对应的颜色

下面是引用三仙于2008-07-28 03:44发表的 :
 


这个程式应该可以
帮你套用多组条件了
但请自行修改一下
储存格的范围
还有对应的颜色

嗯先感谢大大帮我解题
晚一点我再自行测试修改应该就OK了
我本来也是想说用If去写看看

excel格式化的语法已经限制住了…
难怪我一直试就是不成功@@"

下面是引用day741025于2008-07-28 05:27发表的 :
晚一点我再自行测试修改应该就OK了
我本来也是想说用If去写看看

excel格式化的语法已经限制住了…
难怪我一直试就是不成功@@"

1.如果你自行修改成功，请不要吝于分享
2.用 If 不是不行，只是你的条件多，用 If 判断的话，程式会很乱
3.很多人都被格式化语法所困惑着
很高兴能帮你