如何在VBA Userform的ListBox中按名称筛选，仅显示含databases的工作表？

AI 小北

2026-8-15

问题描述

我有一个用于数据录入的VBA用户窗体（Userform），可以将数据发送到不同的数据库（此处指Excel工作表）。当前文件内存在大量非数据库用途的工作表，希望让ListBox仅显示名称包含“databases”的工作表，这样新增数据库工作表时无需修改代码。目前的ListBox点击事件代码如下：

Private Sub ListBox1_Click()
    For i = 0 To UserForm1.ListBox1.ListCount - 1
        If UserForm1.ListBox1.Selected(i) = True Then
            Worksheets(UserForm1.ListBox1.List(i)).Activate
        End If
    Next i
End Sub

解决方案

要实现自动筛选并加载目标工作表的需求，只需在窗体初始化时遍历所有工作表，筛选出符合命名规则的添加到ListBox即可，同时可以优化原有点击事件代码提升效率。

1. 添加窗体初始化事件代码

在用户窗体的代码模块中新增UserForm_Initialize事件，用于加载符合条件的工作表：

Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    ' 清空ListBox避免重复加载内容
    ListBox1.Clear
    ' 遍历当前工作簿所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 判断工作表名称是否包含"databases"（vbTextCompare实现不区分大小写匹配）
        If InStr(1, ws.Name, "databases", vbTextCompare) > 0 Then
            ListBox1.AddItem ws.Name
        End If
    Next ws
    ' 可选：默认选中第一个符合条件的工作表
    If ListBox1.ListCount > 0 Then
        ListBox1.Selected(0) = True
    End If
End Sub

若需要严格区分大小写匹配，移除vbTextCompare参数即可。
每次初始化先清空ListBox，避免重复加载旧数据。

2. 优化ListBox点击事件代码

原代码通过循环判断选中项，若ListBox为默认的单选模式，可直接获取选中值，无需循环：

Private Sub ListBox1_Click()
    ' 先判断是否有选中项，避免无选中时触发报错
    If ListBox1.ListIndex <> -1 Then
        Worksheets(ListBox1.Value).Activate
    End If
End Sub