Excel VBA函数GreenCount作为公式返回#VALUE!错误，调试模式正常

Excel工作表函数（UDF）无法通过Interior.Color直接读取条件格式设置的填充色——这个属性仅能获取手动设置的单元格颜色。而VBA的Sub过程不受此限制，可正常读取条件格式应用后的显示颜色，这就是两种调用方式结果不同的核心原因。

方法1：借助宏表函数GET.CELL（兼容多数Excel版本） #

利用GET.CELL获取单元格的显示颜色索引（包含条件格式效果），结合自定义函数实现统计。修正后的GreenCount代码如下：

Function GreenCount(rng As Range) As Long
    Dim cell As Range
    Dim targetColorIndex As Integer
    Dim count As Long
    count = 0
    
    ' 先通过=GET.CELL(63, 目标绿色单元格)获取对应颜色索引，替换此处的10
    targetColorIndex = 10
    
    For Each cell In rng
        ' 用Evaluate执行GET.CELL，避开UDF的访问限制
        If Application.Evaluate("GET.CELL(63," & cell.Address(External:=True) & ")") = targetColorIndex Then
            count = count + 1
        End If
    Next cell
    
    GreenCount = count
End Function

注意事项

• 先确认条件格式绿色的颜色索引：在任意单元格输入公式=GET.CELL(63, E3)（替换E3为目标绿色单元格），得到的数字即为需替换代码中targetColorIndex的值。
• 需启用宏才能正常运行，文件需保存为.xlsm格式。

方法2：使用DisplayFormat（适配Excel 2010及以上版本） #

通过Evaluate包装DisplayFormat属性，直接读取条件格式后的填充色RGB值：

Function GreenCount(rng As Range) As Long
    ' 替换RGB(0,255,0)为你的条件格式绿色对应的RGB值
    GreenCount = Application.Evaluate("SUMPRODUCT(--(" & rng.Address & ".DisplayFormat.Interior.Color=RGB(0,255,0)))")
End Function

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