Help Help Hàm VBA tính tiền lương bổ sung (1 người xem)

[Excel365]

Anh xem giúp dùm em lại cái tiền lương bổ sung với nhe

 

[Quang_Hải]

Anh xem giúp dùm em lại cái tiền lương bổ sung với nhe

Ai có thể biết bạn muốn chèn thêm cột vào chỗ nào mà sửa cho bạn.
Kể cũng lạ, Form tính lương mà thích thì cứ chèn cột thì khó hiểu thật
Khi nào bạn chèn thêm cột thì tìm và sửa lại phần mình chú thích

Muốn khoẻ thì đừng thêm cột

Function Bosung(cell As Range, tongtien, tongdiem, vung1, vung2)
Dim tam, i
For i = 1 To vung1.Rows.Count
  If vung1(i, 1) = "K" Or vung1(i, 1) = "Nghæ vieäc" Then
    tam = tam + vung2(i, 1)
  End If
Next
If cell <> "K" Then
  If cell <> "Nghæ vieäc" Then
    If cell.Offset(, 2) > 0 Then 'tăng số 2 lên tương ứng
      Bosung = (tongtien / (tongdiem - tam)) * cell.Offset(, 3) 'tăng số 3 lên tương ứng
    End If
  Else
    Bosung = 0
  End If
End If
End Function

 

[Hong.Van]

Coi chừng bài này bị xóa vì cái tội heo heo!