请教怎样用VBA对时间段统计

waw751115 · 发表于 2023-1-6 08:28

本帖最后由 waw751115 于 2023-1-6 08:31 编辑

请问怎样用VBA
对表中的每天23点后至06点前的出入车辆进行统计？

zhw79 · 发表于 2023-1-6 08:38

本帖最后由 zhw79 于 2023-1-6 08:45 编辑

公式就可以了

ykcbf1100 · 发表于 2023-1-6 08:47

没看明白，统计这个时间段内入场的车辆数还是车辆清单？

fzxba · 发表于 2023-1-6 09:10

Sub test1()
Dim Conn As Object, rs As Object, SQL As String, strConn As String, i As Long
Set Conn = CreateObject("ADODB.Connection")
If Application.Version < 12 Then
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source="
Else
strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source="
End If
Conn.Open strConn & ThisWorkbook.FullName
SQL = "SELECT 车牌号码,入场时间 FROM [Sheet1$] WHERE HOUR(入场时间)=23 OR HOUR(入场时间)<6"
SQL = "TRANSFORM COUNT(*) SELECT 车牌号码 FROM (" & SQL & ") GROUP BY 车牌号码 PIVOT DATEVALUE(入场时间)"
Set rs = Conn.Execute(SQL)
With Range("D1")
.CurrentRegion.ClearContents
For i = 0 To rs.Fields.Count - 1
.Offset(0, i) = rs.Fields(i).Name
Next
.Offset(1).CopyFromRecordset rs
End With
Set rs = Nothing
Conn.Close
Set Conn = Nothing
Beep
End Sub

复制代码

彭奇虎 · 发表于 2023-1-6 09:35

新手路过~~~

grf1973 · 发表于 2023-1-6 10:35

共1425次，没错。

waw751115 · 发表于 2023-1-6 11:06

本帖最后由 waw751115 于 2023-1-6 11:19 编辑

grf1973 发表于 2023-1-6 10:35
共1425次，没错。

谢谢您，请问怎样把23:00:00和00:00:00设置成变量啊？还有怎样设置一个时间筛选啊？

grf1973 · 发表于 2023-1-6 11:18

t1=timevalue("23:00:00)

waw751115 · 发表于 2023-1-6 14:37

fzxba 发表于 2023-1-6 09:10

强，高手

lizhipei78 · 发表于 2023-1-7 10:38

zhw79 发表于 2023-1-6 08:38
公式就可以了

你的解法是对的，在你的基础上增加车牌号码及出现的次数公式
车牌号码
=IFERROR(INDEX(UNIQUE(FILTER(A:A,(C:C=TRUE))),ROW(A1)),"")
这个主要是针对WPS，没有溢出功能的，如果是微软OFFICE，不用这么麻烦

出现次数
=COUNTIFS(A:A,E2,C:C,TRUE)

		自动登录	找回密码
密码			免费注册

[求助] 请教怎样用VBA对时间段统计

评分

评分

评分