如何实现多选列表框取消选择后对应组合框自动隐藏？

你的核心问题是只处理了选中时的显示逻辑，没覆盖取消选中后的隐藏逻辑，而且原代码中nameDatabase.Column(Value)的写法不适用于多选列表框——多选场景下会有多个选中项，无法直接通过这种方式获取单个值。

修复思路 #

1. 每次触发AfterUpdate事件时，先将所有相关组合框默认设为隐藏状态
2. 遍历所有选中项，逐个判断并显示对应的组合框
3. 保留原有将选中项写入文本框的逻辑

修改后的代码 #

Private Sub nameDatabase_AfterUpdate()
    Dim strEng As String
    Dim varItem As Variant
    
    ' 原有文本框赋值逻辑保留
    For Each varItem In Me.nameDatabase.ItemsSelected
        strEng = strEng & ", " & Me.nameDatabase.ItemData(varItem)
    Next
    If Len(strEng) > 0 Then
        strEng = Mid(strEng, 2)
    End If
    Me.TestBox = strEng
    
    ' 先隐藏所有组合框，确保未选中的选项对应框会被隐藏
    codeJBox.Visible = False
    codeSBox.Visible = False
    codePBox.Visible = False
    codeABox.Visible = False
    
    ' 遍历所有选中项，显示对应组合框
    For Each varItem In Me.nameDatabase.ItemsSelected
        Select Case Me.nameDatabase.ItemData(varItem)
            Case "A"
                codeJBox.Visible = True
            Case "B"
                codeSBox.Visible = True
            Case "C"
                codePBox.Visible = True
                codeABox.Visible = True
        End Select
    Next
End Sub

关键说明 #

• 先统一隐藏所有组合框：彻底解决“取消选中后框仍显示”的问题，只要选项没被选中，对应框就会处于隐藏状态
• 遍历选中项判断：适配多选场景，不管同时选了多少个选项，每个选中项对应的框都会被正确显示
• 用Select Case替代多If-Else：逻辑更清晰，后续新增选项时扩展性更强

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