折磨了我三天的多条件筛选问题. 新的解决思路.

ykytom

cgx5871 发表于 2017-11-22 18:46
我明白了,  应该是有空单元格的时候: 一. B1:B5, 中间有单元格为空时出错.
还有一个问题就是:
二. myr  ...

应该不是这个原因，我上面有Sheets("sheet1").AutoFilterMode = FalseIf Sheets("sheet1").FilterMode = True Then Sheets("sheet1").ShowAllData
这两名就是取消筛选的。可能是B列没有7行
If myr < 7 Then Exit Sub，程序就不会执行，是你说空的就不执行

ykytom

cgx5871 发表于 2017-11-22 18:46
我明白了,  应该是有空单元格的时候: .
一. B1:B5, 中间有单元格为空时出错.
还有一个问题就是:

B1：B5为空我没考虑，稍微改下就行了

ykytom

cgx5871 发表于 2017-11-22 18:46
我明白了,  应该是有空单元格的时候: .
一. B1:B5, 中间有单元格为空时出错.
还有一个问题就是:

             If InStr(brr(i, 1), arr(j, 1)) > 0 Then
                    If d.exists(brr(i, 1)) = False Then d(brr(i, 1)) = "": Exit For
改为
            If arr(j, 1) <> "" Then
                If InStr(brr(i, 1), arr(j, 1)) > 0 Then
                    If d.exists(brr(i, 1)) = False Then d(brr(i, 1)) = "": Exit For
                End If
            End If

ykytom

Sheets("sheet1").AutoFilterMode = False
If Sheets("sheet1").FilterMode = True Then Sheets("sheet1").ShowAllData
这两句改为
ActiveSheet.AutoFilterMode = False
If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData
适用性更好，我也在学习

cgx5871

ykytom 发表于 2017-11-22 19:04
If InStr(brr(i, 1), arr(j, 1)) > 0 Then
                    If d.exists(brr(i, 1)) = ...

基本上完美了~  谢谢.

突然觉得, B1:B5的模式,  是不科学的.
应该设计成类似网页搜索:
1. 综合在一个单元格, 作为搜索框.   
2. 输入的关健字, 空格分隔.  支持连接符&&之类.
这样才是真正的完美.

cgx5871

ykytom 发表于 2017-11-22 19:34
Sheets("sheet1").AutoFilterMode = False
If Sheets("sheet1").FilterMode = True Then Sheets("sheet1") ...

ShownAllData, 又还要筛选,  感觉有点繁复.
[b7].End(xlUp).Row, 改用CurrentRegion  或  usedrange 来定位最后一格,  可以无视当前筛选状态.

grf1973

给你换个思路。多条件的用sql比较方便。

1. Sub 筛选()
   
2.     Set cnn = CreateObject("adodb.connection")
   
3.     cnn.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.FullName
   
4.     For i = 1 To 5
   
5.         If Cells(i, 2) <> "" Then
   
6.             tj = tj & " or 人名 like '%" & Cells(i, 2) & "%'"
   
7.         End If
   
8.     Next
   
9.     If tj <> "" Then tj = "where 人名 like " & Mid(tj, 12)   '筛选条件：where 人名 like  '%张%' or 人名 like '%李%' 。。。。。
   
10.      
    
11.     Sql = "select 人名 from [sheet1$b6:b] " & tj
    
12.     [c7].CopyFromRecordset cnn.Execute(Sql)
    
13.     cnn.Close: Set cnn = Nothing
    
14. End Sub
    

复制代码

ykytom

grf1973 发表于 2017-11-22 20:12
给你换个思路。多条件的用sql比较方便。

楼主意思是在不改变原数据的情况下筛选，你这样会破坏原数据

cgx5871

grf1973 发表于 2017-11-22 20:12
给你换个思路。多条件的用sql比较方便。

晕,  一入VBA深似海.又要花两天摸索SQL.
谢谢~

grf1973

ykytom 发表于 2017-11-22 20:20
楼主意思是在不改变原数据的情况下筛选，你这样会破坏原数据

谁说会破坏原数据的？