用VBA实现多条件组合实时查询，请大神指点

injetygw

想实现在黄色文本框中输入关键字后进行筛选，可以实现多条件模糊筛选，请大神指点，VBA或公式都可以，我是个小白，请谅解，谢谢各位大神

3190496160

多条件查询，就只能用按钮了

3190496160

Sub 筛选()
Application.ScreenUpdating = False
AutoFilterMode = False
Rows(1).AutoFilter
r = Cells(Rows.Count, 2).End(xlUp).Row
If ActiveSheet.TextBox1.Text <> "" Then
    Range("a1:e" & r).AutoFilter Field:=1, Criteria1:="*" & ActiveSheet.TextBox1.Text & "*", Operator:=xlAnd
End If
If ActiveSheet.TextBox2.Text <> "" Then
    Range("a1:e" & r).AutoFilter Field:=2, Criteria1:="*" & ActiveSheet.TextBox2.Text & "*", Operator:=xlAnd
End If
If ActiveSheet.TextBox3.Text <> "" Then
    Range("a1:e" & r).AutoFilter Field:=3, Criteria1:="*" & ActiveSheet.TextBox3.Text & "*", Operator:=xlAnd
End If
If ActiveSheet.TextBox4.Text <> "" Then
    Range("a1:e" & r).AutoFilter Field:=4, Criteria1:="*" & ActiveSheet.TextBox4.Text & "*", Operator:=xlAnd
End If
If ActiveSheet.TextBox5.Text <> "" Then
    Range("a1:e" & r).AutoFilter Field:=5, Criteria1:="*" & ActiveSheet.TextBox5.Text & "*", Operator:=xlAnd
End If
Application.ScreenUpdating = True
End Sub

3190496160

测试.rar (23.14 KB, 下载次数: 17)

2024-8-4 07:32 上传

点击文件名下载附件

injetygw

3190496160 发表于 2024-8-4 07:32

感谢大神，真的是厉害，需要多多向你学习，辛苦了！

3190496160

injetygw 发表于 2024-8-4 21:18
感谢大神，真的是厉害，需要多多向你学习，辛苦了！

有用就送朵小花呀

injetygw

3190496160 发表于 2024-8-4 07:32

大神，这个能在旁边再加一个点击一下就清除筛选条件，点击回到默认条件下显示全部内容的功能吗？