【VBA】判断，多条件筛选问题

kimpvp

黄色填充的四个格子，分别填上自己下一格子的信息，点一下右边的按钮就可以筛选出结果

打开vba可以看到我的代码。

我的代码有一个问题就是，只能四个黄色格子必须填上，才能筛选成功。

如果只填中间两个格子是筛选不了，因为我没有写到这个IF条件。

但是如果按我的代码来写，条件太多了。

想看看各位大佬有什么好的方法，实现，只要其中一个黄色格子不为空就可以筛选成功，麻烦各位了。

（另：可不可以实现如果筛选没有这个结果提示“没有此项”？）

看见星光

Sub 按钮1_Click()
    Dim r, i&, k&, rng As Range
    On Error Resume Next
    ReDim r(1 To 4, 1 To 2)
    For i = 1 To 4
        If Len(Cells(1, i)) Then k = k + 1: r(k, 1) = i: r(k, 2) = Cells(1, i)
    Next
    ActiveSheet.Range("A2").AutoFilter
    l = Cells(Rows.Count, 1).End(3).Row
    For i = 1 To 4
        If r(i, 1) = "" Then Exit Sub
        Range("a2:d" & l).AutoFilter Field:=r(i, 1), Criteria1:=r(i, 2)
        a = Range("a3:a" & l).SpecialCells(xlCellTypeVisible)
        If Err Then MsgBox "未找到单元格": Exit Sub
    Next
End Sub

看见星光

判断多条件筛选.rar (20.51 KB, 下载次数: 16)

2018-4-7 07:38 上传

点击文件名下载附件

olin12345

看见星光 发表于 2018-4-7 07:37
Sub 按钮1_Click()
    Dim r, i&, k&, rng As Range
    On Error Resume Next

这个功能挺好用的，谢谢大神。

kimpvp

看见星光 发表于 2018-4-7 07:37
Sub 按钮1_Click()
    Dim r, i&, k&, rng As Range
    On Error Resume Next

完美！谢谢大佬