VBA添加删除工作表的条件格式

VBA添加工作表的条件格式

Sub Add_Format_Conditions()
'
' 添加条件格式：L列值为“预警”的单元格自动显示为红色粗体
'
    Columns("A:A").Select
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=""预警"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Bold = True
        .Italic = False
        .Color = -16776961
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False   '开启另存的兼容性检查，不执行则不检查
End Sub

VBA删除工作表的条件格式

Sub Del_Format_Conditions()
'
' 删除条件格式
'
    Columns("A:A").Select
    Cells.FormatConditions.Delete
End Sub

提示：如出现无法彻底删除的条件格式，建议在xlsm启用宏的工作簿中使用。