检测范围内的条件格式

Posted 2021-04-03

我一直试图在excel上设置一个电子表格，它可以进行大量的计算，但也允许其中的变量（即团队数量有时会发生变化）。

在这种情况下，我有4个独立的团队。每个团队都有自己的默认条件格式，它将为该团队设置默认颜色。我通过检测单元格是否为空白来完成此操作。

Example of teams

如您所见，显示2个团队的默认颜色为蓝色和橙色。

我遇到的问题是当有人从Orange到Blue团队进行复制和粘贴时，它会对所述团队进行格式化。例如，如果我从Orange团队复制并粘贴黄色的“COURSE”到蓝色团队，当我删除“COURSE”这个词时，它应该默认回蓝色但是从Orange复制它默认为橙色。

我已设法设置以下内容，将格式重置为其原始蓝色默认值（这是当前通过按下按钮进行调试）。

Range(MyRange1).Select


Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
    "=LEN(TRIM(D2))=0"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
    .PatternColorIndex = xlAutomatic
    .ThemeColor = xlThemeColorLight2
    .TintAndShade = 0.599963377788629
End With
Selection.FormatConditions(1).StopIfTrue = False

我的问题是最终我想将其链接到工作表更改以允许复制和粘贴。但每次运行时，它都会在规则中创建条件格式的重复版本。

所以我需要删除以前存在的条件的任何其他实例，否则它们会加班加点。

我知道这将是一个IF / THEN声明，但对于我的生活，我想不出如何测试它。

我此刻有严厉的作家封锁所以我真的希望这是有道理的！

答案

这将循环遍历MyRange1中应用的所有条件格式，并删除任何不是优先级的格式。

For Each f In MyRange1.FormatConditions
    If f.Priority <> 1 Then f.Delete
Next

对不起，您注意到您使用MyRange1作为范围地址，因此您可以使用：

For Each f In Range(MyRange1).FormatConditions
    If f.Priority <> 1 Then f.Delete
Next

另一答案

您是否可以删除旧条件，然后在每次复制和粘贴时恢复它们？

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range)

Range("A1:A100").Select

With Selection.FormatConditions.Delete
End With

Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
    "=LEN(TRIM(D2))=0"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
    .PatternColorIndex = xlAutomatic
    .ThemeColor = xlThemeColorLight2
    .TintAndShade = 0.599963377788629
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub