[已解决]窗体上关键字模糊查询语句求助！

军3008

双击黄色列的任一单元格，出现窗体，在窗体搜索框中输入单元名称或者类别关键字，自动筛选后双击该名称输入到指定单元格！！求助在该代码中插入查询语句，谢谢！附件可下载测试

1. 
   
2. Dim my()
   
3. Dim arrRow()    As Long
   
4. Private Sub CommandButton1_Click() '
   
5.     Dim endrow As Long
   
6.     If Me.TextBox1 = "" Or Me.TextBox2 = "" Then MsgBox "代码,名称不能为空": Exit Sub
   
7.     Set T1 = Me.TextBox1: Set T2 = Me.TextBox2
   
8.     If Application.CountIf(Sheet4.Range("B:B"), T2) > 0 Then
   
9.         MsgBox T2 & "----此单位已存在!": Exit Sub
   
10.     End If
    
11.    
    
12.     With Sheet4
    
13.         endrow = .Cells(.Rows.Count, "A").End(xlUp).Row
    
14.         endrow = endrow + 1
    
15.         .Cells(endrow, "A") = T1
    
16.         .Cells(endrow, "B") = T2
    
17.     End With
    
18.     Me.TextBox1 = "": Me.TextBox2 = ""
    
19.     Call UserForm_Initialize
    
20.     MsgBox "增加成功"
    
21. End Sub
    
22. 
    
23. Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    
24.     If ListBox1.ListIndex <= 0 Then Exit Sub
    
25.     rtnRow = arrRow(ListBox1.ListIndex)
    
26.     Unload Me
    
27. End Sub
    
28. Private Sub UserForm_Initialize()
    
29.     Call SetListBox
    
30. End Sub
    
31. Sub SetListBox()
    
32.     Dim wIdx       As Long
    
33.     Dim endrow As Long
    
34.     Dim temp()
    
35.     Dim i As Long, j As Long
    
36.     Erase my
    
37.     Erase arrRow
    
38.     ListBox1.Clear
    
39.     w = ""
    
40.     With ListBox1
    
41.         .ColumnCount = 2 '设置列数
    
42.         For j = 10 To 11
    
43.             w = w & Sheet4.Cells(1, j).Width & ";"
    
44.         Next
    
45.         w = Left(w, Len(w) - 1)
    
46.         .ColumnWidths = w
    
47.         .ColumnHeads = False '是否显示列标题
    
48.         a = Sheet4.Range("A" & Rows.Count).End(xlUp).Row
    
49.         If a < 2 Then a = 2
    
50.         ReDim Preserve my(1 To 2, 1 To 1)
    
51.         my(1, 1) = Sheet4.Range("A1") '
    
52.         my(2, 1) = Sheet4.Range("B1") '
    
53.         b = 1
    
54.         For i = 2 To a
    
55.             For j = 10 To 11
    
56.                 b = b + 1
    
57.                 ReDim Preserve my(1 To 2, 1 To b)
    
58.                 my(1, b) = Sheet4.Range("A" & i)
    
59.                 my(2, b) = Sheet4.Range("B" & i)
    
60.                 wIdx = wIdx + 1
    
61.                 ReDim Preserve arrRow(1 To wIdx)
    
62.                 arrRow(wIdx) = i
    
63.                 Exit For
    
64.             Next
    
65.         Next
    
66.         ReDim temp(1 To b, 1 To 2)
    
67.         For i = 1 To b
    
68.             For j = 1 To 2
    
69.                 temp(i, j) = my(j, i)
    
70.             Next
    
71.         Next
    
72.         ListBox1.List() = temp
    
73.     End With
    
74. End Sub
    
75. 
    

复制代码

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2021-12-22 20:42

附件请测试，可以输入*号作为通配符进行模糊检索。

跳转到最佳答案楼层

大灰狼1976

附件请测试，可以输入*号作为通配符进行模糊检索。