如何为VBA用户窗体中的ListBox实现动态筛选功能？

实现说明 #

假设你的筛选文本框名为TextBox_Filter（如果名称不同，直接替换为你实际的文本框名称即可），核心逻辑是监听文本框的输入变化，每次输入更新时重新加载符合条件的数据到ListBox中。

完整代码 #

打开Registration_Form的代码模块，粘贴以下代码：

1. 窗体初始化加载全量数据 #

Private Sub UserForm_Initialize()
    ' 打开窗体时加载Registration工作表的全部数据
    LoadFilteredData ""
End Sub

2. 文本框输入变化触发筛选 #

Private Sub TextBox_Filter_Change()
    ' 实时根据文本框内容筛选数据
    LoadFilteredData Me.TextBox_Filter.Text
End Sub

3. 核心筛选加载函数 #

Private Sub LoadFilteredData(filterStr As String)
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long, j As Long
    Dim isMatch As Boolean
    
    ' 清空ListBox现有内容
    Me.ListBox1.Clear
    Set ws = ThisWorkbook.Worksheets("Registration")
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    ' 无筛选条件时加载全量数据
    If Trim(filterStr) = "" Then
        Me.ListBox1.ColumnCount = ws.UsedRange.Columns.Count
        Me.ListBox1.List = ws.Range("A1:" & ws.Cells(lastRow, ws.UsedRange.Columns.Count).Address).Value
        Exit Sub
    End If
    
    ' 按输入内容筛选（不区分大小写）
    filterStr = LCase(filterStr)
    Me.ListBox1.ColumnCount = ws.UsedRange.Columns.Count
    
    For i = 1 To lastRow
        isMatch = False
        ' 检查当前行所有列是否包含筛选文本，可修改为指定列（比如只查A列：If InStr(LCase(ws.Cells(i,1)), filterStr) >0）
        For j = 1 To ws.UsedRange.Columns.Count
            If InStr(LCase(ws.Cells(i, j).Value), filterStr) > 0 Then
                isMatch = True
                Exit For
            End If
        Next j
        
        ' 符合条件则添加到ListBox
        If isMatch Then
            Me.ListBox1.AddItem ws.Cells(i, 1).Value
            For j = 2 To ws.UsedRange.Columns.Count
                Me.ListBox1.List(Me.ListBox1.ListCount - 1, j - 1) = ws.Cells(i, j).Value
            Next j
        End If
    Next i
End Sub

注意事项 #

• 若仅需要筛选特定列（比如只筛选第一列），可删除内层的列循环，直接判断目标列的内容
• 如果需要区分大小写筛选，删除代码中LCase()的转换部分
• 确保Registration工作表的数据从A1单元格开始，表头位于第一行

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