使用VBA获取条件格式单元格颜色时出现#VALUE!错误，求解决

你的第二个函数出现#VALUE!错误的核心原因：Excel禁止在自定义用户函数（UDF）中直接调用DisplayFormat属性，这是Excel的内置限制，用于避免UDF干扰工作表显示逻辑和性能。

下面提供两种可行的解决方案：

方案一：使用GET.CELL宏函数获取显示颜色 #

GET.CELL是Excel的宏表函数，能够绕过UDF对DisplayFormat的限制，直接获取单元格的实际显示颜色（包括条件格式生效后的颜色）。修改后的VBA函数如下：

Public Function GetCellColor(cell As Range) As Long
    Application.Volatile
    ' 编号38对应获取单元格的Interior.Color（含条件格式）
    GetCellColor = cell.Evaluate("GET.CELL(38," & cell.Address & ")")
End Function

使用说明：

• 该函数返回颜色的长整型数值，和你第一个函数的返回类型一致，方便后续处理
• 需确保工作表启用宏，否则函数无法正常运行

方案二：遍历条件格式规则手动判断 #

如果不想依赖宏表函数，可以通过遍历单元格的条件格式规则，手动验证规则是否生效，从而获取对应的颜色。示例代码如下：

Public Function GetConditionalColor(cell As Range) As Long
    Application.Volatile
    Dim cfRule As FormatCondition
    Dim currentColor As Long
    
    ' 默认返回手动设置的颜色
    currentColor = cell.Interior.Color
    
    ' 遍历单元格的所有条件格式规则
    For Each cfRule In cell.FormatConditions
        ' 检查规则是否应用于当前单元格
        If cfRule.AppliesTo.Address = cell.Address Then
            Select Case cfRule.Type
                ' 处理单元格值类型的条件格式
                Case xlCellValue
                    Select Case cfRule.Operator
                        Case xlBetween
                            If cell.Value >= cfRule.Formula1 And cell.Value <= cfRule.Formula2 Then
                                currentColor = cfRule.Interior.Color
                            End If
                        Case xlGreater, xlGreaterEqual
                            If cell.Value >= cfRule.Formula1 Then
                                currentColor = cfRule.Interior.Color
                            End If
                        Case xlLess, xlLessEqual
                            If cell.Value <= cfRule.Formula1 Then
                                currentColor = cfRule.Interior.Color
                            End If
                        Case xlEqual, xlNotEqual
                            If (cfRule.Operator = xlEqual And cell.Value = cfRule.Formula1) Or _
                               (cfRule.Operator = xlNotEqual And cell.Value <> cfRule.Formula1) Then
                                currentColor = cfRule.Interior.Color
                            End If
                    End Select
                ' 处理公式类型的条件格式
                Case xlExpression
                    If Evaluate(Replace(cfRule.Formula1, cell.Address, cell.Address(True, True, xlR1C1))) Then
                        currentColor = cfRule.Interior.Color
                    End If
            End Select
        End If
    Next cfRule
    
    GetConditionalColor = currentColor
End Function

使用说明：

• 该函数会优先返回生效的条件格式颜色，若没有生效的条件格式则返回手动设置的颜色
• 代码中覆盖了常见的条件格式类型和运算符，若你的条件格式有特殊类型，可补充对应的判断逻辑

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