根据单元格中的十六进制值设置自动彩色背景？

将十六进制转换为RGB的Worksheet_Change事件宏应该可以轻松完成此操作。工作表的HEX2DEC函数应该能够处理转换。

右键单击工作表的名称标签，然后选择查看代码。当VBE打开时，将以下内容粘贴到标题为Book1-Sheet1（代码）的代码表中。

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo bm_Safe_Exit
    Application.EnableEvents = False
    Dim rng As Range, clr As String
    For Each rng In Target
        If Len(rng.Value2) = 6 Then
            clr = rng.Value2
            rng.Interior.Color = _
              RGB(Application.Hex2Dec(Left(clr, 2)), _
                  Application.Hex2Dec(Mid(clr, 3, 2)), _
                  Application.Hex2Dec(Right(clr, 2)))
        End If
    Next rng

bm_Safe_Exit:
    Application.EnableEvents = True
End Sub

点击Alt+Q返回到您的工作表。在单元格中键入任何6个字符的十六进制代码以提供背景色。