如何让数据验证下拉列表选项显示对应背景颜色？

原生的数据验证下拉列表确实不支持继承命名区域的格式，只能显示纯文本。要实现选项带对应背景色的下拉，推荐以下两种内置方法：

方法一：使用表单控件（组合框） #

这种方法兼容性较好，适合不需要复杂交互的场景：

1. 打开「开发工具」选项卡 → 点击「插入」→ 选择「表单控件」里的「组合框（窗体控件）」
2. 在目标单元格附近绘制组合框，右键点击组合框 → 选择「设置控件格式」
3. 在「控制」选项卡中，设置「数据源区域」为你的颜色命名区域，「单元格链接」指定要显示选择结果的单元格
4. 按Alt+F11打开VBA编辑器，插入模块并粘贴以下代码（记得替换组合框名称和颜色规则）：

Sub SetComboBoxItemColors()
    Dim cb As Object
    Dim colorRange As Range
    Dim i As Integer
    
    '替换为你的组合框所在工作表和名称
    Set cb = Sheet1.Shapes("组合框 1").OLEFormat.Object
    '替换为你的颜色命名区域
    Set colorRange = Sheet1.Range("ColorList")
    
    For i = 1 To cb.ListCount
        '根据选项文本设置对应背景色
        Select Case colorRange.Cells(i, 1).Value
            Case "Red"
                colorRange.Cells(i, 1).Interior.Color = RGB(255, 0, 0)
            Case "Blue"
                colorRange.Cells(i, 1).Interior.Color = RGB(0, 0, 255)
            Case "Green"
                colorRange.Cells(i, 1).Interior.Color = RGB(0, 255, 0)
            '可继续添加其他颜色规则
        End Select
    Next i
    '刷新组合框显示
    cb.ListFillRange = colorRange.Address
End Sub

5. 运行该宏后，组合框的下拉选项就会显示对应背景色，选中后链接单元格可继续用条件格式同步颜色。

方法二：使用ActiveX控件（组合框） #

这种方法灵活性更高，支持实时交互：

1. 打开「开发工具」→ 「插入」→ 选择「ActiveX控件」里的「组合框」
2. 在目标位置绘制控件，右键点击 → 选择「查看代码」，在代码窗口粘贴以下内容（按需调整单元格和颜色）：

Private Sub ComboBox1_Initialize()
    '初始化颜色选项列表
    Dim colorOptions As Variant
    colorOptions = Array("Red", "Blue", "Green")
    ComboBox1.List = colorOptions
End Sub

Private Sub ComboBox1_DropButtonClick()
    '下拉展开时设置每个选项的背景色
    Dim i As Integer
    For i = 0 To ComboBox1.ListCount - 1
        ComboBox1.ListIndex = i
        Select Case ComboBox1.List(i)
            Case "Red"
                ComboBox1.BackColor = RGB(255, 0, 0)
            Case "Blue"
                ComboBox1.BackColor = RGB(0, 0, 255)
            Case "Green"
                ComboBox1.BackColor = RGB(0, 255, 0)
        End Select
    Next i
    ComboBox1.ListIndex = -1 '重置为未选中状态
End Sub

Private Sub ComboBox1_Change()
    '选中后同步到目标单元格并设置背景色
    Dim targetCell As Range
    Set targetCell = Sheet1.Range("A1") '替换为你的目标单元格
    
    Select Case ComboBox1.Value
        Case "Red"
            targetCell.Value = "Red"
            targetCell.Interior.Color = RGB(255, 0, 0)
        Case "Blue"
            targetCell.Value = "Blue"
            targetCell.Interior.Color = RGB(0, 0, 255)
        Case "Green"
            targetCell.Value = "Green"
            targetCell.Interior.Color = RGB(0, 255, 0)
    End Select
End Sub

3. 关闭VBA编辑器，点击「开发工具」里的「设计模式」退出编辑状态，此时点击组合框下拉就能看到带背景色的选项。

注意：使用VBA的方法需要将文件保存为.xlsm格式（启用宏的工作簿），打开时需启用宏才能生效。

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