根据单元格中的HEX值设置自动颜色背景？

我已经想通了，在向单元格的条件格式规则添加规则时可以手动完成：但是，当我在单元格中写入HEX值时，我希望所有16,000,000个HEX值颜色自动出现，因此“手动”添加这16,000,000hex值听起来有点太多了！ 是不是有一种方法，所有1600万色的色调自动find他们的方式，并根据单元格中的HEX值应用背景颜色的单元格？

换句话说，我想在单元格中input0000ff时获得蓝色背景，然后当单元格的HEX值改变时，我希望背景变为相应的颜色。>当inputff0000时，BGC变为红色，当00ff00时为绿色，当ffffff为白色时为1600万色以上。

Answer 1

将hex转换为RGB的Worksheet_Change事件macros应该可以方便地执行此操作。 工作表的HEX2DEC函数应该能够处理转换。

右键单击工作表的名称选项卡并select查看代码 。 当VBE打开时，将以下内容粘贴到标题为Book1 – Sheet1（Code）的代码表中。

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返回到您的工作表。 在单元格中input任何6个字符的hex代码以提供背景颜色。

Answer 2

 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.count <> 1 Then Exit Sub Target.Interior.Color = CLng("&H" & Target.Value) End Sub 

它的工作原理，但由于某些原因在BGR的基础上，而不是RGB：ff0000给蓝色和0000ff给红色：D