Excel VBA：能否修改ComboBox列表中单个项的字体样式？

我有一个包含大量健身动作的ActiveX ComboBox控件，已按肌群对列表分类排序。现在需要修改列表中分类名称项（如...Legs...、...Chest...）的样式：设置加粗，同时支持修改颜色、字号及背景，子项保持原有样式。当前使用的ComboBox Change 事件代码如下：

'COMBOBOX1
Private Sub exercise_Change()
    Dim f As Range
    
    ActiveCell.Value = exercise.Value

    If ActiveCell.Value <> "" Then
        Set f = Sheets("database").Columns("A:K").Find(ActiveCell.Value, lookat:=xlWhole)
        If Not f Is Nothing Then
            If f.Hyperlinks.Count > 0 Then ActiveCell.Hyperlinks.Add ActiveCell, f.Hyperlinks(1).Address
        End If
    End If
   
End Sub

解决方案：用ListBox模拟带样式的ComboBox #

原生Excel ActiveX ComboBox不支持单独设置列表项的样式，因此我们可以通过TextBox+ListBox的组合来模拟ComboBox的功能，实现分类项的样式自定义。

步骤1：添加控件 #

• 在目标工作表中插入一个ActiveX TextBox，命名为txtExercise（用于模拟ComboBox的输入显示框）。
• 插入一个ActiveX ListBox，命名为lbExercise，初始设置为隐藏（属性面板中Visible设为False）。

步骤2：加载数据并设置分类项样式 #

在工作表的激活事件中加载数据，并为分类项设置自定义样式：

Private Sub Worksheet_Activate()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    Set ws = ThisWorkbook.Sheets("database")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    '清空ListBox现有内容
    lbExercise.Clear
    
    '逐行加载数据并设置样式
    For i = 1 To lastRow
        lbExercise.AddItem ws.Cells(i, "A").Value
        
        '判断当前项是否为分类项（此处以包含"..."为判断依据，可按需修改）
        If InStr(ws.Cells(i, "A").Value, "...") > 0 Then
            '设置分类项样式：加粗、红色字体、浅灰背景、12号字
            lbExercise.ListFont.Bold = True
            lbExercise.ListRows(i - 1).Font.Color = RGB(255, 0, 0)
            lbExercise.ListRows(i - 1).BackColor = RGB(240, 240, 240)
            lbExercise.ListFont.Size = 12
        Else
            '子项恢复默认样式：常规字体、黑色、白色背景、10号字
            lbExercise.ListFont.Bold = False
            lbExercise.ListFont.Color = RGB(0, 0, 0)
            lbExercise.ListRows(i - 1).BackColor = RGB(255, 255, 255)
            lbExercise.ListFont.Size = 10
        End If
    Next i
End Sub

步骤3：实现下拉选中逻辑 #

添加以下事件代码，模拟ComboBox的下拉、选中及关闭行为：

'点击TextBox时显示ListBox
Private Sub txtExercise_Click()
    lbExercise.Visible = True
    '将ListBox定位到TextBox下方
    lbExercise.Top = txtExercise.Top + txtExercise.Height
    lbExercise.Left = txtExercise.Left
    lbExercise.Width = txtExercise.Width
End Sub

'双击ListBox项完成选中
Private Sub lbExercise_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim f As Range
    
    If lbExercise.ListIndex <> -1 Then
        '同步选中内容到TextBox
        txtExercise.Value = lbExercise.List(lbExercise.ListIndex)
        '执行原ComboBox的业务逻辑
        ActiveCell.Value = txtExercise.Value
        
        If ActiveCell.Value <> "" Then
            Set f = Sheets("database").Columns("A:K").Find(ActiveCell.Value, lookat:=xlWhole)
            If Not f Is Nothing Then
                If f.Hyperlinks.Count > 0 Then ActiveCell.Hyperlinks.Add ActiveCell, f.Hyperlinks(1).Address
            End If
        End If
        
        '选中后隐藏ListBox
        lbExercise.Visible = False
    End If
End Sub

'点击工作表其他区域时隐藏ListBox
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, txtExercise) Is Nothing Then Exit Sub
    lbExercise.Visible = False
End Sub

自定义调整说明 #

• 分类项判断逻辑：如果你的分类项不是用"..."标记，可修改InStr的判断条件（比如判断是否为特定前缀/后缀，或者读取辅助列的标记）。
• 样式参数：可自由调整RGB颜色值、字号、加粗属性，满足自定义需求。

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