帮助修改代码，使其可以按条件提取数据并呈现出来

旧巷123

帮助修改代码，使其可以按条件提取数据并呈现出来

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.1.7
   
2.     Dim arr, brr
   
3.     c = 4
   
4.     ReDim a(1 To c), ft(1 To c)
   
5.     With Sheets("查询数据")
   
6.         a(1) = .[b1]
   
7.         a(2) = .[d1]
   
8.         a(3) = .[f1]
   
9.         a(4) = .[h1]
   
10.     End With
    
11.     b = [{1,2,3,4,7,8,9}]
    
12.     With Sheets("出入库明细")
    
13.         r = .Cells(Rows.Count, 1).End(3).Row
    
14.         arr = .Range("a4:j" & r)
    
15.     End With
    
16.     ReDim brr(1 To UBound(arr), 1 To 7)
    
17.     For i = 1 To UBound(arr)
    
18.         fft = 1
    
19.         s = CDate(arr(i, 3))
    
20.         ft(3) = IIf(a(3) = Empty Or s >= a(3), 1, 0)
    
21.         fft = fft * ft(3)
    
22.         ft(4) = IIf(a(4) = Empty Or s <= a(4), 1, 0)
    
23.         fft = fft * ft(4)
    
24.         ft(1) = IIf(a(1) = Empty Or arr(i, 8) = a(1), 1, 0)
    
25.         fft = fft * ft(1)
    
26.         ft(2) = IIf(a(2) = Empty Or arr(i, 4) = a(2), 1, 0)
    
27.         fft = fft * ft(2)
    
28.         If fft = 1 Then
    
29.             m = m + 1
    
30.             brr(m, 1) = m
    
31.             For j = 2 To UBound(b)
    
32.                 brr(m, j) = arr(i, b(j))
    
33.             Next
    
34.         End If
    
35.     Next
    
36.     With Sheets("查询数据")
    
37.         .UsedRange.Offset(2).ClearContents
    
38.         With .[a3].Resize(m, 7)
    
39.             .Value = brr
    
40.             .Borders.LineStyle = 1
    
41.             .HorizontalAlignment = xlCenter
    
42.             .VerticalAlignment = xlCenter
    
43.         End With
    
44.     End With
    
45.     MsgBox "OK！"
    
46. End Sub
    

复制代码

wang-way

r = .Cells(Rows.Count, 1).End(xlUp).Row  

ykcbf1100

条件区1~4个条件都可以为空。如果条件为空，则查询结果是全部数据。

ykcbf1100

原代码可以看出是直接在单元格上操作，速度会慢。而且，原代码条件区要4个条件都有内容才可以查询，明显不能满足实际需求。

wang-way

LIUZHU

JSA代码

LIUZHU

WPS测试有效

旧巷123

wang-way 发表于 2024-1-7 21:58

这个没引用过来啊

旧巷123

ykcbf1100 发表于 2024-1-7 21:51
原代码可以看出是直接在单元格上操作，速度会慢。而且，原代码条件区要4个条件都有内容才可以查询，明显不 ...

是的，我这个vba跟着学没多长时间，不知到能不能麻烦您在我那个原本的代码上修改下啊，我想知道是哪里错了，后面好记住改掉，谢谢