如何用vba根据条件查找到目标数据并标记颜色

zhenhao1989

要实现的效果：
点击“查找”按钮，在下表中的“物料代码”列查找模糊等于b2单元格数值的记录，如果找到，跳到所找的行并将整行背景色标黄。如果没找到跳出对话框“没有找到！” 请大佬指导,谢谢!!

ggmmlol

基础功能直接就提供有这种问题的解决方法，用不着VBA的。
数据——筛选——文本筛选——包含

koala219

Sub ChaXun()
Dim STR, MK, i
STR = Range("b2")
MK = Range("b7").End(4).Row
Range("A" & 8 & ":G" & MK).Interior.Color = 100000
For i = 8 To MK
  If InStr(Range("b" & i), STR) Then Range("A" & i & ":G" & i).Interior.Color = 255
Next i
End Sub

excel海

简单点就这样
Sub Test()
    Dim i, j, k, arr, brr, x, y
    Dim rng As Range, r As Range
   Sheet1.Activate
   Cells.Interior.ColorIndex = 0
   Set rng = Range("b8:b21")
   Set r = rng.Find(what:=Cells(2, 2).Value, lookat:=xlPart)
   If r Is Nothing Then MsgBox "查无此数据": Exit Sub
   r.Select
   r.EntireRow.Interior.Color = vbYellow
End Sub

zhenhao1989

ggmmlol 发表于 2020-3-13 15:50
基础功能直接就提供有这种问题的解决方法，用不着VBA的。
数据——筛选——文本筛选——包含

你好,因为这个数据有点多,需要找出一个就标个颜色代表找到了,如果用筛选的话时间有点长,我现在的操作方式是直接ALT+F 查找,查找到后再手动标记颜色.如果用VBA的可以节约一个手动标颜色的时间,这个时间就节约很多了.

shenjianrong163

1. Sub test()
   
2.     Dim i, k, num, arr
   
3.     With Sheets("Sheet1")
   
4.         num = .[B2].Value
   
5.         arr = .UsedRange
   
6.         For i = 8 To UBound(arr)
   
7.                 If InStr(arr(i, 2), num) > 0 Then
   
8.                     k = 1
   
9.                     .Range(Cells(i, 1), Cells(i, UBound(arr, 2))).Interior.Color = vbYellow
   
10.                     .Range(Cells(i, 1), Cells(i, UBound(arr, 2))).Select
    
11.                     Exit Sub
    
12.                 End If
    
13.         Next
    
14.         If k = 0 Then MsgBox "没有找到！"
    
15.     End With
    
16. End Sub

复制代码

shenjianrong163

请参考附件：





料表.rar (10.07 KB, 下载次数: 11)

2020-3-13 16:07 上传

点击文件名下载附件
1

ggmmlol

zhenhao1989 发表于 2020-3-13 16:02
你好,因为这个数据有点多,需要找出一个就标个颜色代表找到了,如果用筛选的话时间有点长,我现在的操作方式 ...

也可以“查找”办法解决：

先“查找全部”，之后按Ctrl + A键就可以选中对话框的列表中全部符合条件的单元格，关闭对话框，然后填充选中的单元格，再按填充格式做排序（或筛选），最后对筛选的结果（或排序后聚集在一起的结果）做整行填充。

当然，最好的办法是自动筛选或高级筛选。高级筛选适用于多个不同的关键字都要突出显示的情况。

YZC51

录个宏
Sub Macro1()
    Range("B2").NumberFormatLocal = "@"
    zf = [B2]
    Range("B7:B21").Select
    Selection.AutoFilter
    ActiveSheet.Range("$B$7:$B$21").AutoFilter Field:=1, Criteria1:= _
        "=*" & zf & "*", Operator:=xlAnd
End Sub

zhenhao1989

shenjianrong163 发表于 2020-3-13 16:08
请参考附件：

谢谢大神,但现在有个新的请求,不知能否实现,就是当"物料代码"那列有多个内容和B2相似时,请把它们筛选出来而不要标颜色. 再就是在查找边上加个解除筛选的按扭.   主要目的就是我们查找时,有多个相似的时候,筛选出来我们手动标色,然后按解除筛选好接着查找. 谢谢