Lập hàm điều kiện trong VBA

[nguyenkimngoc]

Chào A/C

Anh Chị có thể giúp em viết hàm điều kiện bằng VBA cho chuỗi điều kiện sau được không?

Nếu C1> 50 cho điểm là 1o và đánh giá là AA+, nểu 35<C1<=50 cho điểm là 9 đánh giá là A+
Nếu 35<=C1>20 cho điểm là 8 và đánh giá là A, nếu 15<C1<=20 cho điểm là 7 và đánh giá là B được không?

Cám ơn A/C nhiều,

 

[♫ђöล♥ßล†♥†µ♫]

Chào A/C

Anh Chị có thể giúp em viết hàm điều kiện bằng VBA cho chuỗi điều kiện sau được không?

Nếu C1> 50 cho điểm là 1o và đánh giá là AA+, nểu 35<C1<=50 cho điểm là 9 đánh giá là A+
Nếu 35<=C1>20 cho điểm là 8 và đánh giá là A, nếu 15<C1<=20 cho điểm là 7 và đánh giá là B được không?

Cám ơn A/C nhiều,

Hàm này không lược bỏ một từ nào so với yêu cầu

Function Danhgia(ByVal rng As Range) As String
    Dim str As String
MsgBox "Ch" & ChrW$(224) & "o A/C"
If IsNumeric(rng.Value) Then
    Select Case rng.Value
        Case Is > 50
            str = "Cho " & ChrW$(273) & "i" & ChrW$(7875) & "m l" & ChrW$(224) & _
                    " 1o v" & ChrW$(224) & " " & ChrW$(273) & ChrW$(225) & "nh gi" & ChrW$(225) & " l" & ChrW$(225) & " AA+"
        Case 36 To 50
            str = "Cho " & ChrW$(273) & "i" & ChrW$(7875) & "m l" & ChrW$(224) & _
                    " 9 " & ChrW$(273) & ChrW$(225) & "nh gi" & ChrW$(225) & " l" & ChrW$(224) & " A+"
        Case 21 To 35
            str = "Cho " & ChrW$(273) & "i" & ChrW$(7875) & "m l" & ChrW$(224) & " 8 v" & ChrW$(224) & _
                    " " & ChrW$(273) & ChrW$(225) & "nh gi" & ChrW$(225) & " l" & ChrW$(224) & " A"
        Case 15 To 20
            str = "Cho " & ChrW$(273) & "i" & ChrW$(7875) & "m l" & ChrW$(224) & _
                    " 7 v" & ChrW$(224) & " " & ChrW$(273) & ChrW$(225) & "nh gi" & ChrW$(225) & " l" & _
                    ChrW$(224) & " B " & ChrW$(273) & ChrW$(432) & ChrW$(7907) & "c kh" & ChrW$(244) & "ng"
    End Select
End If
If Len(str) Then Danhgia = str
End Function

 

[cdtam]

Hàm này không lược bỏ một từ nào so với yêu cầu

Thiếu cái này -"?" .....

 

[hml89]

Thiếu cái này -"?" .....

Chuẩn là thiếu dấu ? rồi.

 

[nguyenkimngoc]

Hàm này không lược bỏ một từ nào so với yêu cầu

Function Danhgia(ByVal rng As Range) As String
    Dim str As String
MsgBox "Ch" & ChrW$(224) & "o A/C"
If IsNumeric(rng.Value) Then
    Select Case rng.Value
        Case Is > 50
            str = "Cho " & ChrW$(273) & "i" & ChrW$(7875) & "m l" & ChrW$(224) & _
                    " 1o v" & ChrW$(224) & " " & ChrW$(273) & ChrW$(225) & "nh gi" & ChrW$(225) & " l" & ChrW$(225) & " AA+"
        Case 36 To 50
            str = "Cho " & ChrW$(273) & "i" & ChrW$(7875) & "m l" & ChrW$(224) & _
                    " 9 " & ChrW$(273) & ChrW$(225) & "nh gi" & ChrW$(225) & " l" & ChrW$(224) & " A+"
        Case 21 To 35
            str = "Cho " & ChrW$(273) & "i" & ChrW$(7875) & "m l" & ChrW$(224) & " 8 v" & ChrW$(224) & _
                    " " & ChrW$(273) & ChrW$(225) & "nh gi" & ChrW$(225) & " l" & ChrW$(224) & " A"
        Case 15 To 20
            str = "Cho " & ChrW$(273) & "i" & ChrW$(7875) & "m l" & ChrW$(224) & _
                    " 7 v" & ChrW$(224) & " " & ChrW$(273) & ChrW$(225) & "nh gi" & ChrW$(225) & " l" & _
                    ChrW$(224) & " B " & ChrW$(273) & ChrW$(432) & ChrW$(7907) & "c kh" & ChrW$(244) & "ng"
    End Select
End If
If Len(str) Then Danhgia = str
End Function

Hi Bạn

Cám ơn Bạn rất nhiều, Bạn cho mình hỏi nếu để là 50%, 35%.. thì phải để thế nào nhỉ?

Mình khai báo toàn bị lỗi,

cám ơn bạn nhiều

 

[♫ђöล♥ßล†♥†µ♫]

Hi Bạn

Cám ơn Bạn rất nhiều, Bạn cho mình hỏi nếu để là 50%, 35%.. thì phải để thế nào nhỉ?

Mình khai báo toàn bị lỗi,

cám ơn bạn nhiều

Bạn thay cái Select Case rng.Value thành Select Case 100 * rng.Value xem sao

 

[VetMini]

Hàm này không lược bỏ một từ nào so với yêu cầu

Function Danhgia(ByVal rng As Range) As String
...

Tôi chỉ thấy cái hàm này nó trả về 1 chuỗi, trong khi yêu cầu thì phải trả về 2 "món" tất cả, món thứ nhất là một số nguyên và món thứ hai là một chuỗi.

Chú: đây là 1 ví dụ hình thức của loại hàm trả về 2 món
Function HaiMon() As Variant()
Dim a(1 To 2)
a(1) = 1
a(2) = "one"
HaiMon = a
End Function
Cách dùng:
chọn 2 ô A1 và B1
gõ =HaiMon()
Ctrl+Shift+Enter (hàm mảng)
A1 sẽ thấy 1 và B1 sẽ thấy "one"