Excel VBA按类别匹配单元格颜色设置形状RGB颜色问题

问题原因 #

WorksheetFunction.Lookup仅能返回单元格的数值内容，无法直接获取DisplayFormat.Interior.Color这类格式属性，这是导致运行时错误1004的核心原因。

解决方案 #

以下两种方法均可实现按类别查找对应颜色并赋值给形状：

方法一：用Match定位行号后取颜色

Dim wsConfig As Worksheet
Dim matchRow As Variant
Dim CellColor As Long

Set wsConfig = ThisWorkbook.Worksheets("Config")
' 查找匹配类别的区域内相对行号
matchRow = Application.Match(txtImpactCategory, wsConfig.Range("B2:B12"), 0)

If Not IsError(matchRow) Then
    ' 转换为实际行号并获取对应C列单元格颜色
    CellColor = wsConfig.Cells(matchRow + 1, "C").DisplayFormat.Interior.Color
    ' 为选中形状设置颜色
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = CellColor
    End With
Else
    MsgBox "未找到对应类别的颜色配置"
End If

方法二：用Find定位单元格后取颜色

Dim wsConfig As Worksheet
Dim matchCell As Range
Dim CellColor As Long

Set wsConfig = ThisWorkbook.Worksheets("Config")
' 精准查找匹配的类别单元格
Set matchCell = wsConfig.Range("B2:B12").Find( _
    What:=txtImpactCategory, _
    LookIn:=xlValues, _
    LookAt:=xlWhole, _
    MatchCase:=False)

If Not matchCell Is Nothing Then
    ' 获取右侧C列单元格的颜色
    CellColor = matchCell.Offset(0, 1).DisplayFormat.Interior.Color
    ' 为选中形状设置颜色
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = CellColor
    End With
Else
    MsgBox "未找到对应类别的颜色配置"
End If

注意事项 #

• 若单元格颜色为条件格式设置，必须使用DisplayFormat.Interior.Color；若为直接设置的填充色，可改用Interior.Color，避免因条件格式状态变化导致的异常。
• 确保txtImpactCategory的值与Config表B列的类别完全匹配（包括大小写、空格），否则会出现查找失败的情况。

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