[已解决]请帮忙写个代码吧（关于查找高亮显示）

WMJQWERR

各位老师 ：想用VBA实现点击查找按钮宏  能查找B列单元格内的内容（模糊查找），并高亮显示该单元格或者该行（有内容的部分），谢谢
材料表.rar (11.48 KB, 下载次数: 8)

2017-8-18 20:24 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

chart888

2017-8-18 21:59

1. Sub a()
   
2. Dim sInt, Str, i%, r%
   
3. Cells.Interior.ColorIndex = 0
   
4. sInt = Application.InputBox(Prompt:="请输入需要查询的内容")
   
5. If Len(Trim(sInt)) > 0 Then
   
6.     Str = sInt
   
7. Else
   
8.     MsgBox Prompt:="没有输入有效的内容"
   
9.     Exit Sub
   
10. End If
    
11. r = Cells(Rows.Count, 2).End(3).Row
    
12. For i = 1 To r
    
13.     If InStr(Cells(i, 2), Str) Then
    
14.         Cells(i, 1).Resize(1, 6).Interior.ColorIndex = 6
    
15.     End If
    
16. Next
    
17. End Sub

复制代码

跳转到最佳答案楼层

这儿有肥猫

是这个意思？

chart888

1. Sub a()
   
2. Dim sInt, Str, i%, r%
   
3. Cells.Interior.ColorIndex = 0
   
4. sInt = Application.InputBox(Prompt:="请输入需要查询的内容")
   
5. If Len(Trim(sInt)) > 0 Then
   
6.     Str = sInt
   
7. Else
   
8.     MsgBox Prompt:="没有输入有效的内容"
   
9.     Exit Sub
   
10. End If
    
11. r = Cells(Rows.Count, 2).End(3).Row
    
12. For i = 1 To r
    
13.     If InStr(Cells(i, 2), Str) Then
    
14.         Cells(i, 1).Resize(1, 6).Interior.ColorIndex = 6
    
15.     End If
    
16. Next
    
17. End Sub

复制代码

WMJQWERR

这儿有肥猫 发表于 2017-8-18 21:00
是这个意思？

谢谢，基本是这个意思，不过如果不输入查找内容直接点确定，会把所有的内容都涂色呢

WMJQWERR

chart888 发表于 2017-8-18 21:59

谢谢，就是这样的 ，多谢多谢！！