[已解决]求：查询代码？

fxgg72

如题，见附件。
谢谢各位大侠老师的帮助！！！

求：查询代码？.rar (10.9 KB, 下载次数: 7)

2017-5-21 10:38 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

france723

2017-5-21 18:34

france723 发表于 2017-5-21 18:14
看你是老会员了，应该有自己的学习能力，毕竟这是个学习网站。给你思路，不懂可以问。

详细代码如下。（希望贴主学会自主思考，有所收获）

1. Sub aaa()
   
2. Dim i, y，a
   
3. a = Sheets("查询页面").[c5]
   
4. For i = 1 To ThisWorkbook.Sheets.Count
   
5.     If Sheets(i).Name Like "#" Then
   
6.          Sheets(i).Cells.Interior.ColorIndex = 0  '所以单元格底色清空
   
7.          y = Sheets(i).Range("b65536").End(3).Row
   
8.          For j = 17 To y
   
9.             If Sheets(i).Cells(j, 2) = a Then     '如果符合搜索量
   
10.                 Sheets(i).Cells(j, 2).Interior.ColorIndex = 26  '填色
    
11.             End If
    
12.          Next j
    
13.     End If
    
14. Next
    
15. End Sub
    

复制代码

跳转到最佳答案楼层

fxgg72

老师们帮帮忙啊！！！
非常感谢！

france723

fxgg72 发表于 2017-5-21 18:03
老师们帮帮忙啊！！！
非常感谢！

看你是老会员了，应该有自己的学习能力，毕竟这是个学习网站。给你思路，不懂可以问。

1. Sub aaa()   '进入所有工作表执行宏
   
2. Dim i
   
3. a = [c5]  '确定搜索量
   
4. For i = 1 To ThisWorkbook.Sheets.Count '历遍所有工作表
   
5.     If Sheets(i).Name Like "#" Then  '如果工作表名称是数字
   
6.         '执行搜索然后填色（代码自己思考）
   
7.     End If
   
8. Next
   
9. End Sub

复制代码

france723

france723 发表于 2017-5-21 18:14
看你是老会员了，应该有自己的学习能力，毕竟这是个学习网站。给你思路，不懂可以问。

详细代码如下。（希望贴主学会自主思考，有所收获）

1. Sub aaa()
   
2. Dim i, y，a
   
3. a = Sheets("查询页面").[c5]
   
4. For i = 1 To ThisWorkbook.Sheets.Count
   
5.     If Sheets(i).Name Like "#" Then
   
6.          Sheets(i).Cells.Interior.ColorIndex = 0  '所以单元格底色清空
   
7.          y = Sheets(i).Range("b65536").End(3).Row
   
8.          For j = 17 To y
   
9.             If Sheets(i).Cells(j, 2) = a Then     '如果符合搜索量
   
10.                 Sheets(i).Cells(j, 2).Interior.ColorIndex = 26  '填色
    
11.             End If
    
12.          Next j
    
13.     End If
    
14. Next
    
15. End Sub
    

复制代码

fxgg72

france723 发表于 2017-5-21 18:34
详细代码如下。（希望贴主学会自主思考，有所收获）

谢谢老师！
第2行代码中有个“，”应该改成“,”才能用。
非常感谢帮助！！！

france723

fxgg72 发表于 2017-5-21 20:54
谢谢老师！
第2行代码中有个“，”应该改成“,”才能用。
非常感谢帮助！！！

哈哈，我操作系统是英文的， 你多理解

fxgg72

france723 发表于 2017-5-21 21:25
哈哈，我操作系统是英文的， 你多理解

老师：您好！
    您的“查询并定位”的代码确实是很有效的，但我在每个工作表中使用了行与列的高亮显示代码，定位填充的颜色就会没了，怎么才会不使定位填充的颜色去掉？
    就是查询并定位填充的颜色在，行与列高亮显示的颜色也有，互不影响。
    谢谢！


PO#查询并定位代码？.rar (26.4 KB, 下载次数: 2)

2017-5-22 10:53 上传

点击文件名下载附件