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

[Excel365]

EM gởi file nhờ anh (chị) giúp em làm VBA tính tiền lương bổ sung với

 

[hanhpptc]

EM gởi file nhờ anh (chị) giúp em làm VBA tính tiền lương bổ sung với

Bài này dùng hàm IF kết hợp với OR và AND là được rồi, bạn muốn phức tạp thêm. Tuy nhiên xem File (vì nghĩ tác giả chỉ ví dụ cho dự án thật của mình)

 

[Excel365]

Tổng tiền bổ sung cho cả tổ là 10.000.000 chứ ko phải bổ sung 10.000.000 cho 1 người

 

[hanhpptc]

Tổng tiền bổ sung cho cả tổ là 10.000.000 chứ ko phải bổ sung 10.000.000 cho 1 người

Bạn phải giải thích rõ hơn về phương thức phân chia?

 

[Quang_Hải]

EM gởi file nhờ anh (chị) giúp em làm VBA tính tiền lương bổ sung với

Mấy dạng bài thế này nhức đầu thật

 

[concogia]

Mấy dạng bài thế này nhức đầu thật

1)- Cái quan trọng là địa chỉ chứa tổng tiền [G5] thì lại không đưa vào tham số của hàm
2)- Dùng VBA thì VBA hết đi cho nó nhẹ nhàng, mắc chi mà Sumif
Híc

 

[Quang_Hải]

1)- Cái quan trọng là địa chỉ chứa tổng tiền [G5] thì lại không đưa vào tham số của hàm
2)- Dùng VBA thì VBA hết đi cho nó nhẹ nhàng, mắc chi mà Sumif
Híc

Vậy em sửa lại không dùng Sumif nữa

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
      Bosung = (tongtien / (tongdiem - tam)) * cell.Offset(, 3)
    End If
  Else
    Bosung = 0
  End If
End If
End Function

 

[Excel365]

Đúng ý của em rồi, cảm ơn các anh nhiều nhe. Chúc các anh 1 ngày làm việc vui vẻ.