如何解决UserForm中ComboBox绑定RowSource后无法移除选项的问题？

你遇到的报错核心原因是：当ComboBox设置了RowSource属性绑定工作表区域后，无法直接使用RemoveItem方法修改控件列表。因为此时ComboBox的选项完全由绑定的外部数据源（工作表区域）控制，控件本身不允许直接增删列表项。

解决步骤 #

1. 替换RowSource的加载方式

放弃使用RowSource，改为在UserForm初始化时，通过代码手动将工作表中的姓名加载到ComboBox中，让控件拥有独立的可编辑列表。

2. 修改正向移动（从ListeAjoutAg到ListeRetirer）的代码

3. 添加反向移动（从ListeRetirer到ListeAjoutAg）的代码

完整代码示例 #

UserForm初始化代码（加载姓名列表）

Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    Dim nameRange As Range
    Dim cell As Range
    
    ' 假设姓名存储在Sheet1的A列，从A2开始到最后一行有数据的单元格
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set nameRange = ws.Range("A2:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
    
    ' 清空控件避免重复加载
    Me.ListeAjoutAg.Clear
    Me.ListeRetirer.Clear
    
    ' 加载所有姓名到第一个ComboBox
    For Each cell In nameRange
        If cell.Value <> "" Then
            Me.ListeAjoutAg.AddItem cell.Value
        End If
    Next cell
    
    ' 初始化第二个ComboBox状态
    Me.ListeRetirer.Enabled = False
    Me.ListeRetirer.Visible = False
End Sub

正向移动代码（ListeAjoutAg的Change事件）

Private Sub ListeAjoutAg_Change()
    Dim selectedIndex As Integer
    selectedIndex = Me.ListeAjoutAg.ListIndex
    
    ' 确保有选中项（ListIndex不为-1）
    If selectedIndex <> -1 Then
        ' 添加选中项到第二个ComboBox
        Me.ListeRetirer.AddItem Me.ListeAjoutAg.Text
        ' 从第一个ComboBox移除选中项
        Me.ListeAjoutAg.RemoveItem selectedIndex
        ' 启用并显示第二个ComboBox
        Me.ListeRetirer.Enabled = True
        Me.ListeRetirer.Visible = True
    End If
End Sub

反向移动代码（ListeRetirer的Change事件）

Private Sub ListeRetirer_Change()
    Dim selectedIndex As Integer
    selectedIndex = Me.ListeRetirer.ListIndex
    
    If selectedIndex <> -1 Then
        ' 添加选中项回第一个ComboBox
        Me.ListeAjoutAg.AddItem Me.ListeRetirer.Text
        ' 从第二个ComboBox移除选中项
        Me.ListeRetirer.RemoveItem selectedIndex
        ' 如果第二个ComboBox为空，恢复禁用隐藏状态
        If Me.ListeRetirer.ListCount = 0 Then
            Me.ListeRetirer.Enabled = False
            Me.ListeRetirer.Visible = False
        End If
    End If
End Sub

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