Tính bảng lương nay giúp mình nhé!!!

[chimlacmocoi]

các bạn xem file rồi giúp mình với nhé

 

[MinhCong]

Trong file của Bạn muốn tính tiền lương như thế nào? Tổng lương theo các cột hàng ngang hay sao?
Còn nếu 1 ngày làm <8h thì bao nhiêu?

 

[SA_DQ]

Bạn kiểm lại trong file nha

Option Explicit
Function TínhLuong(Rng As Range)
 Dim Cls As Range, LNgay As Double
 Const Sau As Long = 60000
 
 For Each Cls In Rng
   If Cells(4, Cls.Column).Value <> "CN" Then
      If Cls.Value = 8 Then
         LNgay = Sau
      ElseIf Cls.Value > 0 Then
         LNgay = Sau + (Cls.Value - 8) * 10 ^ 4
      End If
      TínhLuong = TínhLuong + LNgay:      LNgay = 0
   Else
      TínhLuong = TínhLuong + Sau * Cls.Value / 4
   End If
 Next Cls

End Function