|
zll19860913 发表于 2011-9-7 16:38
回复 zjdh 的帖子
zjdh 老师,如果想要再增加3个关键字查询呢???
按如下修改,就可以任意检索分类1~分类3的字段,无论大小写都可以啦!
Private Sub TextBox1_Change()
Dim ITM, arr, i%, j%, Y$
Me.ListView1.ListItems.Clear
With Sheets("资料")
arr = .Range("B3:T" & .[B65536].End(3).Row)
End With
For i = 1 To UBound(arr)
Y = UCase(arr(i, 1)) & " " & UCase(arr(i, 2)) & " " & UCase(arr(i, 3))
If Y Like "*" & UCase(Me.TextBox1) & "*" Then
Set ITM = ListView1.ListItems.Add()
ITM.Text = arr(i, 1)
For j = 1 To 18
ITM.SubItems(j) = arr(i, j + 1)
Next
End If
Next
Label2 = "共发现数据:" & ListView1.ListItems.Count & " 条"
End Sub
|
|