Excel在录入时可以匹配现有的内容,但有时还是满足不了我们的要求,以下是用Excel VBA实现的渐进式模糊搜索
作者:Excel小子-Office中国
实现的效果:
Excel 模糊 渐进式搜索操作动画教程
Excel VBA实现渐进式模糊搜索的主要代码:
先放置 一个 TextBox1 文本框 及列表框 ListBox1
然后在工作表代码中
Dim d
Dim arr, brr(0)
Dim ar
Private Sub ListBox1_Click()
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ActiveCell = Me.ListBox1.Value
Me.ListBox1.Visible = False
Me.TextBox1.Visible = False
ActiveCell.Select
End Sub
Private Sub ListBox1_GotFocus()
End Sub
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
ActiveCell = ListBox1.Value
Me.Lis