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

zhenhao1989

要实现的效果：
点击“查找”按钮，在下表中的“物料代码”列查找模糊等于b2单元格数值的记录，如果找到唯一相似的，跳到所找的行并将整行背景色标黄。如果有好多个和B2内容相似的,请在第6行下面筛选出来不要标记颜色,然后点击"解除筛选"按钮,可以解除筛选.如果没找到跳出对话框“没有找到！” 请大佬指导,谢谢!!

opel-wong

要求还挺多，
试试：

opel-wong

代码如下：

1. Sub 查找()
   
2.     Dim arr, i As Long, mStr As String, m As Long, mRow As Long
   
3.     arr = Sheet1.UsedRange.Value
   
4.     mStr = arr(2, 2)
   
5.     For i = 8 To UBound(arr)
   
6.         If InStr(arr(i, 2), mStr) Then m = m + 1
   
7.     Next
   
8.     If m = 0 Then
   
9.         MsgBox "找不到关键词所在单元格！", 16 + 0, "提醒": End
   
10.     ElseIf m = 1 Then
    
11.         If Sheet1.AutoFilterMode = True Then Sheet1.AutoFilterMode = False
    
12.         mRow = Sheet1.Range("B8:B" & UBound(arr)).Find(mStr).Row
    
13.         Sheet1.Rows(mRow).Interior.ColorIndex = 6
    
14.         Sheet1.Range("B" & mRow).Select
    
15.     ElseIf m > 1 Then
    
16.         Sheet1.Range("A7:G7").AutoFilter Field:=1
    
17.         ActiveSheet.Range("A7:G" & UBound(arr)).AutoFilter Field:=2, Criteria1:="=*" & mStr & "*"
    
18.     Else
    
19.         End
    
20.     End If
    
21. End Sub
    
22. 
    
23. Sub 解除筛选()
    
24.     If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
    
25. End Sub

复制代码

david_jiao

opel-wong 发表于 2020-3-14 10:04
要求还挺多，
试试：

老师，收多少钱呀？

opel-wong

david_jiao 发表于 2020-3-14 10:15
老师，收多少钱呀？

随便，你看着办吧，

zhenhao1989

opel-wong 发表于 2020-3-14 10:05
代码如下：

非常感谢,非常感谢,留个方式给包烟钱吧

opel-wong

zhenhao1989 发表于 2020-3-14 10:50
非常感谢,非常感谢,留个方式给包烟钱吧

客气了，能帮到你就好，

JGY611

马克~~~~~~~~~~~~~~~~~~~~~~~~~

夏荷雨轩

opel-wong 发表于 2020-3-14 10:05
代码如下：

请问这种编辑器样式的文本是如何上传的呀？复制出来交流什么的很方便呢