excel - 返回范围中的最小值以及单元格颜色(格式)

时间:2018-05-29 02:40:46

标签: excel

我有一系列具有不同值和单元格颜色的离散单元格,例如a1 = 3(蓝色),d1 = 1(红色),g1 = 2(绿色),单元格j1 = min(a1,d1,g1)中的公式表示返回d1(1)的值

我怎样才能让单元格j1显示相同的单元格颜色(或更高级,包括字体,对齐方式,边框等所有格式)作为最小单元格,即单元格j1也是红色的(还有其他单元格)格式)作为单元格d1?

提前感谢您的帮助。

2 个答案:

答案 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)

像这样: enter image description here

答案 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