Delphi和Excel.FormatConditions

Question

我有問題使用早期德爾福XE2設置條件格式與Excel結合2010

我試圖重現宏如下：

Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _ 
    Formula1:="=6" 
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority 
With Selection.FormatConditions(1).Interior 
    .PatternColorIndex = xlAutomatic 
    .ThemeColor = xlThemeColorAccent6 
    .TintAndShade = 0 
End With 
Selection.FormatConditions(1).StopIfTrue = False 

嘗試，因爲我我似乎無法訪問的​​相當於工作

我已經達到最接近的是用下面的代碼：

XR := Xlapp.Range(...) 
XR.FormatConditions.Delete; 
XR.FormatConditions.Add(xlCellValue, xlGreater, '=6', EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam); 

哪個有效。當我嘗試並定義顏色我有問題

FC := XR.FormatConditions[1]; 
FC.SetFirstPriority; 
with FC.Interior do 
begin 
    PatternColorIndex := xlAutomatic; 
    ThemeColor := xlThemeColorAccent6; 
end; 

然而，這總是告訴我，XR.FormatConditions（1）和IDispatch，因此不符合的FormatCondition分配

我在做什麼錯？

Answer 1

您需要使用Selection作爲ExcelRange。 Excel中XP還需要第二個和第三個參數是OleVariant，所以這應該工作（彙編，反正）：

var 
    Sel: ExcelRange; 
    Op, Formula: OleVariant; 
    Condition: FormatCondition; 
begin 
    Sel := ExcelApplication1.Selection[1] as ExcelRange; 
    Op := xlGreater; 
    Formula := '=6'; 
    Sel.FormatConditions.Add(xlCellValue, Op, Formula, EmptyParam); 
    Condition := Sel.FormatConditions[1] as FormatCondition; 
    Condition.Interior.PatternColorIndex := xlAutomatic; 
    // Do whatever else 
end;