voda đã viết:Mình xin tóm tắt quy định về xếp loại học lực của học sinh THPT theo quy chế 40 để các bạn ngoài ngành khỏi mất công đọc văn bản:
1.LOẠI GIỎI: phải đủ 3 điều kiện:
-Điểm TB các môn: 8,0 trở lên.
-Điểm 1 trong 2 môn Văn, Toán: 8,0 trở lên.
-Không có môn nào dưới 6,5.
2.LOẠI KHÁ:
-Điểm TB các môn: 6,5 trở lên.
-Điểm 1 trong 2 môn Văn, Toán: 6,5 trở lên.
-Không có môn nào dưới 5,0.
3.LOẠI TB:
-Điểm TB các môn: 5,0 trở lên.
-Điểm 1 trong 2 môn Văn, Toán: 5,0 trở lên.
-Không có môn nào dưới 3,5.
4.LOẠI YẾU:
-Điểm TB các môn:3,5 trở lên.
-Không có môn nào dưới 2,0.
5.LOẠI KÉM: Những trường hợp còn lại.
6.Một số trường hợp cần nâng bậc:
-Nếu ĐTB loại GIỎI (8,0 trở lên), có điểm 1 môn làm cho xuống loại TB thì xếp KHÁ.
-Nếu ĐTB loại GIỎI (8,0 trở lên), có điểm 1 môn làm cho xuống loại YẾU hoặc KÉM thì xếp TB.
-Nếu ĐTB loại KHÁ, có điểm 1 môn làm cho xuống loại YẾU thì xếp TB.
-Nếu ĐTB loại KHÁ, có điểm 1 môn làm cho xuống loại KÉM thì xếp YẾU.
boyxin đã viết:EM làm thế này, các bác xem thế nào rồi cho ý kiến để em học hỏi thêm
các bác xem thế nào rồi cho ý kiếnFunction XLHL(RangeDiem As Range, Toan, Van, Tb) As String
mon = RangeDiem.Cells.Count
duoi20 = Application.WorksheetFunction.CountIf(RangeDiem, "<2")
duoi35 = Application.WorksheetFunction.CountIf(RangeDiem, "<3.5")
duoi50 = Application.WorksheetFunction.CountIf(RangeDiem, "<5")
duoi65 = Application.WorksheetFunction.CountIf(RangeDiem, "<6.5")
If Tb >= 8 And (Toan >= 8 Or Van >= 8) And duoi65 = 0 Then
XLHL = "G"
ElseIf Tb >= 8 And (Toan >= 8 Or Van >= 8) And duoi65 = 1 And duoi50 = 1 And duoi35 = 0 Then
XLHL = "K"
ElseIf Tb >= 8 And (Toan >= 8 Or Van >= 8) And duoi65 = 1 And duoi50 = 1 And duoi35 = 1 Then
XLHL = "TB"
ElseIf Tb >= 6.5 And (Toan >= 6.5 Or Van >= 6.5) And duoi50 = 0 Then
XLHL = "K"
ElseIf Tb >= 6.5 And (Toan >= 6.5 Or Van >= 6.5) And duoi50 = 1 And duoi35 = 1 And duoi20 = 0 Then
XLHL = "TB"
ElseIf Tb >= 6.5 And (Toan >= 6.5 Or Van >= 6.5) And duoi50 = 1 And duoi35 = 1 And duoi20 = 1 Then
XLHL = "Y"
ElseIf Tb >= 5 And (Toan >= 5 Or Van >= 5) And duoi35 = 0 Then
XLHL = "TB"
ElseIf Tb >= 3.5 And duoi20 = 0 Then
XLHL = "Y"
Else
XLHL = "Kém"
End If
End Function
Đã chỉnh lại hàm xếp loại:boyxin đã viết:Còn đây là File có sử dụng VBA để xếp loại HỌC LỰC (VBA cua bác phamduylong) phải chỉnh sửa mới chạy đúng
http://www.giaiphapexcel.com/forum/attachment.php?attachmentid=8435&d=1205721150
Function XL40(RangeDiem As Range, Toan As Double, Van As Double, Tb) As String
If Tb = "" Or WorksheetFunction.CountIf(RangeDiem, "v") Then
XL40 = "-"
Exit Function
End If
duoi20 = WorksheetFunction.CountIf(RangeDiem, "<2")
duoi35 = WorksheetFunction.CountIf(RangeDiem, "<3.5")
duoi50 = WorksheetFunction.CountIf(RangeDiem, "<5")
duoi65 = WorksheetFunction.CountIf(RangeDiem, "<6.5")
If Tb >= 8 And (Toan >= 8 Or Van >= 8) And duoi65 = 0 Then
XL40 = "G"
ElseIf Tb >= 6.5 And (Toan >= 6.5 Or Van >= 6.5) And duoi50 = 0 Then
XL40 = "K"
ElseIf Tb >= 5 And (Toan >= 5 Or Van >= 5) And duoi35 = 0 Then
XL40 = "TB"
ElseIf Tb >= 3.5 And duoi20 = 0 Then
XL40 = "Y"
Else
XL40 = "Kém"
End If
'Xet nang bac loai Gioi
If Tb >= 8 And (Toan >= 8 Or Van >= 8) And duoi65 = 1 Then
If XL40 = "TB" Then
XL40 = "K"
ElseIf XL40 = "Y" Or XL40 = "Kém" Then
XL40 = "TB"
End If
'Xet nang bac loai Kha
ElseIf Tb >= 6.5 And (Toan >= 6.5 Or Van >= 6.5) And duoi50 = 1 Then
If XL40 = "Y" Then
XL40 = "TB"
ElseIf XL40 = "Kém" Then
XL40 = "Y"
End If
End If
End Function
chào bạn mình không phải là cao thủ đâu nhưng mình cũng giới thiệu với bạn hàm xếp loại theo qui chế 40 cho ban tham khảotuaxedo2910 đã viết:theo qui chế 40 thì khi hs bị điểm thành phần khống chế bị hạ xuống 2 bậc thì chỉ hạ xuống 1 bậc,ví dụ: hs A được điểm tổng kết là 7.0 nhưng có môn <=3.5 thì bị xuồng loại "trung bình" chứ không phải là kém,các cao thủ làm ơn viết giùm tui lại phần xếp loại học lực với, xin cám ơn
Về vấn đề ĐIỂM, XẾP LOẠI THEO QC 40, hỗ trợ công tác chủ nhiệm lớp THCS ...Tôi có làm cho học sinh THCS rồi nhưng không biết đưa lên để các bác xem xét các bác chỉ tôi cách đưa bài lên với. tôi chỉ đưa lên bài hướng dẫn còn phai đính kèm chưa đưa được nếu muốn gửi thư cho tôi.
BAÛNG TOÅNG HÔÏP HOÏC KYØ IVEÀ BÌATTHOÏ VAØ TEÂN LôùpToaùnLyùHoaùSinhVaênSöûÑòaNNGD
CDCNgTDAÂ nhMThTB
cm
HKKeát quaû xeáp loaïi
vaø danh hieäuBoû hoïcSoá ngaøy
nghæHLHKTÑ01Nay H' Bluim6,15,95,16,66,55,26,16,87,26,48,46,186,5KTHSTT02Nguyeãn HuyønhCaûm6,15,15,85,677,54,95,77,96,27,16,486,4TbK-03Thaùi Thò HoàngCuùc6,15,766,976,66,36,68,17,17,96,78,36,9KKHSTT04Siu H' Ñeng6,15,64,86,35,85,45,65,67,85,87,97,36,86,2TbT-05Ksor H' Han6,15,33,25,65,45,15,62,96,85,16,96,35,95,3YK-
tại ô mầu tím dùng công thức sau:
=IF(V5="";"";IF(AND(V5>=8;OR(G5>=8;K5>=8);MIN(G5:U5)>6,4);"G";IF(OR(AND(V5>=8;OR(G5>=8;K5>=8);MIN(G5:U5)>=3,5;COUNTIF(G5:U5;"<5")=1;COUNTIF(G5:U5;">=6.5")=(COUNT(G5:U5)-1));AND(V5>6,4;OR(G5>6,4;K5>6,4);MIN(G5:U5)>=5));"K";IF(OR(AND(V5>=8;OR(G5>=8;K5>=8);MIN(G5:U5)<3,5;COUNTIF(G5:U5;"<3.5")=1);AND(V5>=5;OR(G5>=5;K5>=5);MIN(G5:U5)>3,4);AND(V5>6,4;OR(G5>6,4;K5>6,4);MIN(G5:U5)>=2;COUNTIF(G5:U5;"<3.5")=1);COUNTIF(G5:U5;">6.4")=(COUNT(G5:U5)-1));"Tb";IF(OR(AND(V5>=3,5;MIN(G5:U5)>=2);AND(V5>6,4;OR(G5>6,4;K5>6,4);MIN(G5:U5)<5;COUNTIF(G5:U5;"<2")=1;COUNTIF(G5:U5;">=5")=(COUNT(G5:U5)-1)));"Y";"keùm")))))
theo qui chế 40 thì khi hs bị điểm thành phần khống chế bị hạ xuống 2 bậc thì chỉ hạ xuống 1 bậc,ví dụ: hs A được điểm tổng kết là 7.0 nhưng có môn <=3.5 thì bị xuồng loại "trung bình" chứ không phải là kém,các cao thủ làm ơn viết giùm tui lại phần xếp loại học lực với, xin cám ơn
Cho tôi hỏi: trong công thức tính : XL=IF(T3="","",IF(V3+1<MIN(T3:U3),V3+1,MIN(T3:V3))) vì sao lại sử dụng :V3+1<MIN(T3:U3)EM làm thế này, các bác xem thế nào rồi cho ý kiến để em học hỏi thêm
Mình sửa lại công thức cho tính điểm TBC và xếp loại cho gọn lại rồi.
Công thức sử dụng thêm 2 hàm là:
CountBlank và SumProduct.
Các bạn tham khảo nhé.
![]()