Excel VBA 条件格式设置：根据数据值自动改变单元格颜色和字体样式

使用 VBA 实现 Excel 条件格式自动设置

本文将介绍如何使用 VBA 代码，根据单元格的值自动设置单元格颜色和字体样式。

目标：

清除工作簿中所有条件格式。
设置条件格式：
- 如果 T6>1 且 V6>0 且 Z6>0，则将 Q6 设置为绿色背景，并把 T6、V6、Z6 设置为绿色背景蓝色字体加粗。
- 如果 T6<1 且 V6<0 且 Z6<0，则将 Q6 设置为红色背景，并把 T6、V6、Z6 设置为黄色背景红色字体加粗。
将上述条件格式应用于第 7 行到第 60 行。

代码：

Sub SetColor()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ' 清除条件格式
        ws.Cells.FormatConditions.Delete
        ' 设置单元格颜色和字体样式
        Dim i As Long
        For i = 6 To 60
            If ws.Range('T' & i) > 1 And ws.Range('V' & i) > 0 And ws.Range('Z' & i) > 0 Then
                ws.Range('Q' & i).Interior.Color = RGB(0, 255, 0) ' 绿色背景
                ws.Range('T' & i & ':Z' & i).Interior.Color = RGB(0, 255, 0) ' 绿色背景
                ws.Range('T' & i & ':Z' & i).Font.Color = RGB(0, 0, 255) ' 蓝色字体
                ws.Range('T' & i & ':Z' & i).Font.Bold = True ' 加粗字体
            ElseIf ws.Range('T' & i) < 1 And ws.Range('V' & i) < 0 And ws.Range('Z' & i) < 0 Then
                ws.Range('Q' & i).Interior.Color = RGB(255, 0, 0) ' 红色背景
                ws.Range('T' & i & ':Z' & i).Interior.Color = RGB(255, 255, 0) ' 黄色背景
                ws.Range('T' & i & ':Z' & i).Font.Color = RGB(255, 0, 0) ' 红色字体
                ws.Range('T' & i & ':Z' & i).Font.Bold = True ' 加粗字体
            End If
        Next i
    Next ws
End Sub

使用方法：

打开您的 Excel 工作簿。
按 Alt + F11 键打开 VBA 编辑器。
在 VBA 编辑器中，插入一个模块 (Insert > Module)。
将上述代码粘贴到模块中。
按 F5 键运行代码。

代码解析：

Sub SetColor()：定义一个名为 SetColor 的子程序。
Dim ws As Worksheet：声明一个名为 ws 的变量，用于存储工作表对象。
For Each ws In ThisWorkbook.Worksheets：循环遍历当前工作簿中的所有工作表。
ws.Cells.FormatConditions.Delete：清除当前工作表中所有条件格式。
Dim i As Long：声明一个名为 i 的变量，用于循环遍历行号。
For i = 6 To 60：循环遍历第 6 行到第 60 行。
If ws.Range('T' & i) > 1 And ws.Range('V' & i) > 0 And ws.Range('Z' & i) > 0 Then：判断 T6、V6、Z6 的值是否满足条件。
ws.Range('Q' & i).Interior.Color = RGB(0, 255, 0)：设置 Q6 的背景颜色为绿色。
ws.Range('T' & i & ':Z' & i).Interior.Color = RGB(0, 255, 0)：设置 T6、V6、Z6 的背景颜色为绿色。
ws.Range('T' & i & ':Z' & i).Font.Color = RGB(0, 0, 255)：设置 T6、V6、Z6 的字体颜色为蓝色。
ws.Range('T' & i & ':Z' & i).Font.Bold = True：设置 T6、V6、Z6 的字体加粗。
ElseIf ws.Range('T' & i) < 1 And ws.Range('V' & i) < 0 And ws.Range('Z' & i) < 0 Then：判断 T6、V6、Z6 的值是否满足条件。
ws.Range('Q' & i).Interior.Color = RGB(255, 0, 0)：设置 Q6 的背景颜色为红色。
ws.Range('T' & i & ':Z' & i).Interior.Color = RGB(255, 255, 0)：设置 T6、V6、Z6 的背景颜色为黄色。
ws.Range('T' & i & ':Z' & i).Font.Color = RGB(255, 0, 0)：设置 T6、V6、Z6 的字体颜色为红色。
ws.Range('T' & i & ':Z' & i).Font.Bold = True：设置 T6、V6、Z6 的字体加粗。

注意：

本代码适用于 Excel 2007 及更高版本。
代码中的单元格引用可以根据您的实际情况进行修改。
您可以根据需要添加更多条件格式设置。
运行代码前请备份您的工作簿，以防意外情况发生。

其他：

除了使用 VBA 代码设置条件格式外，您也可以使用 Excel 的内置条件格式功能。具体操作方法如下：

选择要设置条件格式的单元格区域。
在“开始”选项卡中，点击“条件格式”按钮。
选择“新建规则”。
选择“使用公式确定要设置格式的单元格”。
在公式栏中输入条件公式。
点击“格式”按钮，设置所需的格式。
点击“确定”按钮完成设置。

希望本文能帮助您使用 VBA 代码实现 Excel 条件格式的自动设置。