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

LWY003

各位老师，大家好，请问如何用VBA进行在一定范围内对符合条件统计个数，后期内容比较多，用函数会拖慢，不胜感激！

蓝桥玄霜

统计的例子：

limonet

关键字：where+Between

limonet

Sub limonet()
    Dim Cn As Object, StrSQL$, Arr As Variant
    Set Cn = CreateObject("Adodb.Connection")
    Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
    StrSQL = "Select Count(日期) From [Sheet1$A:D] Where 供应商='" & [H4] & "' And 业务员='" & [H5] & "' And 日期 Between #" & [H2] & "# And #" & [H3] & "#"
    Range("H7").CopyFromRecordset Cn.Execute(StrSQL)
End Sub

LWY003

蓝桥玄霜 发表于 2024-2-22 14:35
统计的例子：

心跳加速，没想到得到蓝桥老师的回复!蓝桥老师实在太厉害了，小弟甘拜下风，五体投地

洋务德雷

用数据透视表不就可以了吗？

LWY003

洋务德雷 发表于 2024-2-22 15:13
用数据透视表不就可以了吗？

这个以后得用很多行的，所以用VBA比较实用些

LWY003

limonet 发表于 2024-2-22 15:07
关键字：where+Between

老师厉害了，就是想要这样的效果，佩服佩服，必须佩服

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

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
   
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.                     If arr(i, 4) = "是" Then
    
12.                         Sum = Sum + 1
    
13.                     End If
    
14.                 End If
    
15.             End If
    
16.         End If
    
17.     Next
    
18.      Me.[h6].Value = Sum
    
19.     Application.ScreenUpdating = True
    
20.     MsgBox "OK！"
    
21. End Sub
    

复制代码