如何用VBA来统计一定日期范围内符合条件的个数？

ykcbf1100

david_jiao 发表于 2024-2-23 14:28
太有参考价值了，公司电脑打不开7Z文件，老师可否直接分享代码，谢谢！

代码供参考。。

1. Sub ykcbf()   '//2024.2.22
   
2.     Dim arr
   
3.     Application.ScreenUpdating = False
   
4.     r = Me.Cells(Rows.Count, "a").End(xlUp).Row
   
5.     arr = Me.[a1].Resize(r, 4)
   
6.     Sum = 0: S2 = 0
   
7.     For i = 2 To UBound(arr)
   
8.         If arr(i, 1) >= Me.[h2].Value2 And arr(i, 1) <= Me.[h3].Value2 Then
   
9.             If arr(i, 2) = Me.[h4].Value2 Then
   
10.                 If arr(i, 3) = Me.[h5].Value2 Then
    
11.                     S2 = S2 + 1
    
12.                     If arr(i, 4) = "是" Then
    
13.                         Sum = Sum + 1
    
14.                     End If
    
15.                 End If
    
16.             End If
    
17.         End If
    
18.     Next
    
19.     Me.[h6].Value = Sum
    
20.     Me.[h7].Value = S2
    
21.     Application.ScreenUpdating = True
    
22.     MsgBox "OK！"
    
23. End Sub
    
24. 
    

复制代码