求助:查询功能

lyq110808

为了实现按“查询”表格中的cells(3,2)名字进行查询，使“劳保领用"表格中的相关记录复制到”查询“表来，可是我编写的程序是不可以循环实现的，请高手指点，谢谢！


Private Sub cmmd_Click()
Dim i, j, k As Integer, rng As Range, b As String
i = Worksheets("劳保领用").Range("a65536").End(xlUp)
k = Worksheets("查询").Range("a65536").End(xlUp).Offset(1, 0)
b = Worksheets("查询").Cells(3, 2).Value
Set rng = Worksheets("查询").Range("a65536").End(xlUp).Offset(1, 0)
For j = 2 To i
If Worksheets("劳保领用").Cells(j, "b").Value = b Then
Worksheets("劳保领用").Cells(j, 1).Resize(1, 7).Copy rng
k = k + 1
End If
Next
End Sub

guoqingfeng

没有附件，没有答案。

lyq110808

现增加附件如下

antlia

lyq110808 发表于 2014-1-23 16:02
现增加附件如下

附件里上面是用公式完成基本信息的查询，即当输入姓名自动查询到基本信息。
这样下面的劳保领用信息使用按钮查询就不合适，不统一。因此改用工作表事件完成，当姓名输入完成时，下面的信息也立刻查询完成。在查询表中添加下面的worksheet_change 事件代码

1. 
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3. 
   
4.     If Target.Address <> "$B$3" Then Exit Sub
   
5.    
   
6.     Application.EnableEvents = False
   
7.    
   
8.     Dim arr, tarr(), i%, j%, n%, xrow%
   
9.     n = 1
   
10.     arr = Sheets("劳保领用").[a1].CurrentRegion
    
11. 
    
12.     ReDim tarr(1 To UBound(arr), 1 To UBound(arr, 2))
    
13. 
    
14.     With Sheets("查询")
    
15.         xrow = .Cells(.Rows.Count, 1).End(xlUp).Row
    
16.         
    
17.         For i = 1 To UBound(arr)
    
18.             If arr(i, 2) = .Cells(3, 2).Value Then
    
19.                
    
20.                 For j = 1 To UBound(arr, 2)
    
21.                     tarr(n, j) = arr(i, j)
    
22.                 Next
    
23.                 n = n + 1
    
24.             End If
    
25.         Next
    
26.         If xrow > 8 Then .Range(.Cells(8, "a"), .Cells(xrow, "g")).ClearContents
    
27.         
    
28.         .Cells(8, "a").Resize(n, UBound(tarr, 2)) = tarr
    
29.     End With
    
30. 
    
31. 
    
32.     Application.EnableEvents = True
    
33. End Sub

复制代码

antlia

antlia 发表于 2014-1-24 11:32
附件里上面是用公式完成基本信息的查询，即当输入姓名自动查询到基本信息。
这样下面的劳保领用信息使用 ...

请参考附件

lyq110808

antlia 发表于 2014-1-24 11:33
请参考附件

非常感谢！

lyq110808

antlia 发表于 2014-1-24 11:33
请参考附件

想送你鲜花的，可以不知道怎么弄的？？

lyq110808

antlia 发表于 2014-1-24 11:32
附件里上面是用公式完成基本信息的查询，即当输入姓名自动查询到基本信息。
这样下面的劳保领用信息使用 ...

For j = 1 To UBound(arr, 2)
           tarr(n, j) = arr(i, j)

看不懂这里tarr(n,j)中的n前面不是赋值是n=1吗？

antlia

lyq110808 发表于 2014-1-24 16:17
For j = 1 To UBound(arr, 2)
           tarr(n, j) = arr(i, j)

送花是点评分。

n 是记录tarr 这个数组有多少有效记录的，如果查到有效的记录，就把该行数据写入tarr 数组的第n 行中。
n 的初值是1，代表从第一行开始写，每写一行就会执行n=n+1
这样当循环结束时，tarr 里面的有效数据就是n行。

lyq110808

antlia 发表于 2014-1-24 11:33
请参考附件

antlia你好，我想再请教一下你，为什么这附件的worksheet.change事件突然就不响应了？