VBA宏中的條件格式不工作在Excel 2007中

Question

請高手幫忙。以下VBA代碼在Excel 2010中可用，但在2007中不可用。 它顯示錯誤「應用程序或對象未定義」。看起來「selection.FormatConditions.Font」不受支持。

Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _ 
    Formula1:="=""BREAK TOP""" 
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority 
With Selection.FormatConditions(1).Font 
    .Color = -16752384 --- Error: application and object undefined 
    .TintAndShade = 0 
End With 

非常感謝！

Answer 1

我不能在2007年的Excel中測試這個，但是這個錯誤絕對不是FormatConditions.Font的對象。該錯誤在.Font.Color的評價中提高。

回顧2007年.Font對象的開發參考，似乎應該使用RGB()公式來分配顏色。

http://msdn.microsoft.com/en-us/library/office/bb213182(v=office.12).aspx

然而，我的谷歌賦表明您不能使用負的顏色值與RBG分配。我認爲你需要選擇不同的顏色。也許有一些使用WinAPI的方法，但我目前無法測試這種方法。

我選擇了另一個與您的-16752384色調相似的藍色。

Sub test() 

'## This section converts a long color to its R/G/B components 
    Dim col As Long: col = 15773696 
    Dim r As Long, g As Long, b As Long 
    r = col Mod 256 
    g = (col \ 256) Mod 256 
    b = (col \ 256 \ 256) Mod 256 

'## Your code, with modification for the RGB Formula: 
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _ 
     Formula1:="=""BREAK TOP""" 
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority 
    With Selection.FormatConditions(1).Font 
     .Color = RGB(r, g, b) '<-- RGB Formula, here. 
     .TintAndShade = 0 
    End With 


End Sub 

UPDATE

試試這個，不要使用Selection對象。

Sub test2() 

Dim rng as Range 
Dim fc as FormatCondition 
Set rng = Range(Selection.Address) 

'## This section converts a long color to its R/G/B components 
    Dim col As Long: col = 15773696 
    Dim r As Long, g As Long, b As Long 
    r = col Mod 256 
    g = (col \ 256) Mod 256 
    b = (col \ 256 \ 256) Mod 256 

'## Your code, with modification for the RGB Formula: 
    rng.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _ 
     Formula1:="=""BREAK TOP""" 
    rng.FormatConditions(rng.FormatConditions.Count).SetFirstPriority 

    Set fc = rng.FormatConditions(1) 
    fc.Font.Color = RGB(r, g, b) '<-- RGB Formula, here. 
    fc.Font.TintAndShade = 0 

End Sub