从多个组合框中删除项目

Question

我有 7 个组合框。所有这些组合框都有相同的来源。

With Sheets("Data_Sheet")

Sheets("UI_Interface").ComboBox2.ListFillRange = "Data_Sheet!E2:E" & .Cells(Rows.Count, 5).End(xlUp).Row

End With

已为其他组合框编写了相同的代码。

Now when a value from combobx1 is selected it should not be present in other comoboxes. 当我尝试使用以下代码执行此操作但此代码出现错误时。

j = ComboBox1.ListIndex

ComboBox2.RemoveItem (j)

我也尝试了一些不同的属性来删除该值，但都给出了一些例外。

这段代码有什么不正确的地方？

Answer 1

除非我使用.ListFillRange 方法填充组合框，否则RemoveItem 方法对我来说可以正常工作。如果您改用 .List 方法，它应该可以工作。为此，您必须将范围转换为数组。

修订

感谢 enderland 指出您在工作表上使用表单控件，而不是在用户表单中。所以方法应该是相似的，但你不能使用ListFillRange 方法。没什么大不了的，我们可以轻松地获取该范围，将其转换为变量/数组，然后使用 List 方法。

Option Explicit
Private Sub Worksheet_Activate()
'## Sets default list for ComboBoxes on this sheet
    SetComboBoxLists ComboBox1
    SetComboBoxLists ComboBox2

End Sub
Private Sub ComboBox1_Change()
'## event handler for a combobox, repeat as needed
    '## Repopulate the list, otherwise you may get
    '    an Index out of Range error or Invalid Argument error,
    '    or the RemoveItem method will remove the wrong item
    SetComboBoxList ComboBox2
    '## Now, remove the item selected in ComboBox1
    ComboBox2.RemoveItem ComboBox1.ListIndex
End Sub

Private Sub SetComboBoxLists(cBox As MSForms.ComboBox)
'## Subroutine to fill the list in each combobox as needed
Dim lstRange As Variant

    '## Populate the array variable to use for the combobox.List method:
    '    double-check that I put the parentheses in the right place!
    With Sheets("Data_Sheet")
        lstRange = .Range("E2:E" & .Cells(Rows.Count, 5).End(xlUp).Row)
    End With

    '## Populate the combobox with the list
    cBox.List = lstRange

End Sub

请注意，如果您的任何代码操作（例如，调整大小、删除行等）该范围，您将需要重新应用 List 方法。