如何读取Excel条件格式设置的单元格RGB值？VBA脚本优化方案

我有一组数据集，已在Excel中通过条件格式为0-100的数值设置了RGB颜色编码：

• 数值0（低值）对应RGB(0,176,240)
• 数值50（中间值）对应RGB(255,255,255)
• 数值100（高值）对应RGB(255,0,0)

我需要提取这些RGB信息，以便在其他程序中展示相同数据。我找到了如下VBA模块脚本用于读取单元格RGB值，但遇到问题：尽管多数单元格处于低值或高值区间，脚本读取结果均为白色（255,255,255）。

我认为这是因为单元格颜色为条件格式设置而非固定填充色。请问能否修改该脚本以读取条件格式的RGB颜色，或提供可行的替代方案？

原VBA代码：

Function getColor(Rng As Range, ByVal ColorFormat As String) As Variant
    Dim ColorValue As Variant
    ColorValue = Cells(Rng.Row, Rng.Column).Interior.Color
    Select Case LCase(ColorFormat) 
        Case "index"
            getColor = Rng.Interior.ColorIndex
        Case "rgb"
            getColor = (ColorValue Mod 256) & ", " & ((ColorValue \ 256) Mod 256) & ", " & (ColorValue \ 65536)  
        Case Else
            getColor = "Only use 'Index' or 'RGB' as second argument!" 
    End Select
End Function

一、修改VBA脚本读取条件格式颜色 #

原脚本读取的是单元格固定填充色，而非条件格式应用后的显示颜色。可以改用DisplayFormat属性获取条件格式生效后的颜色，修改后的代码如下：

Function getConditionalColor(Rng As Range, ByVal ColorFormat As String) As Variant
    Dim ColorValue As Variant
    ' 使用DisplayFormat获取条件格式生效后的显示颜色
    ColorValue = Rng.DisplayFormat.Interior.Color
    
    Select Case LCase(ColorFormat)
        Case "index"
            getConditionalColor = Rng.DisplayFormat.Interior.ColorIndex
        Case "rgb"
            ' 拆分RGB分量：Color值格式为RGB(红,绿,蓝)对应十进制值=红+绿*256+蓝*65536
            Dim red As Integer, green As Integer, blue As Integer
            red = ColorValue Mod 256
            green = (ColorValue \ 256) Mod 256
            blue = ColorValue \ 65536
            getConditionalColor = red & ", " & green & ", " & blue
        Case Else
            getConditionalColor = "仅支持输入'Index'或'RGB'作为第二个参数！"
    End Select
End Function

使用方法：在单元格中输入=getConditionalColor(A1,"rgb")即可获取A1单元格条件格式生效后的RGB值。

二、替代方案：直接通过数值计算RGB值 #

由于你的条件格式是线性渐变（0→50→100对应三种颜色的平滑过渡），可以直接通过数值计算RGB分量，无需读取Excel颜色，更适合跨程序复用：

计算逻辑： #

1. 当数值≤50时，从RGB(0,176,240)过渡到RGB(255,255,255)
2. 当数值≥50时，从RGB(255,255,255)过渡到RGB(255,0,0)

实现代码（VBA或其他语言通用逻辑）： #

Function calculateRGB(value As Integer) As String
    Dim red As Integer, green As Integer, blue As Integer
    
    If value <= 50 Then
        ' 从蓝色到白色的过渡
        red = Round((255 - 0) * (value / 50) + 0)
        green = Round((255 - 176) * (value / 50) + 176)
        blue = Round((255 - 240) * (value / 50) + 240)
    Else
        ' 从白色到红色的过渡
        red = 255
        green = Round((0 - 255) * ((value - 50) / 50) + 255)
        blue = Round((0 - 255) * ((value - 50) / 50) + 255)
    End If
    
    calculateRGB = red & ", " & green & ", " & blue
End Function

使用方法：输入=calculateRGB(A1)即可根据A1的数值直接计算对应的RGB值，这个方法不受Excel条件格式设置限制，在其他程序中也可以直接复用相同的计算逻辑。

内容的提问来源于stack exchange，提问作者aLiveDiatribe