符合条件的数据筛选

路的前方是梦想

需要根据在G4填写的日期，自动将数据源中所有符合要求的数据，自动呈现到结果呈现那边，呈现的要求是，开单日期在G4到G4+365天的数据
请各位老师帮忙设置下vba的代码，谢谢！

wang-way

用SQL 会快很多

路的前方是梦想

wang-way 发表于 2023-1-29 22:33
用SQL 会快很多

这个不会，用VBA可以不？

shiruiqiang

日期从3月1日算到第二年的3月1日这个区间，要修改的话去dateadd-1

mmwwdd

grf1973

。。。。。。。

ykcbf1100

用数组做一个吧。

fzxba

1. Sub test0()
   
2.   Dim ar, ymd(2) As Date
   
3.   Dim i As Long, j As Long, k As Long
   
4.   Application.ScreenUpdating = False
   
5.   ymd(0) = CDate(Range("G4").Value)
   
6.   ymd(1) = DateAdd("D", -1, ymd(0))
   
7.   ymd(2) = DateAdd("D", 365 + 1, ymd(0))
   
8.   k = 1
   
9.   ar = Range("A7:F" & Cells(Rows.Count, "B").End(xlUp).Row)
   
10.   For i = 2 To UBound(ar)
    
11.     If ar(i, 2) > ymd(1) Then
    
12.       If ar(i, 2) < ymd(2) Then
    
13.         k = k + 1
    
14.         For j = 1 To UBound(ar, 2)
    
15.           ar(k, j) = ar(i, j)
    
16.         Next
    
17.       End If
    
18.     End If
    
19.   Next
    
20.   With Range("H7")
    
21.     .CurrentRegion.Clear
    
22.     With .Resize(k, UBound(ar, 2))
    
23.       .Borders.LineStyle = xlContinuous
    
24.       .Font.Size = 9
    
25.       .Value = ar
    
26.     End With
    
27.   End With
    
28.   Application.ScreenUpdating = True
    
29.   Beep
    
30. End Sub

复制代码