如何用另一单元格的自定义十六进制代码设置Excel单元格背景色

自动触发方案（无需手动运行宏） #

使用工作表的Worksheet_Change事件，当C列单元格内容变更时自动同步A列背景色：

1. 右键目标工作表标签（如「Sheet1」），选择「查看代码」打开VBA编辑器。
2. 粘贴以下代码到编辑器窗口：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell As Range
    ' 仅响应C列的单元格变更
    If Not Intersect(Target, Me.Columns("C")) Is Nothing Then
        For Each cell In Intersect(Target, Me.Columns("C"))
            If cell.Value <> "" Then
                Dim hexColor As String
                hexColor = Replace(cell.Value, "#", "") ' 兼容带/不带#的格式
                ' 验证是否为6位有效十六进制码
                If Len(hexColor) = 6 Then
                    On Error Resume Next ' 捕获无效颜色码的错误
                    Me.Cells(cell.Row, "A").Interior.Color = _
                        RGB( _
                            Val("&H" & Mid(hexColor, 1, 2)), _
                            Val("&H" & Mid(hexColor, 3, 2)), _
                            Val("&H" & Mid(hexColor, 5, 2)) _
                        )
                    On Error GoTo 0
                End If
            Else
                ' 清空C列时，A列恢复无填充背景
                Me.Cells(cell.Row, "A").Interior.ColorIndex = xlColorIndexNone
            End If
        Next cell
    End If
End Sub

代码说明 #

• 自动监听C列的内容变化，实时同步对应A行的背景色
• 兼容带#和不带#的十六进制格式（如#F89D5E或F89D5E）
• 遇到无效的十六进制码时不会报错，只会忽略
• 清空C列单元格时，A列对应行背景色自动恢复默认

批量设置现有数据 #

如果需要一次性处理已有的C列颜色码，可运行以下批量宏：

Sub BatchSetColors()
    Dim lastRow As Long, i As Long
    lastRow = Me.Cells(Me.Rows.Count, "C").End(xlUp).Row
    For i = 1 To lastRow
        If Me.Cells(i, "C").Value <> "" Then
            Dim hexColor As String
            hexColor = Replace(Me.Cells(i, "C").Value, "#", "")
            If Len(hexColor) = 6 Then
                On Error Resume Next
                Me.Cells(i, "A").Interior.Color = _
                    RGB(Val("&H" & Mid(hexColor, 1, 2)), _
                        Val("&H" & Mid(hexColor, 3, 2)), _
                        Val("&H" & Mid(hexColor, 5, 2)))
                On Error GoTo 0
            End If
        Else
            Me.Cells(i, "A").Interior.ColorIndex = xlColorIndexNone
        End If
    Next i
End Sub

运行方式：在VBA编辑器中按F5执行，或给宏添加工作表按钮快速调用。

注意事项 #

• 保存文件时需选择「Excel 启用宏的工作簿（*.xlsm）」格式，否则宏会丢失
• 确保启用宏（打开文件时在安全警告中选择「启用内容」）

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