自从我收到一些关于“如何在VBA中使用新的条件格式”的询问，我就想提供给大家一些简单的示例。
在我们Excel开发团队中有一条法则：当我们增加任何新功能时，我们必须确定它们在被程序调用时能和在用户界面中工作的一样好。Excel 12的对象模型支持所有出现在用户界面中的条件格式功能，包括增加、编辑和s删除规则，或者更改规则的优先级。 在旧版本Excel中写过与条件格式相关的VBA代码的人会知道，条件格式集不能使用Range对象。
让我通过运行一些简单示例来展示如何使用条件格式集中的新功能。 增加一个规则： Excel 12中，新的条件格式的规则（Data bars, Color Scales, Icon Sets, Top n等待），可以在条件格式集中使用Add <对象名>的方法来创建。
比如，创建一个data bar： Range("A1:A5").FormatConditions.AddDatabar
编辑现有规则： 编辑规则是通过定位条件格式集的索引号并修改其属性。
比如，更改data bar的颜色： Range("A1:A5").FormatConditions(1).BarColor.ColorIndex = 3 在这里，数字1表示区域中的第一个规则。
编辑规则优先级： 在Excel 12里，规则优先级这个概念表示支持在一个区域建立多重条件，优先级决定规则执行的次序。
在对象模型里，我们同样可以使用条件格式对象的优先级属性。
此属性在工作表级被追踪，比如，检验某条规则的优先级： Range("A1:A5").FormatConditions(1).Priority
将某规则降至最低优先级： Range("A1:A5").FormatConditions(1).SetLastPriority
分配一项指定的优先级： Range("A1:A5").FormatConditions(1).Priority = 3
注意，如果你只有3条规则，那么设置优先级为3和设置优先级为最低的效果是一样的。
删除规则： 你可以根据索引号并使用Delete方法来删除一个指定的规则： Range("A1:A5").FormatConditions(1).Delete
也可以将Delete方法作用于条件格式集来删除指定区域中的所有规则： Range("A1:A5").FormatConditions.Delete 下
面是另一个示例。假设你想用VBA来把单元格区域A1-A10中数值最高的5%突现并填充为红色，
以下是相关的代码：
Sub Top5Percent()
'Adding the Top10 rule to the range
Range("A1:A10").FormatConditions.Add Top10
'Assign the rank of the condition to 5
Range("A1:A10").FormatConditions(1).Rank = 5
'Set the Percent property true. It is false by default.
Range("A1:A10").FormatConditions(1).Percent = True
'Set the color to a red fill
Range("A1:A10").FormatConditions(1).Interior.ColorIndex = 3
End Sub
希望这些对您有所帮助