Скачать или смотреть Clock In & Out System in Excel (No Add-ins)

Build your own Clock In & Out System in Excel with Employee ID lookup and automatic time logs - no add-ins, just pure Excel + VBA! Perfect for team leaders and small teams.
Like, comment, and subscribe for more!

Clock In Script:
Sub ClockIn()

Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet6") 'change sheet name

Dim empID As String
Dim empName As String
Dim supervisor As String
Dim manager As String

empID = ws.Range("B2").Value
empName = ws.Range("B3").Value
supervisor = ws.Range("B4").Value
manager = ws.Range("B5").Value

If empID = "" Or empName = "" Then
MsgBox "Please enter a valid Employee ID.", vbExclamation
Exit Sub
End If

With ws.ListObjects("AttendanceLog")
Dim newRow As ListRow
Set newRow = .ListRows.Add

With newRow.Range
.Cells(1, 1).Value = Date
.Cells(1, 2).Value = Now
.Cells(1, 3).Value = ""
.Cells(1, 4).Value = empID
.Cells(1, 5).Value = empName
.Cells(1, 6).Value = supervisor
.Cells(1, 7).Value = manager
End With
End With

MsgBox "Clock-in recorded for " & empName & " at " & Format(Now, "hh:mm:ss AM/PM"), vbInformation

End Sub



Clock Out Script:
Sub ClockOut()

Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet6") 'change sheet name

Dim empID As String
empID = ws.Range("B2").Value

If empID = "" Then
MsgBox "Please enter a valid Employee ID.", vbExclamation
Exit Sub
End If

Dim tbl As ListObject
Set tbl = ws.ListObjects("AttendanceLog")

Dim lastMatchRow As ListRow
Dim i As Long
Dim found As Boolean: found = False

For i = tbl.ListRows.Count To 1 Step -1
With tbl.ListRows(i).Range
If .Cells(1, 4).Value = empID And .Cells(1, 3).Value = "" Then
Set lastMatchRow = tbl.ListRows(i)
found = True
Exit For
End If
End With
Next i

If found Then
lastMatchRow.Range.Cells(1, 3).Value = Now ' Fill in Time Out
MsgBox "Clock-out recorded at " & Format(Now, "hh:mm:ss AM/PM"), vbInformation
Else
MsgBox "No matching clock-in found without time-out for this Employee ID.", vbExclamation
End If

End Sub