Xếp loại nhân viên

[lookatme]

Hi các sư huynh, sư tỷ.

Tôi đang làm chuyên viên xét thi đua khen thưởng.
Tôi đã có sẳn các tiêu chí và điều kiện xếp hạn A, B, C, D, E.
Nhưng mà không biết làm cách nào để đặt công thức chính xác.
Theo đó hàng tháng ta chỉ nhập số liệu và ra luôn kết quả.
( có kèm theo file đính kèm )
Tiểu đệ xin nhờ các sư huynh và sư tỷ chỉ giúp.

Cảm ơn.
Tiểu đệ.

 

[huuthang_bd]

Hi các sư huynh, sư tỷ.

Tôi đang làm chuyên viên xét thi đua khen thưởng.
Tôi đã có sẳn các tiêu chí và điều kiện xếp hạn A, B, C, D, E.
Nhưng mà không biết làm cách nào để đặt công thức chính xác.
Theo đó hàng tháng ta chỉ nhập số liệu và ra luôn kết quả.
( có kèm theo file đính kèm )
Tiểu đệ xin nhờ các sư huynh và sư tỷ chỉ giúp.

Cảm ơn.
Tiểu đệ.

Bạn xem file đính kèm nha.

 

[lookatme]

Thanks.

Cảm ơn huynh.

Em cảm ơn huynh nhiều.
Chúc huynh mạnh khỏe và thành công.

Lookatme.

 

[SA_DQ]

Bạn thử với hàm người dùng sau đây

Option Explicit:            Option Base 1
Function TongHop(Rng As Range) As String
 Dim Clls As Range:             Const Chu As String = "ABCDE"
 ReDim StrC(5) As String:       Dim VTr As Byte
 Const Aa As String = "A"
 
 For Each Clls In Rng
    VTr = InStr(Chu, Clls.Value)
    StrC(VTr) = StrC(VTr) & Clls.Value
 Next Clls
 For VTr = 1 To 5
    TongHop = StrC(VTr) & TongHop
 Next VTr
 
 If Left(TongHop, 1) = Aa Then
    TongHop = Aa
 ElseIf Right(TongHop, 1) <> Aa Then
    TongHop = "E"
 ElseIf (Mid(TongHop, 2, 1) = Aa And Left(TongHop, 1) < "D") Or _
    (Mid(TongHop, 3, 1) = Aa And Left(TongHop, 1) = "B") Or _
    (Mid(TongHop, 4, 1) = Aa And Left(TongHop, 1) = "B") Then
    
    TongHop = "B"
    
 ElseIf (Right(TongHop, 1) = Aa And Mid(TongHop, 3, 1) = "B" And Mid(TongHop, 2, 1) < "D") _
    Or (Mid(TongHop, 5, 1) = Aa And Mid(TongHop, 2, 1) = "B" And Left(TongHop, 1) < "D") _
    Or (Mid(TongHop, 4, 1) = Aa And Mid(TongHop, 2, 1) = "B" And Left(TongHop, 1) = "C") _
    Or (Mid(TongHop, 3, 1) = Aa And Left(TongHop, 1) < "D") Then
    
    TongHop = "C"
 Else
    TongHop = "D"
 End If
End Function

 

[lookatme]

Chào.

Công thức của huynh, đệ không biết làm như thế nào hết.
Huynh có thể hướng dẫn giúp đệ được không.

Tiểu đệ.

 

[SA_DQ]

Bạn xem trong file đính kèm

Công thức của huynh, đệ không biết làm như thế nào hết.
Huynh có thể hướng dẫn giúp đệ được không.

Bạn xem kết quả của hàm tại 'K5:K26'
Thay đổi vài tiêu chí bình thưởng để xem hàm làm việc có chính xác không!

Nếu cần thống kê chuỗi xếp loại của 6 tiêu chí & liệt kê ra tại cột 'J', chúng ta phải sửa lại chút đỉnh hàm này & thêm cho nó thông số, để hắn biết & ngưng giữa chừng, cho ta kết quả trung gian.