模糊搜索 自动匹配

latte2011

如题，如何实现在sheet1的a列输入sheet2 a或b列的任意字符就能在sheet1匹配相应的信息。 模糊搜索 自动匹配.rar (22.66 KB, 下载次数: 84)

2012-4-20 16:41 上传

点击文件名下载附件
模糊搜索

zjdh

模糊搜索 自动匹配.rar (20.11 KB, 下载次数: 206)

2012-4-23 08:24 上传

点击文件名下载附件

latte2011

zjdh 发表于 2012-4-23 08:25

非常感谢zjdh~~

latte2011

zjdh 发表于 2012-4-23 08:25

还是有一个问题，和之前你分享的文件一样。就是enter listbox里面空行，就会出现错误。这个问题有没有办法完善一下。谢谢。

zjdh

latte2011 发表于 2012-4-23 17:44
还是有一个问题，和之前你分享的文件一样。就是enter listbox里面空行，就会出现错误。这个问题有没有办法 ...

这容易，只是没想到会有这样操作的

1. Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
2.     Dim f%
   
3.     If KeyCode = 13 Then      
   
4.         ActiveWorkbook.ActiveSheet.Unprotect "123"
   
5.         If ListBox1.ListIndex <> -1 Then
   
6.             f = Me.ListBox1.List(Me.ListBox1.ListIndex, 2)
   
7.             If f <> 0 Then
   
8.             ActiveCell(1, 1).Value = Arry(f, 1)
   
9.             ActiveCell(1, 2).Value = Arry(f, 2)
   
10.             ActiveCell(1, 3).Value = Arry(f, 3)
    
11.             ActiveCell(1, 4).Value = Arry(f, 4)
    
12.             ActiveCell(1, 5).Value = Arry(f, 5)
    
13.             ActiveCell(1, 6).Value = Arry(f, 6)
    
14.             Me.ListBox1.Clear
    
15.             Me.TextBox1 = ""
    
16.             Me.ListBox1.Visible = False
    
17.             Me.TextBox1.Visible = False
    
18.             KeyCode = 0
    
19.             ActiveCell.Offset(1, 0).Select
    
20.             End If
    
21.         End If
    
22.         ActiveWorkbook.ActiveSheet.Protect "123"
    
23.     End If
    
24.     If KeyCode = 27 Then      
    
25.         TextBox1.Visible = False
    
26.         ListBox1.Visible = False
    
27.     End If
    
28. End Sub

复制代码

！

latte2011

太感谢了~问题算是解决了。折腾了两星期了。{:soso_e183:}{:soso_e179:}