VBA中用ListBox替代ComboBox实现ListView多选项过滤并保留选中状态

VBA中ComboBox不支持多选，因此用ListBox替代实现ListView的多选项过滤：初始化时ListBox不可见，通过按钮控制其显示供用户筛选ListView内容，点击「应用筛选」按钮后隐藏ListBox。但再次打开ListBox时，之前选中的项会恢复为未选中状态，需要实现ListBox隐藏后重新打开仍保留选中状态的功能。

附问题场景说明：

• 选中ListBox项并点击应用后的状态：ListBox显示已选中的筛选项，点击应用后ListBox隐藏
• 再次打开ListBox时选中项消失的状态：ListBox重新显示，但之前选中的项全部变为未选中

用户提供的ListBox初始化代码：

Private Sub LOB_List()
On Error GoTo ERR_Handler
    Dim sql As String
    Dim con As ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim Records As Variant
    Dim i As Long, j As Long
    Dim RecCount As Long
    
    Set con = New ADODB.Connection
    
    con.Open "Provider=SQLOLEDB;Data Source=10.206.88.119\BIWFO;" & _
                          "Initial Catalog=TESTDB;" & _
                          "Uid=user; Pwd=password1;"
                           
    sql = "select distinct lob from data_test"
    
    rst.Open sql, con, adOpenKeyset, adLockOptimistic
    
    Records = rst.GetRows
    
    RecCount = rst.RecordCount
    
    rst.Close
    con.Close
    
    With ListBox1
        .ColumnCount = RecCount
        .List = Records
        .List = WorksheetFunction.Transpose(Records)
    End With
    
ERR_Handler:
    Select Case Err.Number
        Case 0
        Case Else
            MsgBox Err.Description, vbExclamation + vbOKOnly, Err.Number
    End Select
End Sub

核心思路是在ListBox隐藏前保存选中项的标识，重新加载ListBox时根据保存的标识恢复选中状态，具体实现步骤如下：

1. 定义全局变量存储选中项 #

在模块顶部（所有过程之外）定义一个集合类型的全局变量，用于保存选中的LOB值：

' 全局变量，用于保存选中的LOB项
Dim SelectedLOBs As Collection

2. 在「应用筛选」按钮事件中保存选中状态 #

点击「应用筛选」时，遍历ListBox所有项，将选中项存入全局集合，再隐藏ListBox：

Private Sub btnApplyFilter_Click()
    ' 清空之前的选中记录
    Set SelectedLOBs = New Collection
    
    ' 遍历ListBox，保存选中项
    Dim i As Long
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) Then
            SelectedLOBs.Add ListBox1.List(i)
        End If
    Next i
    
    ' 此处添加你的ListView过滤逻辑，示例：FilterListView(SelectedLOBs)
    
    ' 隐藏ListBox
    ListBox1.Visible = False
End Sub

3. 修改LOB_List过程，恢复选中状态 #

重新加载ListBox数据后，遍历全局集合，匹配ListBox中的项并设置选中状态：

Private Sub LOB_List()
On Error GoTo ERR_Handler
    Dim sql As String
    Dim con As ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim Records As Variant
    Dim i As Long
    Dim lobItem As Variant
    
    Set con = New ADODB.Connection
    
    con.Open "Provider=SQLOLEDB;Data Source=10.206.88.119\BIWFO;" & _
                          "Initial Catalog=TESTDB;" & _
                          "Uid=user; Pwd=password1;"
                           
    sql = "select distinct lob from data_test"
    
    rst.Open sql, con, adOpenKeyset, adLockOptimistic
    
    Records = rst.GetRows
    
    rst.Close
    con.Close
    
    With ListBox1
        .ColumnCount = 1 ' 修正原代码错误：LOB是单列数据，ColumnCount应设为1
        .List = WorksheetFunction.Transpose(Records)
        
        ' 恢复选中状态
        If Not SelectedLOBs Is Nothing Then
            For Each lobItem In SelectedLOBs
                For i = 0 To .ListCount - 1
                    If .List(i) = lobItem Then
                        .Selected(i) = True
                        Exit For
                    End If
                Next i
            Next lobItem
        End If
    End With
    
    ' 显示ListBox
    ListBox1.Visible = True
    
ERR_Handler:
    Select Case Err.Number
        Case 0
        Case Else
            MsgBox Err.Description, vbExclamation + vbOKOnly, Err.Number
    End Select
End Sub

4. 初始化全局变量 #

在用户窗体的Initialize事件中初始化集合，并设置ListBox初始不可见：

Private Sub UserForm_Initialize()
    Set SelectedLOBs = New Collection
    ListBox1.Visible = False
End Sub

关键补充 #

• 若不需要全局变量，也可将选中项保存到工作表的隐藏单元格中，重新加载时读取单元格内容恢复状态，适合需要持久化选中状态的场景；
• 原代码中.ColumnCount = RecCount属于逻辑错误，单列数据应设置为1，否则会导致ListBox显示异常。

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