Bạn lấy tổng của cột 'F' chia cho đơn giá nhân công 40.000 là ra tổng thời gian làm thêm rồi còn gì.
(Giờ làm thêm ủa từng người thì lấy số tiền làm thêm của người đó chia cho đơn giá này.)
Nếu đúng vậy, thì không ai trả lời cũng phải
Nếu không thì đành chờ thông tin phản hồi của bạn vậy!
Bác đừng trêu em, em hơi rốt excell em thử làm theo của bác chỉ nhưng mà không đúng. Vì giờ làm thêm được tính từ lúc 17h cơ mà. em lập theo công thức bác chỉ cho thấy kết quả không đúng như vậy. Nếu có thể bác làm trực tiếp trên sheet này rồi gửi lại cho em. Em sẽ nhìn rõ công thức của bác làm. Em cám ơn bác nhiềuBạn lấy tổng của cột 'F' chia cho đơn giá nhân công 40.000 là ra tổng thời gian làm thêm rồi còn gì.
(Giờ làm thêm ủa từng người thì lấy số tiền làm thêm của người đó chia cho đơn giá này.)
Nếu đúng vậy, thì không ai trả lời cũng phải
Nếu không thì đành chờ thông tin phản hồi của bạn vậy!
Option Explicit
Function TongHopCong(Rng0 As Range, Optional Coluong As Byte = 1)
Const NCo As String = "XPDT": Const N0Co As String = "KR"
Dim Tru As Integer, jJ As Byte
Dim Format_ As String, GPE As String
Dim Rng As Range, sRng As Range, Cls As Range, WF As Object, Clls As Range
Set WF = Application.WorksheetFunction
Select Case Coluong
Case Is < 3
GPE = Choose(Coluong, NCo, N0Co)
For jJ = 1 To Choose(Coluong, 4, 2)
TongHopCong = TongHopCong + WF.CountIf(Rng0, Mid(GPE, jJ, 1))
Next jJ
Case 3
Set Rng = [E9].Resize(, 31): Format_ = Rng.NumberFormat
Rng.NumberFormat = "MM/dd/yyyy"
1 'Tính Them Giò Ngày Thuòng:'
TongHopCong = WF.Sum(Rng0)
For Each Cls In Rng
For Each Clls In Range("NgLe")
If Cls.Value = Clls.Value Then
2 'Tính Them Giò Ngày Le:'
TongHopCong = TongHopCong + 2 * Cells(Rng0.Row, Cls.Column).Value
Exit For
End If
Next Clls
3 'Tính Them Giò Ngày CN :'
If Weekday(Cls.Value) = 1 Then _
TongHopCong = TongHopCong + Cells(Rng0.Row, Cls.Column).Value
Next Cls
Rng.NumberFormat = Format_
End Select
End Function
