[已解决]求助-EXCEL中的搜索按钮建立

woodliu

一个EXCEL中表中，有10个工作簿，想建立一个搜索按钮，可以搜索整个工作表，并显示关键字所在行的全部内容。可以做到吗，求助，有报酬。

最佳答案

月排行榜 / 总排行榜

dsmch

2014-3-22 13:40

………………

跳转到最佳答案楼层

dsmch

表和簿混淆不清，还是上传附件说明问题吧

woodliu

dsmch 发表于 2014-3-20 20:13
表和簿混淆不清，还是上传附件说明问题吧

请查收附件

woodliu

woodliu 发表于 2014-3-22 12:57
请查收附件

请查收 库存表.zip (458.68 KB, 下载次数: 26)

2014-3-22 12:57 上传

点击文件名下载附件
库存表

dsmch

1. Sub Macro1()
   
2. Dim arr, gjz, i&, j&, s&, n&
   
3. gjz = [a8]: s = 10
   
4. n = 100 '设定搜索条数，避免模糊查找结果太多
   
5. Range("a11:j2000").ClearContents
   
6. For i = 2 To Sheets.Count
   
7.     arr = Sheets(i).Range("a1").CurrentRegion
   
8.     For j = 2 To UBound(arr)
   
9.         If arr(j, 2) Like "*" & gjz & "*" Then
   
10.             s = s + 1
    
11.             Sheets(i).Cells(j, 1).Resize(1, 8).Copy Cells(s, 4)
    
12.         End If
    
13.         If s > n Then Exit Sub
    
14.     Next
    
15. Next
    
16. End Sub
    

复制代码

dsmch

………………

woodliu

哥，您太厉害了！！！！！太谢谢您了！！！

dsmch

1. Sub Macro1()
   
2. Dim arr, gjz, i&, j&, s&, n&
   
3. gjz = [a8]: s = 10 '关键字a8,查询结果放在10行以后
   
4. n = 100 '设定搜索条数，避免模糊查找结果太多
   
5. Range("a11:j2000").ClearContents '清空方便放入查询结果
   
6. For i = 2 To Sheets.Count '从第二个工作表到最后一个工作表
   
7.     arr = Sheets(i).Range("a1").CurrentRegion '单元格赋值数组
   
8.     For j = 2 To UBound(arr) '数组循环
   
9.         If arr(j, 2) Like "*" & gjz & "*" Then '如果数组第二列包含关键字则
   
10.             s = s + 1 '初始行+1
    
11.             Sheets(i).Cells(j, 1).Resize(1, 8).Copy Cells(s, 4) '复制结果到指定行
    
12.         End If
    
13.         If s > n Then Exit Sub '如果查询结果大于n,退出程序。如关键字为1，可能结果过多
    
14.     Next
    
15. Next
    
16. End Sub
    
17. 
    
18. alt+f8 查看代码

复制代码

woodliu

老师，还有个表格，是希望增加两个搜索按钮的。也麻烦您弄一下。

woodliu

另外，第一次请教的库存表，有些更新，也就您再做一次，还是希望两个表中都有一个按钮比较直观。拜托了。