分享: 利用listview制作模糊查询窗体 - 更新

goldowl2011

再顶，谢谢！收藏并学习。

mimiboby

留下个记号，很实用

huazai688

不错，正是我想要的，一直苦苦寻找的

骑着蜗牛去兜风

很强大，学习了

roc.jame

学习了 谢谢

weng21509

其实用函数 Search 也可以实现模糊查询

Private Sub TextBox1_Change()
    Dim rw As String: rw = Sheet1.Range("A65536").End(xlUp).Row
    Dim total As String: total = 0
    Dim I&, SJ$
   
    If TextBox1.Value = "" Then '   如果文本框内容为空,导入所有数据
        ListView1.ListItems.Clear    '   清除所有内容
        For I = 2 To rw
            Set ITM = ListView1.ListItems.Add()
            ITM.Text = Sheet1.Cells(I, 1)
            ITM.SubItems(1) = Sheet1.Cells(I, 2)
            ITM.SubItems(2) = Sheet1.Cells(I, 3)
            ITM.SubItems(3) = Format(Sheet1.Cells(I, 4), "#,##0")
                total = total + Sheet1.Cells(I, 4).Value
        Next I
        Label2.Caption = "共找到 " & ListView1.ListItems.Count & " 条记录"
        Label3.Caption = "总计: " & Format(total, "#,##0")
        TextBox1.SetFocus
        Exit Sub
    Else
        ListView1.ListItems.Clear   '   清除所有内容
        For I = 2 To rw
            SJ = Sheet1.Range("A" & I) & Sheet1.Range("B" & I) & Sheet1.Range("C" & I)
            On Error Resume Next
            If Application.WorksheetFunction.Search(Me.TextBox1, SJ) = 0 Then
            Else
                Set ITM = ListView1.ListItems.Add()
                ITM.Text = Sheet1.Cells(I, 1)
                ITM.SubItems(1) = Sheet1.Cells(I, 2)
                ITM.SubItems(2) = Sheet1.Cells(I, 3)
                ITM.SubItems(3) = Format(Sheet1.Cells(I, 4), "#,##0")
                    total = total + Sheet1.Cells(I, 4).Value
            End If
        Next
        Label2.Caption = "共找到 " & ListView1.ListItems.Count & " 条记录"
        Label3.Caption = "总计: " & Format(total, "#,##0")
        TextBox1.SetFocus
    End If
End Sub

chghea2000

学习了，正在实践中~！...

92072026

{:soso_e163:}谢谢分享

xp_tao

确实非常有用..谢谢

win2009

留个脚印，以后再学