excel - Delphi 和 Excel.FormatConditions

我在使用 Excel 2010 早期绑定(bind)从 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;

关于excel - Delphi 和 Excel.FormatConditions，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/14757624/