如何修改VBA用户窗体Listbox动态搜索代码实现仅显示匹配项

要实现仅显示匹配搜索内容的项、无高亮选中的效果，核心思路是基于原始列表数据进行过滤，而非在现有列表上标记选中。具体修改步骤如下：

1. 保存原始列表数据 #

在窗体模块的通用声明区域（所有过程之外）添加变量，用于存储列表框的原始数据，避免每次搜索都依赖已过滤的列表：

' 存储列表框原始数据的数组
Private originalList As Variant

2. 窗体初始化时加载原始数据 #

在窗体的Initialize事件中，将列表框的初始数据存入originalList变量：

Private Sub UserForm_Initialize()
    ' 假设你的列表框已预先加载数据，直接保存到数组
    originalList = listData.List
End Sub

3. 修改搜索事件代码 #

替换原有的txtSearch_Change代码，实现过滤逻辑：清空列表框后，仅将匹配搜索内容的项重新添加进去，全程不设置选中状态：

Private Sub txtSearch_Change()
    Dim searchText As String
    Dim i As Long, j As Long
    Dim isMatch As Boolean
    
    searchText = Trim(txtSearch.Text)
    
    With listData
        ' 清空当前列表
        .Clear
        
        ' 如果搜索框为空，重新加载全部原始数据
        If searchText = "" Then
            .List = originalList
            Exit Sub
        End If
        
        ' 遍历原始数据，筛选匹配项
        For i = LBound(originalList, 1) To UBound(originalList, 1)
            isMatch = False
            ' 检查当前行的所有列
            For j = LBound(originalList, 2) To UBound(originalList, 2)
                If InStr(1, originalList(i, j), searchText, vbTextCompare) > 0 Then
                    isMatch = True
                    Exit For ' 找到匹配列后跳出列循环
                End If
            Next j
            
            ' 如果匹配，添加到列表框
            If isMatch Then
                .AddItem originalList(i, 0)
                ' 多列列表框需要补充其他列数据
                For j = 1 To UBound(originalList, 2)
                    .Column(j, .ListCount - 1) = originalList(i, j)
                Next j
            End If
        Next i
    End With
End Sub

关键说明 #

• 用originalList保存原始数据，确保每次搜索都是从完整数据集过滤，避免多次搜索后数据丢失
• 搜索框为空时自动恢复全部数据，提升用户体验
• 全程不设置.ListIndex或.Selected属性，自然实现无高亮选中的效果
• 多列列表框需通过.Column属性补充除第一列外的其他数据，保证显示完整

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