EXCEL如何用VBA设置符合条件的单元格填充颜色为红色？

材料/工具：Excel2010

1、打开Excel表格，按下【Alt+F11】组合快捷键打开VBA编辑器，也可以点击菜单栏上面的【开发工具】，【Visual Basic】打开VBA编辑器。

2、点击VBA编辑器菜单栏上面的【插入】、【模块】，也可以在编辑器上面使用【Alt+I+M】组合快捷键插入“模块”。

3、在VBA编辑器代码框里面输入以下代码：

4、在Excel表格上面的【开始】、【填充颜色】、【其他颜色】，在”颜色“对话框的【自定义】里面就可以找到，改变数值就可以看到新增的颜色。

5、在VBA编辑器的工具栏里面点击“运行”图标即可运行程序，条件满足的行将会自动填充所设置的颜色。

6、VBA自动填充满足条件的行的颜色完成。

请用鼠标右键单击工作表标签，选择“查看代码”，下拉“通用”下选择"Worksheet"，下拉"声明"选择“Change",在代码框中插入下列代码：

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column >2 And Target.Column <9 And Target.Row >2 And Target.Row <9 Then

      Target.Select

      If Target = "1#设备故障" Then

      With Selection.Font

          .Color = -16776961

          .TintAndShade = 0

      End With

      With Selection.Interior

          .Pattern = xlSolid

          .PatternColorIndex = xlAutomatic

          .Color = 65535

          .TintAndShade = 0

          .PatternTintAndShade = 0

      End With

      Selection.Font.Bold = True

  Else

     Target.Select

      With Selection.Font

          .ColorIndex = xlAutomatic

          .TintAndShade = 0

      End With

      With Selection.Interior

          .Pattern = xlNone

          .TintAndShade = 0

          .PatternTintAndShade = 0

      End With

      Selection.Font.Bold = False

  End If

End If

End Sub

保存为启用宏的工作簿 格式即可实现你的要求。

1、表单按钮－－

右键－－设置控件格式中改变文字颜色（不能改变背景颜色）

2、ActiveX控件

右键－－属性－－Forecolor(设置文字颜色)---backcolor(设置背景颜色)

---