giúp em Bảng phân ca và tính số giờ lao động trong tháng

[hdung091]

em có bài tập yêu cầu phân ca làm việc cho từng cá nhân trong nhóm, mỗi ca trực ứng với mỗi số lượng thời gian làm việc khác nhau.
yêu cầu phải tính tổng số giờ làm việc /tháng của mỗi cá nhân dựa theo bảng phân công. (dùng để trả lương cuối tháng)
các anh/chị giúp em với nhé.

trân trọng cám ơn !!

 

[thanhsangnguyen1982]

Tổng số giờ

bạn xem thử file, ok

 

[hdung091]

bạn xem thử file, ok

Cám ơn bác nhiều, may quá em loay hoay mãi mà ko ra.

 

[anhkt08]

bạn có thể dùng code này. Phần bảng tham chiếu bạn còn thiếu ca làm việc NB có thời gian làm =?

Public Function so_gio(ten As String, mang As Range, mang2 As Range) As Double
Dim y As Double, x As Double, tong As Double
Dim i As Double, j As Double
y = mang.Rows.Count
x = mang.Columns.Count
For j = 1 To x
If mang(1, j) = ten Then
tong = 0
For i = 1 To y - 1
If mang(i + 1, j) <> Cells(51, "C").Value Then
tong = tong + Application.WorksheetFunction.VLookup(mang(i + 1, j), mang2, 2, 0)
Else
End If
Next
so_gio = tong
Exit For
Else
End If
Next


End Function

 

[Ba Tê]

bạn có thể dùng code này. Phần bảng tham chiếu bạn còn thiếu ca làm việc NB có thời gian làm =?

Public Function so_gio(ten As String, mang As Range, mang2 As Range) As Double
Dim y As Double, x As Double, tong As Double
Dim i As Double, j As Double
y = mang.Rows.Count
x = mang.Columns.Count
For j = 1 To x
If mang(1, j) = ten Then
tong = 0
For i = 1 To y - 1
If mang(i + 1, j) <> Cells(51, "C").Value Then
tong = tong + Application.WorksheetFunction.VLookup(mang(i + 1, j), mang2, 2, 0)
Else
End If
Next
so_gio = tong
Exit For
Else
End If
Next


End Function

Sao dài thế nhỉ, thử hàm tự tạo này xem:
Cấu trúc hàm = GPE(Vùng cần tính tổng, Bảng dò tìm giá trị)

Public Function GPE(Vung As Range, Bang As Range) As Double
Dim Tong As Double, Clls As Range
With Application.WorksheetFunction
    For Each Clls In Vung
        If .CountIf(Bang, Clls) > 0 Then Tong = Tong + .VLookup(Clls, Bang, 2, 0)
    Next
    GPE = Tong
End With
End Function

 

[anhkt08]

Mình cũng mới làm quen với vba thôi. Nhờ mọi người chỉ bảo nhiều.hj

 

[hdung091]

Cam on bac, cach nay cua bac nghe chung don gian hoi !!

 

[ndu96081631]

Hàm bình thường cũng được vậy
Công thức tại cell C36:

=SUMPRODUCT(SUMIF($C$42:$C$50,C$7:C$35,$D$42:$D$50))