我有一系列具有不同值和单元格颜色的离散单元格,例如a1 = 3(蓝色),d1 = 1(红色),g1 = 2(绿色),单元格j1 = min(a1,d1,g1)中的公式表示返回d1(1)的值
我怎样才能让单元格j1显示相同的单元格颜色(或更高级,包括字体,对齐方式,边框等所有格式)作为最小单元格,即单元格j1也是红色的(还有其他单元格)格式)作为单元格d1?
提前感谢您的帮助。
答案 0 :(得分:0)
唯一接近的是使用条件格式。但是你必须在2个位置定义颜色(在单元格A1,D1和G1以及J1中)。 为单元格j1创建3个条件格式设置规则:
=IF(MIN(A1,D1,G1)=A1,TRUE,FALSE)
=IF(MIN(A1,D1,G1)=D1,TRUE,FALSE)
=IF(MIN(A1,D1,G1)=G1,TRUE,FALSE)
答案 1 :(得分:0)
我找到了这段代码here。归功于@thunderframe。但是有一些限制:
1 如果对单元格颜色进行了更改,则必须刷新公式(按F9
完成此操作)。 2 VBA脚本必须安装在工作簿中,如果它存储在PERSONAL
工作簿中(如here所述),则无法使用。 3 它无法识别条件格式中定义的颜色。
Public Function ColorCode(Reference As Range) As Variant
Application.Volatile
' Function to return RGB code of a single cell when referenced
Dim RGBColor As Long
Dim Red As Long, Green As Long, Blue As Long
RGBColor = Reference.Interior.Color
Red = &HFF& And RGBColor
Green = (&HFF00& And RGBColor) \ 256
Blue = (&HFF0000 And RGBColor) \ 65536
ColorCode = Red & "/" & Green & "/" & Blue
End Function