如何用Excel VBA实现ListBox与ComboBox的双向同步增减？

原代码存在的问题： #

1. ComboBox1_Change事件：
   • ListBox1.AddItem (.ListIndex) 错误地将索引数字添加到ListBox，而非选中的项目文本，导致显示异常。
   • 未判断.ListIndex <> -1，若用户在ComboBox输入非列表内文本时，会触发无效操作，进而导致RemoveItem看似“不工作”。
2. ListBox1_KeyUp事件：
   • 未先判断.ListIndex <> -1，若未选中ListBox项就按DEL键，会引发运行错误。
   • 原代码中ComboBox1.AddItem看似失效，实际是因为缺少选中项判断，导致符合条件的触发场景被遗漏。

修正后的代码： #

Private Sub ComboBox1_Change()
    With ComboBox1
        ' 确保存在选中项且列表不为空
        If .ListIndex <> -1 And .ListCount > 0 Then
            ' 将选中的项目文本添加到ListBox
            ListBox1.AddItem .List(.ListIndex)
            ' 从ComboBox移除当前选中项
            .RemoveItem .ListIndex
        End If
    End With
End Sub

Private Sub ListBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 46 Then ' 响应DEL键
        With Me.ListBox1
            ' 确保有选中项，且不是第一个不可移除的项目
            If .ListIndex <> -1 And .ListIndex > 0 Then
                ' 将选中项文本添加回ComboBox
                ComboBox1.AddItem .List(.ListIndex)
                ' 从ListBox移除选中项
                .RemoveItem .ListIndex
            End If
        End With
    End If
End Sub

额外优化提示： #

• 若要禁止在ComboBox中输入自定义文本，可设置ComboBox1.Style = fmStyleDropDownList，强制只能选择列表内项目。
• 若需要ComboBox列表保持有序，可在设计时勾选“Sorted”属性，或代码中添加ComboBox1.Sorted = True。

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