Delphi和Excel中如何设置格式条件？

本文共计309个文字，预计阅读时间需要2分钟。

我在使用早期Excel版本（如Excel 2010）设置条件格式时，从Delphi XE2迁移遇到问题。具体代码如下：

delphiSelection.FormatConditions.Add( Type:=xlCellValue, Operator:=xlGreater, Formula1:==6);

问题现象大致如下：

我在使用早期绑定Excel 2010从Delphi XE2设置条件格式时遇到问题

我试图重现的宏如下：

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

尝试我似乎无法访问相当于Selction.FormatConditions(1)的工作

我最接近的是使用以下代码：

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赋值不兼容

我究竟做错了什么？

您需要使用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;