Ivan33
Необходим подсчёт по каждому станку фактического времени работы.
Чтобы в этом случае получить время фактической работы за определённое число
из каждой чётной записи (окончание работы) вычитаем (нечётную, предыдущую). Процитированное - это, конечно, не лучший способ хранения данных - лучше хранить дату начала/окончания в одной строке, к которой они обе относятся.
Предположим что в 1-ом столбце некий Id, он уникальный, монотонно возрастает на единичку - способ ниже работает только для этого предположения.
Тогда для исходных данных в столбцах A:C я бы сделал так:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Public Sub test()
Dim wbName$, shName$, sSQL$, cnn As ADODB.Connection, rst As ADODB.Recordset
wbName = ActiveWorkbook.FullName
shName = ActiveSheet.Name
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
sSQL = "SELECT Q1.F2, int(Q1.F3), cdate(sum(Q1.F3-Q2.F3)) AS in_work " _
& "FROM (SELECT * FROM [" & shName & "$A1:C65000] as T WHERE (T.F1 Mod 2)=0) AS Q1 " _
& "INNER JOIN (SELECT * FROM [" & shName & "$A1:C65000] as T WHERE (T.F1 Mod 2)=1) AS Q2 " _
& "ON (Q1.F2=Q2.F2) AND (Q1.F1-Q2.F1=1) " _
& "GROUP BY Q1.F2, int(Q1.F3);"
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & wbName & ";Extended Properties=""Excel 8.0;HDR=No;IMEX=2"""
rst.Open sSQL, cnn, adOpenStatic
With Worksheets(shName)
.Columns("F:H").ClearContents
.Range("F1").CopyFromRecordset rst
.Columns("H").NumberFormat = "[h]:mm:ss"
.Columns("F:H").EntireColumn.AutoFit
End With
rst.Close: Set rst = Nothing
cnn.Close: Set cnn = Nothing
End Sub
надо запустить макрос test находясь на листе с данными - он поместит итоги, группированные по имени станка / дате (без времени) в столбцы F:H
