搜索关键字模糊查询

朱小清

大佬们，如何如图所示，搜索关键字查询内容，我写了一个代码，但是不知道哪里有问题，麻烦修改一下，谢谢。

xd3210

没有JS代码呀

朱小清

xd3210 发表于 2024-9-5 17:30
没有JS代码呀

大佬，在sheet里面呀。

朱小清

朱小清 发表于 2024-9-6 08:15
大佬，在sheet里面呀。

Option Explicit
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ActiveCell = ListBoxl.Value
ListBoxl.Clear
ListBoxl.Visible = False
TextBoxl.Value = ""
TextBoxl.Visible = False

End Sub

Private Sub TextBoxl_Change()
Dim Search_Text As String, i As Integer, Data As Variant, k As Integer
If TextBoxl.Value <> "" Then
k = 0
Data = Range("C1").CurrentRegion
For i = 1 To Len(TextBoxl.Value)
Search_Text = Search_Text & Mid(TextBoxl.Value, i, 1) & "*"
Next i
Search Text = "*" & Search_Text
With ListBoxl
.Clear
Visible = True
.Top = TextBoxl.Top
.Left = TextBoxl.Left + TextBoxl.Width
.Width = 100
For i = 2 To UBound(Data)
If Data(i, 1) Like Search_Text Then
.AddItem Data(i, 2)
k = k + 1
End If
Next
.Height = TextBoxl.Height * k
End With
Else
ListBoxl.Visible = False
ListBoxl.Clear
End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
ListBoxl.Visible = False
If Intersect(Target, Range("Al:A15")) Is Nothing Then
With TextBoxl
.Visible = False
.Value = ""
End With
Else
With TextBoxl
.Value = ""
.Visible = True
.Activate
.Left = Target.Left
.Top = Target.Top
.Height = Target.Height + 3
.Width = Target.Width + 2
End With
End If
End Sub

zxnwda

抽空测试了一下，你这代码是从别处抄来的吧，你把数字“1”抄成了字母“L”主要问题有2个。
一是TextBoxl应该改成TextBox1，二是ListBoxl应该改成ListBox1。

zxnwda

还有一个问题是
With ListBoxl
.Clear
Visible = True
.Top = TextBoxl.Top
这里应该改成
With ListBoxl
.Clear
.Visible = True
.Top = TextBoxl.Top
你要用这个代码的话，还需要在sheet1里面画一个文本框（TextBox）和列表框（ListBox），否则无法使用

zxnwda

zxnwda 发表于 2024-9-10 16:50
抽空测试了一下，你这代码是从别处抄来的吧，你把数字“1”抄成了字母“L”主要问题有2个。
一是TextBoxl ...

另外你还要自己画一个文本框和列表框，代码里面让列表框显示的代码漏了一个点
Visible = True改成
.Visible = True