如何解决基于公式的Excel 2007/2010色标条件格式
| 假设我具有以下表结构(A1:C3) A B C
1 H1 H2 H3
2 1 1 3
3 4 5 4
如何在以下条件下应用条件格式:
仅标题单元格(H1,H2,H3)被着色
配色方案为2或3色标
用于计算颜色的值应为A2 / A3,B2 / B3,C2 / C3(范围为0-1)
注意:我不是要寻找VBA解决方案,因为我可以自己做,但是如果您有一些疯狂的1衬板,请告诉:)
注意:我不想应用很多规则,例如if x<0.3 red
,if 0.3<x<0.6 orange
等。
有没有干净的解决方案?
是否可以根据公式的值应用3色标?解决方法
我认为您正在寻找的东西很不幸,但不幸的是不存在。我只是看到两个选项。
您可以使用三个条件进行条件格式设置,如果要使用默认单元格颜色作为三个条件之一,则可以只设置两个条件(例如,公式Is =(A2 / A3)<0.3,公式Is =(A2 / A3)< 0.6,或者您希望阈值达到的任何数值)。您可以在Excel中的一个标头单元格上手动应用此格式化,然后将其复制到所有标头中。或通过VBA进行应用。
或者,您可以在VBA中为页眉着色,然后在工作表上放置一个按钮,调用该代码以更新颜色。
With Range(\"A1\")
For i = 1 To 3
colorscale = .Cells(2,i).Value / .Cells(3,i).Value
.Cells(1,i).Interior.Color = _
RGB(colorscale * 255,colorscale * 255,_
colorscale * 255) \' for example. Or pick your colors otherwise.
Next i
End With
在我看来,第一个选项(条件格式)更适合,因为它会根据单元格值自动更新颜色。不过,我不得不承认,我不太明白为什么您要寻找比这更“清洁”的东西,因为它实际上是一个非常简单的解决方案。两个条件构成“很多规则”吗?一点也不用英语...,这是让·弗朗索瓦·科贝特(Jean-FrançoisCorbett)的代码改编而成,该代码采用了红黄绿渐变色:
With Range(\"A1\")
For i = 1 To 3
ColorScale = .Cells(2,i).Value
If ColorScale < 0.5 Then
red = 255
green = ColorScale * 2 * 255
Else
red = (1 - ColorScale) * 2 * 255
green = 255
End If
.Cells(1,i).Interior.Color = RGB(red,green,0)
Next i
End With
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。