Excel中如何用vba创建条件格式？

简单地来讲，可以通过录制宏的方式生成代码

题主截图没有提供行列号，假定截图单元格区域是A1:E9，那么可以用如下VBA代码设置条件格式：

Sub Less0Format()

  Range("A1:E9").Select

  Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _

      Formula1:="=0"

  Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

  With Selection.FormatConditions(1).Font

      .Color = -16754788

      .TintAndShade = 0

  End With

  With Selection.FormatConditions(1).Interior

      .PatternColorIndex = xlAutomatic

      .Color = 10284031

      .TintAndShade = 0

  End With

  Selection.FormatConditions(1).StopIfTrue = False

End Sub

看下效果图：

您好，您的需求可以通过 VBA 添加单元格的条件格式来实现，演示代码如下：

Public Sub SetTop5()

    Dim t5 As Top10

    

    Set t5 = Union(Range("B1:B10"), _

                   Range("D1:D10"), _

                   Range("F1:F10"), _

                   Range("H1:H10")).FormatConditions.AddTop10

    With t5

        .TopBottom = xlTop10Top

        .Rank = 5

        .Interior.Color = &HCEC7FF

    End With

    

    Set t5 = Nothing

End Sub

选择C列

格式,条件格式

选择"公式"

=and(c1>=25,c1<=35)

选择"格式",设置填充颜色为红色

确定

选择D列

格式,条件格式

选择"公式"

=and(d1>=25,d1<=35)

选择"格式",设置填充颜色为绿色

确定

---