Delphi和Excel.FormatConditions

发布时间：2020-12-15 09:17:32 所属栏目：大数据来源：网络整理

导读：我在使用早期绑定Excel 2010从Delphi XE2设置条件格式时遇到问题我试图重现的宏如下： Selection.FormatConditions.Add Type:=xlCellValue,Operator:=xlGreater,_ Formula1:="=6"Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPri

我在使用早期绑定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);

哪个有效.当我尝试定义颜色时,我遇到了问题

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;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!