论坛 › ExcelVBA开发 › 插入数值条件格式

susan 发表于 2014-2-12 17:28:45

插入数值条件格式

Sub 插入数值条件格式()
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
                                 Formula1:="70"
    Selection.FormatConditions(1).Interior.ColorIndex = 45
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _
                                 Formula1:="55"
    Selection.FormatConditions(2).Interior.ColorIndex = 39
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
                                 Formula1:="60"
    Selection.FormatConditions(3).Interior.ColorIndex = 34
End Sub

新的自我 发表于 2020-1-11 13:57:12

请问二二二二二二二二二二二二

查看完整版本: 插入数值条件格式