Option Explicit
Function Bulg(ChucVu As String, NgayCong As Double, TongLuong As Double)
Dim D_LuongBQ As Double, Rng As Range
If NgayCong <= 0 Then Exit Function '***'
D_LuongBQ = TongLuong / NgayCong
'= = = = = = = = = = = = = = = = = = = = ='
If (ChucVu <> "" And D_LuongBQ > 0) Then
If (Left(ChucVu, 3) = "BÑH" And D_LuongBQ < (Range("BÑH"))) Then
Set Rng = Range("BÑH")
ElseIf (Left(ChucVu, 3) = "KCS" And D_LuongBQ < (Range("KCS"))) Then
Set Rng = Range("KCS")
ElseIf (Left(ChucVu, 2) = "MH") And Right(ChucVu, 2) = "QC" And D_LuongBQ < (Range("KCS")) Then
Set Rng = Range("MH_QC")
ElseIf (Left(ChucVu, 2) = "MH") And Right(ChucVu, 2) <> "QC" Then
Set Rng = Range("MH_TK")
ElseIf (Left(ChucVu, 2) = "TK") And Right(ChucVu, 2) = "TT" Then
Set Rng = Range("TKE_TT")
ElseIf (Left(ChucVu, 2) = "TK") And Right(ChucVu, 2) = "TP" Then
Set Rng = Range("TKE_Tp")
ElseIf (Left(ChucVu, 2) = "TK") And Right(ChucVu, 2) <> "TT" And Right(ChucVu, 2) <> "TP" Then
Set Rng = Range("TKE_TV")
ElseIf (Left(ChucVu, 2) = "CN") And Right(ChucVu, 2) = "TT" Then
Set Rng = Range("CN_TT")
ElseIf (Left(ChucVu, 2) = "CN") And Right(ChucVu, 2) = "TP" Then
Set Rng = Range("CN_TP")
ElseIf (Left(ChucVu, 2) = "CN") And Right(ChucVu, 2) <> "TT" And Right(ChucVu, 2) <> "TP" Then
Set Rng = Range("CN_TV")
ElseIf (Left(ChucVu, 2) = "PC") And Right(ChucVu, 2) = "TT" Then
Set Rng = Range("PC_TT")
ElseIf (Left(ChucVu, 2) = "PC") And Right(ChucVu, 2) = "TP" Then
Set Rng = Range("PC_TP")
ElseIf (Left(ChucVu, 2) = "PC") And Right(ChucVu, 2) <> "TT" And Right(ChucVu, 2) <> "TP" Then
Set Rng = Range("PC_TV")
ElseIf (Left(ChucVu, 2) = "XH") And Right(ChucVu, 2) = "TT" Then
Set Rng = Range("XH_TT")
ElseIf (Left(ChucVu, 2) = "XH") And Right(ChucVu, 2) = "TP" Then
Set Rng = Range("XH_TP")
ElseIf (Left(ChucVu, 2) = "XH") And Right(ChucVu, 2) <> "TT" And Right(ChucVu, 2) <> "TP" Then
Set Rng = Range("XH_TV")
ElseIf (Left(ChucVu, 2) = "CÑ") And Right(ChucVu, 2) = "TT" Then
Set Rng = Range("CÑ_TT")
ElseIf (Left(ChucVu, 2) = "CÑ") And Right(ChucVu, 2) = "TP" Then
Set Rng = Range("CÑ_TP")
ElseIf (Left(ChucVu, 2) = "CÑ") And Right(ChucVu, 2) <> "TT" And Right(ChucVu, 2) <> "TP" Then
Set Rng = Range("CÑ_TV")
ElseIf (Left(ChucVu, 2) = "PV") And Right(ChucVu, 2) = "TT" Then
Set Rng = Range("PV_TT")
ElseIf (Left(ChucVu, 2) = "PV") And Right(ChucVu, 2) = "TP" Then
Set Rng = Range("PV_TP")
ElseIf (Left(ChucVu, 2) = "PV") And Right(ChucVu, 2) <> "TT" And Right(ChucVu, 2) <> "TP" Then
Set Rng = Range("PV_TV")
ElseIf (Left(ChucVu, 2) = "BX") And Right(ChucVu, 2) = "TT" Then
Set Rng = Range("BX_TT")
ElseIf (Left(ChucVu, 2) = "BX") And Right(ChucVu, 2) = "TP" Then
Set Rng = Range("BX_TP")
ElseIf (Left(ChucVu, 2) = "BX") And Right(ChucVu, 2) <> "TT" And Right(ChucVu, 2) <> "TP" Then
Set Rng = Range("BX_TV")
End If
'Còn Cau Lenh Nua Xin Dành Cho Ban!'
End If
End Function