excel - 从条件格式获取颜色

Question

我有这个函数来获取由条件格式设置的颜色。

Function ColorIndex(CellColor As Range)
ColorIndex = CellColor.DisplayFormat.Interior.ColorIndex
End Function

但是当我在工作表中使用此函数时，它总是返回#value。

我怎样才能做到这一点？

Answer 1

试试这个

Dim clrIndex As Integer

Function ColorIndex(CellColor As Range)
    CellColor.Parent.Evaluate "GetColor(" & CellColor.Address(False, False) & ")"
    ColorIndex = clrIndex
End Function

'~~> Get the color index of the cell and store in a temp variable
Sub GetColor(RefCell As Range)
    clrIndex = RefCell.DisplayFormat.Interior.ColorIndex
End Sub

有关更多解释，您可能想查看这个令人惊奇的 Thread作者:@TimWilliams