小编use*_*700的帖子

当表单关闭时，我试图在 Excel VBA 中“重置”列表框。目前，当我使用 userform1.hide 函数时，表单消失了，但是当我使用 .show 函数再次打开它时，它仍然包含以前的选择。作为对此相对较新的人，有人可以提供帮助吗？

列表框的代码如下：

Sub CommandButton1_Click()

'Filter by Country
Dim item As Long, dict As Object
Dim wsData As Worksheet

Set wsData = Sheets("TPID")
Set dict = CreateObject("Scripting.Dictionary")

With ListBox1
    For item = 0 To .ListCount - 1
        If .Selected(item) Then dict(.List(item)) = Empty
    Next item
End With

With wsData.ListObjects("Table_ExternalData_1").Range
    .AutoFilter Field:=1
    If dict.Count Then _
        .AutoFilter Field:=1, criteria1:=dict.keys, Operator:=xlFilterValues
End With
'Filter by Continent
Dim item1 As Long, dict1 As Object
Dim wsData1 As …