ActiveX Combo Box选中后内容消失问题求助

问题根源 #

你把训练主题下拉框（cbxTrainingSubject）的列表加载逻辑放在了DropButtonClick事件中，每次点击下拉按钮都会先执行Clear清空控件，再重新加载列表。当你选中选项后，该事件会再次触发，清空并覆盖之前的选中状态，最终导致控件显示空白。

解决方案 #

将列表更新逻辑移到训练区域下拉框（cbxTrainingArea）的Change事件中，仅当训练区域选择变化时才更新主题列表，避免重复清空和加载。

修改后的代码 #

1. 训练区域变化时更新主题列表

Private Sub cbxTrainingArea_Change()
    ' 训练区域未选中时直接退出
    If cbxTrainingArea.Value = "" Then Exit Sub
    
    cbxTrainingSubject.Clear
    
    Dim shTables As Worksheet
    Dim shForm As Worksheet
    Dim rng As Range
    
    Set shTables = ThisWorkbook.Sheets("Tables")
    Set shForm = ThisWorkbook.Sheets("Form")
    
    Select Case cbxTrainingArea.Value
        Case "Assembly"
            Set rng = shTables.ListObjects("assemblyTraining").ListColumns("Assembly Training").DataBodyRange
            ' 检查表是否有数据，避免空表报错
            If Not rng Is Nothing Then
                shForm.cbxTrainingSubject.List = Application.Transpose(rng.Value)
            End If
        Case "Fabrication"
            Set rng = shTables.ListObjects("FabTraining").ListColumns("Fab Training").DataBodyRange
            If Not rng Is Nothing Then
                shForm.cbxTrainingSubject.List = Application.Transpose(rng.Value)
            End If
    End Select
End Sub

2. 可选：保留下拉按钮事件作为 fallback（防止列表为空时无法加载）

如果担心训练区域未触发Change事件导致列表为空，可以保留DropButtonClick事件，但仅在列表为空时才加载：

Private Sub cbxTrainingSubject_DropButtonClick()
    If cbxTrainingSubject.ListCount = 0 And cbxTrainingArea.Value <> "" Then
        cbxTrainingArea_Change
    End If
End Sub

额外检查点 #

• 确认cbxTrainingArea的Change事件已正确关联：在VBA编辑器中，左侧选中cbxTrainingArea控件，右侧事件下拉菜单选择Change，确保代码在对应的过程内。
• 检查表对象（assemblyTraining、FabTraining）和列名称是否与实际一致，避免因名称错误导致列表加载失败。

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