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

zhenhao1989 · 发表于 2020-3-14 08:56

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

opel-wong · 发表于 2020-3-14 10:04

要求还挺多，
试试：

opel-wong · 发表于 2020-3-14 10:05

代码如下：

Sub 查找()
Dim arr, i As Long, mStr As String, m As Long, mRow As Long
arr = Sheet1.UsedRange.Value
mStr = arr(2, 2)
For i = 8 To UBound(arr)
If InStr(arr(i, 2), mStr) Then m = m + 1
Next
If m = 0 Then
MsgBox "找不到关键词所在单元格！", 16 + 0, "提醒": End
ElseIf m = 1 Then
If Sheet1.AutoFilterMode = True Then Sheet1.AutoFilterMode = False
mRow = Sheet1.Range("B8:B" & UBound(arr)).Find(mStr).Row
Sheet1.Rows(mRow).Interior.ColorIndex = 6
Sheet1.Range("B" & mRow).Select
ElseIf m > 1 Then
Sheet1.Range("A7:G7").AutoFilter Field:=1
ActiveSheet.Range("A7:G" & UBound(arr)).AutoFilter Field:=2, Criteria1:="=*" & mStr & "*"
Else
End
End If
End Sub
Sub 解除筛选()
If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
End Sub

复制代码

david_jiao · 发表于 2020-3-14 10:15

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

老师，收多少钱呀？

opel-wong · 发表于 2020-3-14 10:25

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

随便，你看着办吧，

zhenhao1989 · 发表于 2020-3-14 10:50

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

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

opel-wong · 发表于 2020-3-14 11:24

本帖最后由 opel-wong 于 2020-3-14 15:44 编辑

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

客气了，能帮到你就好，

JGY611 · 发表于 2020-5-29 16:55

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

夏荷雨轩 · 发表于 2024-5-1 00:29

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

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

		自动登录	找回密码
密码			免费注册

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

评分

评分