整张纸的条件格式

Question

我正在尝试将与预设值匹配的任何单元格转换为颜色。

如果单元格值为：

• S-DAYS，C-DAYS，DAYS将使单元格显示为黑色，并带有黑色文本
• [E SWING，S-E SWING，C-E SWING它将变成绿色，带有黑色文本
• L SWING，S-L SWING，C-L SWING它将变成浅紫色并带有黑色文本
• [LATES，S-LATES，C-LATES它将变成灰色，带有黑色文本
• [AOT将变为黑色，带有黑色文本
• VAC，OUT，MIL，TRAIN，它将使单元格变成黑色并带有白色文本

我记录了以下内容。如何使其自动应用于工作表而无需提示？

Sub DAConditionalFormating()
'
' DAConditionalFormating Macro
'

'
    Range("D14:XFD999").Select

    Selection.FormatConditions.Add Type:=xlTextString, String:="DAYS", _
        TextOperator:=xlContains
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 15773696
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlTextString, String:="E SWING", _
        TextOperator:=xlContains
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 5296274
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlTextString, String:="LATES", _
        TextOperator:=xlContains
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.249946592608417
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlTextString, String:="VAC", _
        TextOperator:=xlContains
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub

Answer 1

将条件格式应用于整个工作表是一个非常非常糟糕的主意。每当您在工作表中编辑任何单元格时，计算就会开始。

而不是有条件地格式化整个工作表，而使用代码仅格式化刚刚更改的单元格。格式化单元格填充和字体。

在工作表模块的Worksheet_Change事件中运行此代码，并使其在目标单元格上工作。然后它将快速运行，并且仅更改刚刚更改的单元。

这样的事情。根据需要添加更多的ElseIF。代码进入工作表的工作表模块。

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Value = "foo" Then
    With Target.Interior
        .PatternColorIndex = xlAutomatic
        .Color = 15773696
        .TintAndShade = 0
    End With
ElseIf Target.Value = "bar" Then
    With Target.Interior
        .PatternColorIndex = xlAutomatic
        .Color = 5296274
        .TintAndShade = 0
    End With
End If

End Sub