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.很多人都被格式化語法所困惑著
很高興能幫你