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

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

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

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