Question

我有一个电子表格，其中的单元格有意义。

是否有人知道如何在Excel工作表中返回当前单元格的背景颜色值？

Answer 1

你可以使用Cell.Interior.Color，我用它来计算一个范围内具有给定背景颜色的单元格数量（即匹配我的图例）。

Answer 2

如果您正在查看表格，数据透视表或具有条件格式的内容，您可以尝试：

ActiveCell.DisplayFormat.Interior.Color

这似乎也适用于常规细胞。

Answer 3

也许你可以使用这个属性：

ActiveCell.Interior.ColorIndex - one of 56 preset colors

和

ActiveCell.Interior.Color - RGB color, used like that:

ActiveCell.Interior.Color = RGB(255,255,255)

Answer 4

以下代码提供 HEX 和 RGB 值，无论是使用条件格式格式化还是其他方式。如果范围未使用条件格式进行格式化，并且您打算在Excel中将iColor函数用作UDF。它不会起作用。阅读以下MSDN的摘录。

请注意， DisplayFormat 属性在用户定义的函数中不起作用。例如，在返回单元格内部颜色的工作表函数中，如果使用类似于以下行的行：

Range.DisplayFormat.Interior.ColorIndex

然后执行工作表函数以返回#VALUE！错误。如果你没有找到有条件格式化范围的颜色，那么我鼓励你宁愿使用

Range.Interior.ColorIndex

然后该函数也可以在Excel中用作UDF。例如 iColor（B1，“HEX”）

Public Function iColor(rng As Range, Optional formatType As String) As Variant
'formatType: Hex for #RRGGBB, RGB for (R, G, B) and IDX for VBA Color Index
    Dim colorVal As Variant
    colorVal = rng.DisplayFormat.Interior.Color
    Select Case UCase(formatType)
        Case "HEX"
            iColor = "#" & Hex(colorVal Mod 256) & Hex((colorVal \ 256) Mod 256) & Hex((colorVal \ 65536))
        Case "RGB"
            iColor = (colorVal Mod 256) & ", " & ((colorVal \ 256) Mod 256) & ", " & (colorVal \ 65536)
        Case "IDX"
            iColor = rng.Interior.ColorIndex
        Case Else
            iColor = colorVal
    End Select
End Function

'Example use of the iColor function to get the background color of selected cells
Sub Get_Background_Color_Selection_Cells()
    Dim rng As Range

    For Each rng In Selection.Cells
        rng.Offset(0, 1).Value = iColor(rng, "HEX")
        rng.Offset(0, 2).Value = iColor(rng, "RGB")
    Next
End Sub

返回所选单元格的背景颜色

4 个答案: