VBA动态筛选

李桥贵

ykcbf1100 发表于 2022-11-3 15:16
是想筛选还是想直接提取数据？

多次求助老师，谢谢老师。再请老师辛苦帮忙一下。

准提部林

純公式//輔助列:
Xl0000160.rar (12.57 KB, 下载次数: 14)

2022-11-6 17:30 上传

点击文件名下载附件

李桥贵

准提部林 发表于 2022-11-6 17:30
純公式//輔助列:

谢谢老师，你辛苦。希望能用VBA筛选。

李桥贵

李桥贵 发表于 2022-11-6 19:19
谢谢老师，你辛苦。希望能用VBA筛选。

谢谢老师，你辛苦。希望能用VBA筛选。

李桥贵

ykcbf1100 发表于 2022-11-3 15:16
是想筛选还是想直接提取数据？

谢谢老师在老师的指点。
动态筛选.zip (26 KB, 下载次数: 10)

2022-12-13 21:43 上传

点击文件名下载附件

ykcbf1100

李桥贵 发表于 2022-12-13 21:43
谢谢老师在老师的指点。

我看一下先。

ykcbf1100

李桥贵 发表于 2022-12-13 21:43
谢谢老师在老师的指点。

你这个就是多条件提取数据，用数组速度很快的，完全不用筛选。

风中的我脸

1. Sub Filter()
   
2.     Dim cnn As Object, rst As Object
   
3.     Dim strPath As String, strCnn As String, strSQL As String
   
4.     Set cnn = CreateObject("adodb.connection")
   
5.     Dim i As Long
   
6.     strPath = ThisWorkbook.FullName
   
7.     strCnn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & strPath
   
8.     cnn.Open strCnn
   
9.    
   
10.     Dim aTj1, aTj2, aStrTj1, aStrTj2
    
11.     aTj1 = Range([a8], Range("a8").End(xlDown))
    
12.     aTj2 = Range([b8], Range("b8").End(xlDown))
    
13.     For i = 1 To UBound(aTj1)
    
14.         aStrTj1 = aStrTj1 & "'" & aTj1(i, 1) & "',"
    
15.     Next
    
16.     aStrTj1 = Mid(aStrTj1, 1, Len(aStrTj1) - 1)
    
17.    
    
18.     For i = 1 To UBound(aTj2)
    
19.         aStrTj2 = aStrTj2 & "'" & aTj2(i, 1) & "',"
    
20.     Next
    
21.     aStrTj2 = Mid(aStrTj2, 1, Len(aStrTj2) - 1)
    
22.    
    
23.    
    
24.     '    strSQL =SELECT * FROM [设$a20:f]
    
25.     '            where 日期 BETWEEN #2022-8-5# and #2022-8-25#
    
26.     '            AND  数量 BETWEEN 12 and 40
    
27.     '            AND  项目 in("打印机","空调")
    
28.     '            AND  销售员 in("张三","李四","王五","周七","胡八")
    
29.     strSQL = "SELECT * FROM [设$a20:f]" _
    
30.         & " where 日期 BETWEEN #" & Range("a4") & "# and #" & Range("a5") & "#" _
    
31.         & " AND  数量 BETWEEN " & Range("b4") & " and " & Range("b5") _
    
32.         & " AND  项目 in (" & aStrTj1 & ")" _
    
33.         & " AND  销售员 in(" & aStrTj2 & ")"
    
34.     Set rst = cnn.Execute(strSQL)
    
35.    
    
36.     Application.DisplayAlerts = False
    
37.     On Error Resume Next
    
38.     Sheets("新").Delete
    
39.     Sheets.Add(after:=Sheets("设")).Name = "新"
    
40.     With Sheets("新")
    
41.         For i = 0 To rst.Fields.Count - 1
    
42.             .Cells(1, i + 1) = rst.Fields(i).Name
    
43.         Next
    
44.         .Range("a:a").NumberFormatLocal = "yyyy-m-d"
    
45.         .Range("a2").CopyFromRecordset rst
    
46.         .Range("a2").CurrentRegion.Borders.LineStyle = xlContinuous
    
47.         .Range("a2").CurrentRegion.EntireColumn.AutoFit
    
48.     End With
    
49.     Application.DisplayAlerts = True
    
50.    
    
51.     rst.Close
    
52.     cnn.Close
    
53.     Set rst = Nothing
    
54.     Set cnn = Nothing
    
55. 
    
56. End Sub
    
57. 
    

复制代码

nccuiyehua

=AND(A21<=$A$5,A21>=$A$4,D21>=$B$4,D21<=$B$5,COUNTIF($A$8:$A$14,B21)>0,COUNTIF($B$8:$B$14,C21)>0)
公式+高级筛选

李桥贵

ykcbf1100 发表于 2022-12-14 09:35
你这个就是多条件提取数据，用数组速度很快的，完全不用筛选。

谢谢您老师，多次得您的帮助。