macros删除条件格式填充颜色红色

我有一个大的excel报告，我正在努力使我的技术人员的生活更轻松。

我有单元格，如果一个数字不在另一个单元格的10％内，那么这个单元格会以红色突出显示。 我的问题是我不希望我的客户在我的报告中看到红色突出显示。 我必须将我的Excel报告转换为PDF。

是否有一个macros代码只会取出突出显示RED的条件格式？ 我在报告中有其他条件格式，这就是为什么我不能使用删除所有条件格式的macros代码。

另外，是否有一个macros代码，将使其返回到红色？

任何帮助，这是表示赞赏。 谢谢

Answer 1

答案是肯定的。 首先，您需要确定您正在处理的范围。
然后检查你的范围是否有格式化，如果是，删除，否则应用（如切换）。
下面的代码就是这样。 改变我评论和适应的行。 HTH。

Sub ColorUnColor() Dim myformat As String Dim cfr As Range myformat = "=A1<(0.1*B1)" '~~> change to suit With Sheet2 '~~> change to suit Set cfr = .Range("D1:D10") '~~> change to suit If cfr.FormatConditions.Count = 0 Then .Range("A1").FormatConditions.Add xlExpression, , myformat With .Range("A1").FormatConditions(1) .Interior.Color = RGB(255, 0, 0) .ModifyAppliesToRange cfr End With Else cfr.FormatConditions.Delete End If End With End Sub 

结果：

重要提示：您可以在任何范围内指定条件格式，但将应用于您在此处讨论的ModifyAppliedToRange中设置的内容 。

Answer 2

您可以使用此选项清除红色（255）表单上的单元格。 不知道这是否正是你所需要的。

 Sub testes() Dim SrchRng As Range Set SrchRng = ActiveSheet.UsedRange For Each Source In SrchRng If Source.Interior.Color = 255 Then Source.Interior.Color = xlNone End If Next Source End Sub 

至于回到红色你不能只运行你已经有的macros？

Answer 3

尝试这个：

 Selection.FormatConditions.Delete