[已解决]用VBA实现数据的筛选

guoshao802

想实现的功能如下：
以“查询”表为查询窗口，以“街道”表和“学校”表为数据源，分别设“街道”表中的“街路名称”和“学校”表中的“名称”为查询主键，通过查询主键顺带出其他信息，结果在“查询”表中显示。
例如：查询“张三大街”，查询结果就是张三这一行的所有数据。查询“张三学校”就是张三学校这一行的所有数据。
如果查询数据的主键一直，就会显示多条数据。
请vba大神们帮忙实现下，不胜感激。

最佳答案

月排行榜 / 总排行榜

dsmch

2014-4-18 17:25

b1输入查询条件，自动产生结果

跳转到最佳答案楼层

dsmch

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Address = "$B$1" Then
   
3.     Range("a1").CurrentRegion.Offset(1, 0).Clear
   
4.     zf = Target.Value: s = 1
   
5.     For i = 2 To 3
   
6.         arr = Sheets(i).Range("a1").CurrentRegion
   
7.         For j = 3 To UBound(arr)
   
8.             If arr(j, 2) Like "*" & zf & "*" Then
   
9.                 s = s + 1
   
10.                 Sheets(i).Cells(j, 1).Resize(1, UBound(arr, 2)).Copy Cells(s, 1)
    
11.             End If
    
12.         Next
    
13.     Next
    
14. End If
    
15. End Sub
    

复制代码

dsmch

b1输入查询条件，自动产生结果

guoshao802

dsmch 发表于 2014-4-18 17:25
b1输入查询条件，自动产生结果

是这个意思，但是我再附件里面怎么查看不到你的宏代码？

guoshao802

dsmch 发表于 2014-4-18 17:23

这个全部的代码吗？

guoshao802

dsmch 发表于 2014-4-18 17:23

请问，查找出的结果，能把表2或表3中的表头带上吗？即：序号、名称、地址、负责人等。

haryzbs

学习中。。。