Option Explicit
Const DC1 As Double = 0.302095: Const CC1 As Double = 0.770833
Const DC2 As Double = 0.531262: Const CC2 As Double = 0.91666
Const DC3 As Double = 0.781262: Const CC3 As Double = 0.270833
Function TreGio(Rng As Range, Optional Loai As String = "L")
Dim Clls As Range
Dim Ngay As Byte, DiTre As Byte, VeSom As Byte
Dim Ca1 As Boolean, Ca2 As Boolean, Ca3 As Boolean
Dim Vo As Double, Ra As Double
For Each Clls In Rng
If Clls.Value <> "" Then
Ngay = Ngay + 1
If Ngay Mod 2 = 1 Then
Vo = Clls.Value
If Vo < 0.5 Then
Ca1 = True
If Vo <= DC1 Then
Vo = DC1
Else
DiTre = DiTre + 1
End If
ElseIf Vo < 0.75 Then
Ca2 = True
If Vo <= DC2 Then
Vo = DC2
Else
DiTre = DiTre + 1
End If
ElseIf Vo > 0.75 Then '*'
Ca3 = True
If Vo <= DC3 Then
Vo = DC3
Else
DiTre = DiTre + 1
End If
End If
Else
Ra = Clls.Value
If Ca1 Then
If Ra < CC1 Then VeSom = VeSom + 1
Ca1 = Not Ca1
ElseIf Ca2 Then
If Ra < CC2 Then VeSom = VeSom + 1
Ca2 = Not Ca2
ElseIf Ca3 Then
If Ra < CC3 Then VeSom = VeSom + 1
Ca3 = Not Ca3
End If
End If
End If
Next Clls
Select Case UCase$(Loai)
Case "L"
TreGio = Ngay
Case "T"
TreGio = DiTre
Case "S"
TreGio = VeSom
End Select
End Function
Em đoán là các mod vẫn theo dõi chủ đề này. Khi nào không còn giải pháp mới thả phao cứu thành viên hihi.. em cứ đoán mò vậy..
( E lần đầu làm cái này nên thấy khó quá ạ ((
Tôi thì khác bạn chút, làm lệnh vào nó cộng lại ra kết quả, thì toàn bộ nhân viên đều bị chấm đi trể ráo, vì dữ liệu bạn đưa chả có dữ liệu giờ vào, cũng chả biết bạn muốn cộng vào đâu, rồi không biết cơ quan bạn đi làm lúc từ mấy giờ, do đó tôi chọn mốc 00:00 đến 23:59:59 là giờ vào giờ ra cho công ty bạn.
cảm ơn bạn, mình quên mất phải điền giờ.
Bạn chịu khó điền đầy đủ các ký tự "màu đỏ" ở trên cho rõ nghĩa đi, thì tôi cũng sẽ "chịu khó" ghi đầy đủ công thức cho bạn, chứ công thức mà viết tắt chắc bạn không hiểu đâu:
