Giải đáp ví dụ của thầy phan tự hướng! (1 người xem)

[kstruong2005]

Xin chào các anh chị trong diễn đàn!
Em đang học VBA theo sách của thầy Phan Tự Hướng mà đến ví dụ này em đã làm theo hướng dẫn mà Code không chạy mong mọi người giúp đỡ.
Em xin chân thành cảm ơn!

 

[Ba Tê]

Xin chào các anh chị trong diễn đàn!
Em đang học VBA theo sách của thầy Phan Tự Hướng mà đến ví dụ này em đã làm theo hướng dẫn mà Code không chạy mong mọi người giúp đỡ.
Em xin chân thành cảm ơn!

Function HocLuc(Toan As Single, Ly As Single, Hoa As Single, DiemTB As Single)
Select Case DiemTB
Case Is >= 8.5
If Toan >= 7 And Ly >= 7 And Hoa >= 7 Then
HocLuc = " Gioi"
ElseIf Toan < 7 Or Ly < 7 And Hoa < 7 Then
HocLuc = " Kha"
End If
Case Is >= 6.5
If Toan >= 5.5 And Ly >= 5.5 And Hoa >= 5.5 Then
HocLuc = " Kha"
ElseIf Toan < 5.5 Or Ly < 5.5 And Hoa < 5.5 Then
HocLuc = " Trung Binh"
End If
Case Is >= 5
If Toan >= 4 And Ly >= 4 And Hoa >= 4 Then
HocLuc = " Trung Binh"
ElseIf Toan < 4 Or Ly < 4 Or Hoa < 4 Then
HocLuc = " Yeu"
End If
Case Is < 5
HocLuc = " Yeu"
End Select
End Function

Bạn xem lại trong sách và sửa mấy chỗ màu đỏ cho phù hợp nhé.
Tặng cho bạn thêm một Funtion để "ngâm cứu"

Public Function XLHL(Diem As Range, TB As Range) As String
With Application.WorksheetFunction
If TB.Value >= 8 And .Min(Diem) >= 7 Then
    XLHL = "GIOI"
ElseIf TB.Value >= 8 And .Min(Diem) < 7 And .CountIf(Diem, "<=7") = 1 Then
    XLHL = "Kha"
ElseIf TB.Value >= 6.5 And .Min(Diem) >= 5.5 Then
    XLHL = "KHA"
ElseIf TB.Value >= 6.5 And .Min(Diem) < 5.5 And .CountIf(Diem, "<=5.5") = 1 Then
    XLHL = "Trung Binh"
ElseIf TB.Value >= 5 And .Min(Diem) >= 4 Then
    XLHL = "TRUNG BINH"
Else
    XLHL = "YEU"
End If
End With
End Function

Công thức ô F2=XLHL(B22;E2)

 

[kstruong2005]

Em xin cảm ơn anh Ba Te
Em đang học VBA theo sách của thầy Hướng
nếu có mướng mắc mong các anh chị trong diễn đàn giúp đỡ em.

 

[thanhdong1508]

Công thức ô F2=XLHL(B22,E2)