本示例将选择的单元格区域的条件格式设为“当 单元格值<0 时 底色=红色”。

Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=etCellValue, Operator:=etLess, Formula1:="0"
Selection.FormatConditions.Item(1).Interior.Color = 255