ExcelVBA运用Excel的【条件格式】（一）

ExcelVBA运用Excel的【条件格式】（一）

如果能手工操作条件格式，你已是高手，

如果能用VBA操作【条件格式】就是高手中的高手

下面我们来学习相关的知识

图片

在VBA（Visual Basic for Applications）中，FormatConditions 对象是一个非常强大的工具，它允许你为Excel工作表中的单元格区域定义条件格式。条件格式可以根据单元格的值、公式、数据条、色阶或图标集等自动更改单元格的外观（如字体颜色、背景色、边框等）。

FormatConditions 对象通常与 Range 对象一起使用，因为条件格式是应用于特定范围的。你可以通过 Range.FormatConditions 属性访问一个范围的 FormatConditions 集合。

以下是一些使用 FormatConditions 对象的基本步骤和示例：

1. 访问 FormatConditions 集合

首先，你需要有一个 Range 对象，该对象表示要应用条件格式的单元格区域。然后，你可以通过 Range.FormatConditions 属性访问该范围的 FormatConditions 集合。

Dim ws As Worksheet  
Set ws = ThisWorkbook.Sheets("Sheet1")  
Dim rng As Range  
Set rng = ws.Range("A1:A100")

2. 添加条件格式

使用 Add 方法向 FormatConditions 集合添加新的条件格式。Add 方法有多个重载，具体取决于你想要添加的条件格式类型（如基于值的条件、数据条、色阶等）。

' 添加基于值的条件格式  
With rng.FormatConditions.Add(Type:=xlCellValue, Operator:=xlGreater, _  
                              Formula1:="=100")  
    .Interior.Color = RGB(, , ) ' 设置背景色为红色  
End With

在这个例子中，我们为 A1:A100 范围内的单元格添加了一个条件格式，该格式将大于100的单元格的背景色设置为红色。

3. 修改或删除条件格式

你可以通过索引访问 FormatConditions 集合中的特定条件格式，并使用其属性和方法来修改它。如果你想要删除某个条件格式，可以使用 Delete 方法。

' 修改第一个条件格式的公式  
rng.FormatConditions(1).Formula1 = "=200"  
  
' 删除第一个条件格式  
rng.FormatConditions(1).Delete

4. 清除所有条件格式

如果你想要清除范围内的所有条件格式，可以调用 Range.FormatConditions.Delete 方法，但请注意这会删除范围内的所有条件格式，而不仅仅是第一个。

' 清除范围内的所有条件格式  
rng.FormatConditions.Delete

注意事项

• 在添加或修改条件格式之前，请确保你正在处理的是有效的 Range 对象，并且该范围在工作表中存在。
• 当你使用 Add 方法添加条件格式时，请确保你提供了正确的参数，包括条件类型、运算符和公式（或值）。
• 你可以根据需要添加多个条件格式到同一个范围，Excel将按照它们在 FormatConditions 集合中的顺序评估这些条件。
• 在使用条件格式时，请注意Excel的性能，因为大量的条件格式可能会影响工作簿的加载和响应时间。