使用 Excel VBA 计算工厂工时

Question

单元格中有日期和进出工厂的时间。我想计算一下每个人来工厂的那天，他们呆了多少小时。

我编写了一个宏并将每个人定义为 sicil_no，因为它是唯一的数字。由于在同一日期有多个进入和退出，我需要计算每个日期和 sicil_no（人）首先计算进入和退出的数量，然后减去然后将它们相加以找到在工厂花费的总时间。

我的原始数据示例。

GECIS TARIHI	SICIL NUMARASI	SOYADI	ADI	GEÇİŞ YÖNÜ
04 03 2021 07:06:25	02491	JOHN	CAN	Entry
04 03 2021 09:28:01	02312	PLAT	JULY	Entry
04 03 2021 15:50:22	02312	PLAT	JULY	Exit
04 03 2021 17:08:48	02491	JOHN	CAN	Exit
08 03 2021 07:06:45	02312	PLAT	JULY	Entry
08 03 2021 07:53:37	02260	BABER	YOKY	Entry
08 03 2021 13:05:38	02312	PLAT	JULY	Exit
08 03 2021 13:18:30	02312	PLAT	JULY	Entry
08 03 2021 17:23:01	02312	PLAT	JULY	Exit
08 03 2021 19:37:36	02260	BABER	YOKY	Exit

Sub macro()

    Dim sicil_no As String
    Dim i As Integer
    Dim end_row As Long
    Dim dates As Range
    Dim gecis_yonu As String
    Dim entry As String
    Dim Exits As String
    
    end_row = Cells(Rows.Count, 3).End(xlUp).Row
    
    For i = 3 To end_row
        sicil_no = Cells(i, 3).Value
        dates = Cells(i, 1).Value
    
        If Range("J", i).Value = "Exit" Then
            Range("J", i).Value = exist
        End If
        
        If Range("J", i).Value = "Entry" Then
            Range("J", i).Value = entry
        End If
    Next
    
    For Each dates In Range("A", end_row)        
        Range("M", i).Value = exist - entry   
    Next
    
End Sub

Answer 1

如果您的数据是一致的（并且每个人每天有一个 Entry 和一个 Exit），它应该使用以下公式计算一个人在工厂的总小时数（请参阅列D)

=(SUMIFS(A:A,C:C,C:C,J:J,"Exit")-SUMIFS(A:A,C:C,C:C,J:J,"Entry"))*24

与

=(SUMIFS(A:A,C:C,C:C,J:J,"Exit",A:A,">="&INT(A:A),A:A,"<"&INT(A:A)+1)-SUMIFS(A:A,C:C,C:C,J:J,"Entry",A:A,">="&INT(A:A),A:A,"<"&INT(A:A)+1))*24

您可以看到一个人每天在工厂工作了多少小时（见 E 栏）。

---

用你给出的例子来说明它是如何工作的：

• F 栏（总小时数）
  =(SUMIFS(A:A,C:C,C:C,E:E,"Exit")-SUMIFS(A:A,C:C,C:C,E:E,"Entry"))*24
• G 栏（每日营业时间）
  =(SUMIFS(A:A,C:C,C:C,E:E,"Exit",A:A,">="&INT(A:A),A:A,"<"&INT(A:A)+1)-SUMIFS(A:A,C:C,C:C,E:E,"Entry",A:A,">="&INT(A:A),A:A,"<"&INT(A:A)+1))*24
• H 列（已更正的总小时数）
  =(SUMIFS(A:A,C:C,C:C,E:E,"Exit")-SUMIFS(A:A,C:C,C:C,E:E,"Entry")+IF(COUNTIFS(C:C,C:C,E:E,"Entry")>COUNTIFS(C:C,C:C,E:E,"Exit"),MAXIFS(A:A,C:C,C:C,E:E,"Entry"),0))*24

请注意，如果有一个Entry 没有对应的Exit，这最终可能会发生。然后你需要从计算中删除最后一个Entry，才能正确计算。这是我尝试使用更正后的公式。

看到最后一个红色的Entry 没有Exit。 H 中的公式将从计算中删除 Entry。