Mục 2 là đúng đó anh!
Nếu Range("MH_QC") - d_luongBQ cho kết quả là số âm thì cho kết quả bằng 0
OK, công thức của bạn sẽ là:
[GPECODE=vb]Function BULG(ChucVu As String, NgayCong As Double, TongLuong As Double) As Double
'Application.Volatile
If ChucVu = "" Or NgayCong = 0 Then Exit Function
'-----------------------------------------------------------------
Dim d_luongBQ As Double
d_luongBQ = TongLuong / NgayCong
If d_luongBQ = 0 Then Exit Function
'-----------------------------------------------------------------
Dim BangMucBu As Variant, i As Long, j As Long, _
MucBuTT_QC As Double, MucBuTP_TK As Double, MucBuTVKhac As Double
BangMucBu = Range(BangTra.Range("A2"), BangTra.Range("A65536").End(xlUp)).Resize(, 4)
ChucVu = Trim(ChucVu)
j = UBound(BangMucBu)
If Len(ChucVu) = 3 Then
For i = 1 To j
If BangMucBu(i, 1) = ChucVu Then
MucBuTT_QC = BangMucBu(i, 2)
Exit For
End If
Next
If i > j Then Exit Function
If d_luongBQ < MucBuTT_QC Then
BULG = (MucBuTT_QC - d_luongBQ) * NgayCong
End If
Else
Dim LeftChucVu As String, RightChucVu As String
LeftChucVu = Left(ChucVu, 2)
RightChucVu = Right(ChucVu, 2)
For i = 1 To j
If BangMucBu(i, 1) = LeftChucVu Then
MucBuTT_QC = BangMucBu(i, 2)
MucBuTP_TK = BangMucBu(i, 3)
MucBuTVKhac = BangMucBu(i, 4)
Exit For
End If
Next
If i > j Then Exit Function
If LeftChucVu = "MH" Then
If RightChucVu = "QC" Then
If d_luongBQ < MucBuTT_QC Then
BULG = (MucBuTT_QC - d_luongBQ) * NgayCong
End If
Else
BULG = (MucBuTP_TK - d_luongBQ) * NgayCong
End If
Else
Select Case RightChucVu
Case "TT": BULG = (MucBuTT_QC - d_luongBQ) * NgayCong
Case "TP": BULG = (MucBuTP_TK - d_luongBQ) * NgayCong
Case Else: BULG = (MucBuTVKhac - d_luongBQ) * NgayCong
End Select
End If
End If
If BULG < 0 Then BULG = 0
End Function
[/GPECODE]
LƯU Ý:
Tôi chuyển các mục tra theo mã công việc của bạn vào một sheet riêng biệt (BANG_TRA) và sửa lại cấu trúc của nó một chút cho phù hợp với công thức của bạn. Nếu có những mã công việc mới, cứ thế mà phang vô tiếp trên bảng đó thôi, không cần sửa code đâu.
Riêng tất cả các Name của bạn tôi đã xóa bỏ hết, không dùng 1 name nào hết đấy nhé!
Bạn cứ kiểm tra đi, nếu chưa đúng, ta tính tiếp.
TÔI ĐÃ SỬA LẠI HÀM (KHAI BÁO BIẾN), VÌ VẬY, NẾU BẠN ĐÃ TẢI TRƯỚC RỒI THÌ TẢI LẠI FILE BẠN NHÉ!
(
|
)
