[已解决]EXCEL2003中，模糊搜索数据问题，求高人解决，万分感谢

rosedowson

Book11.rar (4.61 KB, 下载次数: 4)

2012-4-14 16:23 上传

点击文件名下载附件

想制作一个EXCEL数据查询的功能，案例如下图


在"表a"中，输入名称或者型号或者名称与型号，然后点击查询按钮，然后右边“自动生成栏中”，关联表B中的数据，自动反馈模糊搜索的结果。请问如何实现啊，求高人解决，万分感谢。

最佳答案

月排行榜 / 总排行榜

小车子

2012-4-14 17:42

跳转到最佳答案楼层

小车子

周义坤

Book11.zip (10.03 KB, 下载次数: 25)

2012-4-14 17:55 上传

点击文件名下载附件

1. Sub 查询()
   
2. Dim ar1, ar2, ar(), i&, k As Integer
   
3. k = 1
   
4. Set a = Sheets("表a")
   
5. Set b = Sheets("表b")
   
6. a.Range("D3:G65535").ClearComments
   
7. 
   
8. ar1 = a.Range("A3:B3")
   
9. ar2 = b.Range("A2").CurrentRegion
   
10. ReDim ar(1 To UBound(ar2), 1 To 4)
    
11. For i = 1 To UBound(ar2)
    
12.     If ar2(i, 1) Like "*" & ar1(1, 1) & "*" And ar2(i, 2) Like "*" & ar1(1, 2) & "*" Then
    
13.         ar(k, 1) = ar2(i, 1)
    
14.             ar(k, 2) = ar2(i, 2)
    
15.                 ar(k, 3) = ar2(i, 3)
    
16.                     ar(k, 4) = ar2(i, 4)
    
17.                         k = k + 1
    
18.     End If
    
19. Next
    
20. a.Range("D3").Resize(UBound(ar2), 4) = ar
    
21. End Sub

复制代码

rosedowson

两位师傅啊，，，，，，，，，，，一下就解决了，
VB代码求解释啊～万分感谢啊～～～～～～～～～～～～

rosedowson

小车子 发表于 2012-4-14 17:42

师傅　代码求解释啊。

rosedowson

周义坤 发表于 2012-4-14 17:55

师傅大人，代码求解释啊