excel动态查询表如何做? 利用VBA实现工作表数据的动态查询的教程

利用VBA设计并实现工作表数据的动态查询。功能介绍：

• 1.当我们点击“动态加载并查询”时，将工作表数据加载到列表框中。同时，我们可以下拉选择查询字段；
• 2.当我们在文本框实时输入时，列表框将动态显示满足条件的数据。
• 3.当文本框内容全部清除时，列表框将显示工作表的全部数据。

微软Office LTSC 2021专业增强版 简体中文批量许可版 2024年09月更新

• 类型：办公软件
• 大小：2.2GB
• 语言：简体中文
• 时间：2024-09-12

查看详情

实现效果GIF

UI设计

这里主要使用到ComboBox 、TextBox和ListView控件。

• 1.ComboBox控件：用于选择“查找字段”，名称设置为cbbField，Style属性设置为：2-fmStyleDropDownList。
• 2.TextBox控件：用于输入查找内容，名称设置为tbSearch。
• 3.ListView控件：用于显示全部或满足条件的工作表数据，名称和相关属性均默认。

窗体主界面设计VBA代码

1.定义全局变量-arr数组

'用于保存工作表数据
Dim arr() As Variant

2.窗体初始化事件

Private Sub UserForm_Initialize()
    cbbField.Value = Cells(1, 2)
    '将工作表的单元格数据赋值给arr
    arr = Range("a1").CurrentRegion
    Dim j As Integer
    '从第一列到最后一列
    For j = 1 To UBound(arr, 2)
        '将查找字段添加至复选框
        cbbField.AddItem Cells(1, j)
        '给ListView控件增加标题行
        ListView1.ColumnHeaders.Add , , Cells(1, j), 60
    Next
    With ListView1
        .View = lvwReport
        .Gridlines = True
    End With
    Dim i As Integer
    For i = 2 To UBound(arr, 1)
        Dim item  As ListItem
        Set item = ListView1.ListItems.Add
        item.Text = arr(i, 1)
        For j = 2 To UBound(arr, 2)
            item.SubItems(j - 1) = arr(i, j)
        Next
    Next
    tbSearch.SetFocus
End Sub

3.TextBox控件的Change事件

Private Sub tbSearch_Change()
    '清空ListView的所有项目
    ListView1.ListItems.Clear
    Dim i As Integer, j As Integer
    For i = 2 To UBound(arr, 1)
        If arr(i, cbbField.ListIndex + 1) Like tbSearch.Text & "*" Then
            Dim item  As ListItem
            Set item = ListView1.ListItems.Add
            item.Text = arr(i, 1)
            For j = 2 To UBound(arr, 2)
                item.SubItems(j - 1) = arr(i, j)
            Next
        End If
    Next
End Sub

以上就是利用VBA实现工作表数据的动态查询的教程，希望大家喜欢，请继续关注风君子博客。