Excel公式调用自定义函数获取单元格显示颜色返回#VALUE!错误求助

阿华AIGC实验室

2026-5-15

解决Excel自定义函数无法获取单元格显示颜色的问题

这个问题我之前也碰到过！核心原因在于Excel对工作表自定义函数（UDF）的权限限制：DisplayFormat属性是禁止在UDF中使用的。它属于依赖UI显示状态的对象，只能在普通的VBA宏过程（比如Sub）里正常调用，这就是为什么你的函数在VBA过程里能用，但直接在单元格中调用会返回#VALUE!错误。

下面给你几种可行的解决方案，按需选择：

方案一：用宏表函数`GET.CELL`间接获取显示颜色

Excel的宏表函数GET.CELL可以获取单元格的显示格式信息，虽然不能直接在单元格中使用，但可以通过VBA的Evaluate方法在UDF里调用它。

代码示例：

Function GetDisplayColor(rng As Range) As Long
    ' 参数63代表获取单元格填充颜色的调色板索引
    ' 如果需要获取条件格式的填充颜色，可改用参数64
    GetDisplayColor = rng.Evaluate("GET.CELL(63," & rng.Address & ")")
    
    ' 可选：将颜色索引转换为RGB值（返回类似RGB(255,255,255)的数值）
    ' GetDisplayColor = ThisWorkbook.Colors(GetDisplayColor)
End Function

使用方法：

在单元格中输入=GetDisplayColor(A1)，就能得到A1单元格的显示颜色索引。如果需要RGB值，可取消注释代码中的转换部分。

方案二：利用工作表事件自动更新颜色值

如果不需要用UDF实时输入调用，可以借助Excel的工作表事件，在工作表计算或单元格内容变化时，自动把目标单元格的显示颜色写入指定位置。这种方法能直接使用DisplayFormat，结果更准确。

代码示例：

Private Sub Worksheet_Calculate()
    ' 每次工作表重新计算时，将A1的显示颜色写入B12
    Range("B12").Value = Range("A1").DisplayFormat.Interior.Color
End Sub

设置方法：

右键点击工作表标签（比如Sheet1），选择「查看代码」
将上述代码粘贴到代码窗口中
保存文件为.xlsm格式（启用宏的工作簿）

之后每次工作表计算（比如修改单元格内容、刷新条件格式）时，B12都会自动更新为A1的显示颜色RGB值。

方案三：遍历条件格式规则获取颜色（针对条件格式场景）

如果单元格的显示颜色是由条件格式导致的，还可以直接遍历单元格的条件格式规则，判断当前生效的规则后提取颜色。这种方法适合需要精确处理条件格式的场景。

代码示例：

Function GetConditionalFormatColor(rng As Range) As Long
    Dim cf As FormatCondition
    ' 遍历单元格的所有条件格式规则
    For Each cf In rng.FormatConditions
        If cf.AppliesTo.Address = rng.Address Then
            ' 判断规则是否当前生效（根据规则类型调整逻辑）
            If Evaluate(cf.Formula1) Then
                GetConditionalFormatColor = cf.Interior.Color
                Exit Function
            End If
        End If
    Next cf
    ' 如果没有生效的条件格式，返回单元格本身的填充颜色
    GetConditionalFormatColor = rng.Interior.Color
End Function