如何在用户窗体 VBA 中从数组中删除元素

Question

我有一个包含以下代码的用户表单。基本上它的作用是如果用户选择一个标题，然后单击 commandButton2 将所选电影标题插入到标题框和数组中。现在我制作了另一个按钮commandButton3，用户可以从标题框中选择要删除的标题，但我正在努力从我正在构建的数组中删除它。提前致谢。

Public SelectedTitles As Variant, ArrCount As Long, EnableEvents As Boolean
Private Sub CommandButton1_Click()
'Done Button
    Me.Hide
End Sub
Private Sub CommandButton2_Click()
    'User has indicated they want to add the currently selected item to the list
    If Not EnableEvents Then Exit Sub
    If ArrCount = 0 Then 'First item, create the array
        SelectedTitles = Array("")
    Else
        ReDim Preserve SelectedTitles(UBound(SelectedTitles) + 1) 'Next items, add one more space in the array
    End If
    
    'Add the selected title to the array
    SelectedTitles(ArrCount) = ComboBox1.Value
    ListBox1.AddItem (SelectedTitles(ArrCount))
    'Increment the counter
    ArrCount = ArrCount + 1
    'Reset the checkbox and the combobox
    EnableEvents = False
    CommandButton2.Value = False
    ComboBox1.Value = ""
    EnableEvents = True
End Sub
Private Sub CommandButton3_Click()
    For i = ListBox1.ListCount - 1 To 0 Step -1
        If ListBox1.Selected(i) Then
            ListBox1.RemoveItem i
                If SelectedTitles() = i Then
                    SelectedTitles() = "n/a"
                End If
             ArrCount = ArrCount - 1
        End If
     Next i
     
    EnableEvents = False
    CommandButton3.Value = False
    ComboBox1.Value = ""
    EnableEvents = True
End Sub
Private Sub CommandButton4_Click()
    ListBox1.Clear
    Erase SelectedTitles
    ArrCount = 0
    EnableEvents = False
    CommandButton4.Value = False
    ComboBox1.Value = ""
    EnableEvents = True
End Sub
Private Sub ListBox1_Click()
End Sub
Private Sub UserForm_Initialize()
    EnableEvents = True
End Sub

Answer 1

首先，在 VBA 中使用数组可能会很痛苦。您可以考虑改用 ArrayLists，这样使用起来要方便得多。检查这个：https://excelmacromastery.com/vba-arraylist/

假设您的数组是一个数组列表，您可以这样做：

For i = ListBox1.ListCount - 1 To 0 Step -1
    If ListBox1.Selected(i) Then
        ListBox1.RemoveItem i
        SelectedTitles.RemoveAt i
    End If
 Next i

但如果你想坚持你的阵列，你必须做这样的事情：

For i = ListBox1.ListCount - 1 To 0 Step -1
    If ListBox1.Selected(i) Then
        ListBox1.RemoveItem i
           For j = 0 to Ubound(SelectedTitles)-1
              If SelectedTitles(j) <> SelectedTitles (i) then
                 ReDim Preserve TempSelectedTitles(UBound(TempSelectedTitles) + 1)
                 TempSelectedTitles(j) =  SelectedTitles(i)
              end if
           next  J
           SelectedTitles = TempSelectedTitle
    End If
  Next i

我没有尝试这段代码，但你明白了，你需要重建你的数组，而不在你的列表框中包含选定的值