Bảng điểm dành cho GVCN (1 người xem)

[trihuu]

Mong Thầy Văn (lephuongvan) và các thành viên giúp đỡ cách tính ở cột R4, S4, V4 trong Bảng tổng hợp dưới đây ( Theo QĐ 51 : TD, NHAC, HOA : Xếp loại). Xin cảm ơn.

 

[SA_DQ]

Viết như vậy thì chỉ có người trong ngành mới giúp bạn được thôi; Hãy đợi nha!

 

[havietchuong]

Mong Thầy Văn (lephuongvan) và các thành viên giúp đỡ cách tính ở cột R4, S4, V4 trong Bảng tổng hợp dưới đây ( Theo QĐ 51 : TD, NHAC, HOA : Xếp loại). Xin cảm ơn.

Bạn nên nói rõ thêm một số yêu cầu để anh em có cở sở giúp bạn.
Một vấn đề tôi có ghi trong file kèm theo, bạn xem để bổ sung.

 

[Ba Tê]

Mong Thầy Văn (lephuongvan) và các thành viên giúp đỡ cách tính ở cột R4, S4, V4 trong Bảng tổng hợp dưới đây ( Theo QĐ 51 : TD, NHAC, HOA : Xếp loại). Xin cảm ơn.

Gởi Bạn một Bảng xem thử.
Nhớ chọn Macro - Security : Medium.
Enable Macros khi mở tập tin.

 

[trihuu]

Xin lỗi các thành viên, mình bổ sung Cách tính điểm TBM theo quyết định Số: 51/2008/QĐ-BGDĐT:
..."Điều 11". Điểm trung bình môn học, xếp loại trung bình môn học
1. Điểm trung bình môn của học kỳ, cả năm học đối với các môn học đánh giá bằng điểm:
a) Điểm trung bình môn của học kỳ (ĐTBmhk) là trung bình cộng của điểm các bài KTtx, KTđk và KThk với các hệ số quy định tại Điều 7 của Quy chế này:
ĐTBmhk = (ĐKTtx + 2 x ĐKTđk + 3 x ĐKThk)/Tổng các hệ số

b) Điểm trung bình môn của cả năm (ĐTBmcn) là trung bình cộng của ĐTBmhkI với ĐTBmhkII, trong đó ĐTBmhkII tính theo hệ số 2:
ĐTBmcn = (ĐTBmhkI + 2 x ĐTBmhkII)/3
"Điều 13. Tiêu chuẩn xếp loại học kỳ và xếp loại cả năm
1. Loại giỏi, nếu có đủ các tiêu chuẩn dưới đây:
a) Điểm trung bình các môn học từ 8,0 trở lên, trong đó: đối với học sinh THPT chuyên thì điểm môn chuyên từ 8,0 trở lên; đối với học sinh THCS và THPT không chuyên thì có 1 trong 2 môn Toán, Ngữ văn từ 8,0 trở lên;
b) Không có môn học nào điểm trung bình dưới 6,5 hoặc nhận xét dưới loại K.
2. Loại khá, nếu có đủ các tiêu chuẩn dưới đây:
a) Điểm trung bình các môn học từ 6,5 trở lên, trong đó: đối với học sinh THPT chuyên thì điểm môn chuyên từ 6,5 trở lên; đối với học sinh THCS và THPT không chuyên thì có 1 trong 2 môn Toán, Ngữ văn từ 6,5 trở lên;
b) Không có môn học nào điểm trung bình dưới 5,0 hoặc nhận xét dưới loại Tb.
3. Loại trung bình, nếu có đủ các tiêu chuẩn dưới đây:
a) Điểm trung bình các môn học từ 5,0 trở lên, trong đó: đối với học sinh THPT chuyên thì điểm môn chuyên từ 5,0 trở lên; đối với học sinh THCS và THPT không chuyên thì có 1 trong 2 môn Toán, Ngữ văn từ 5,0 trở lên;
b) Không có môn học nào điểm trung bình dưới 3,5 hoặc nhận xét loại Y.
4. Loại yếu: điểm trung bình các môn học từ 3,5 trở lên, không có môn học nào điểm trung bình dưới 2,0 hoặc nhận xét loại kém.
5. Loại kém: các trường hợp còn lại.
6. Nếu ĐTBhk hoặc ĐTBcn đạt mức quy định cho từng loại nói tại các khoản 1, 2, 3 Điều này, nhưng do ĐTB hoặc nhận xét của 1 môn học thấp hơn mức quy định cho loại đó cho nên học lực bị xếp thấp xuống thì được điều chỉnh như sau:
a) Nếu ĐTBhk hoặc ĐTBcn đạt mức loại G nhưng do ĐTB hoặc nhận xét của 1 môn học phải xuống loại Tb thì được điều chỉnh xếp loại K;
b) Nếu ĐTBhk hoặc ĐTBcn đạt mức loại G nhưng do ĐTB hoặc nhận xét của 1 môn học phải xuống loại Y hoặc kém thì được điều chỉnh xếp loại Tb;
c) Nếu ĐTBhk hoặc ĐTBcn đạt mức loại K nhưng do ĐTB hoặc nhận xét của 1 môn học phải xuống loại Y thì được điều chỉnh xếp loại Tb;
d) Nếu ĐTBhk hoặc ĐTBcn đạt mức loại K nhưng do ĐTB hoặc nhận xét của 1 môn học phải xuống loại kém thì được điều chỉnh xếp loại Y;
* Các bạn chỉ dẫn cách lập công thức bằng Excel thôi nhé, chứ viết bằng VBA mình "tịt" luôn.

 

[Ba Tê]

Xin lỗi các thành viên, mình bổ sung Cách tính điểm TBM theo quyết định Số: 51/2008/QĐ-BGDĐT:
..."Điều 11". Điểm trung bình môn học, xếp loại trung bình môn học
.......
* Các bạn chỉ dẫn cách lập công thức bằng Excel thôi nhé, chứ viết bằng VBA mình "tịt" luôn.

Bạn có tưởng tượng được nếu làm bằng công thức, nó sẽ dài bằng bài viết bên trên của Bạn không.
Bạn thử xem cách dùng công thức và cột phụ trong bài này thử xem có thể rút ngắn được phần nào không.
http://www.giaiphapexcel.com/forum/showthread.php?t=23159

Bây giờ thì tôi không dùng Bảng đó nữa.
Gởi Bạn Bảng này để tham khảo.

 

[trihuu]

Bạn ơi, tôi tải về chưa kịp bung ra thì Bkav Pro xơi tái mất macro trong chương trình rồi !

 

[Ba Tê]

Bạn ơi, tôi tải về chưa kịp bung ra thì Bkav Pro xơi tái mất macro trong chương trình rồi !

Chắc Bạn phải chỉnh lại điều kiện quét của BKAV, đừng cho xóa các Macro.
BKAV có chỗ phiền như thế đấy.

 

[trihuu]

Ba Te giúp mình nhé .

Ba Te có thể cho mình đoạn mã chương trình Xếp loại Học lực HKI, HKII, CN (theo QĐ 51) viết bằng Excel được không?

 

[Ba Tê]

Ba Te có thể cho mình đoạn mã chương trình Xếp loại Học lực HKI, HKII, CN (theo QĐ 51) viết bằng Excel được không?

Bạn xem trong topic này, Bài #4 của Bạn Huuthang_bd.
Nghiên cứu thử xem có ngộ ra điều gì không, với tôi thì "quá đã" rồi.
http://www.giaiphapexcel.com/forum/showthread.php?p=214494#post214494

 

[le phuong van]

Bổ sung bảng tổng hợp

Mong Thầy Văn (lephuongvan) và các thành viên giúp đỡ cách tính ở cột R4, S4, V4 trong Bảng tổng hợp dưới đây ( Theo QĐ 51 : TD, NHAC, HOA : Xếp loại). Xin cảm ơn.

Trong bảng tính của bạn mặc định sai (mình đã chỉnh lại):
1) Các môn N, H, TD không có loại KÉM!
2) Xếp loại hạnh kiểm không có loại GIỎI mà là TỐT!
(Do công thức quá dài nên mình phải cắt làm 2 cột)

 

[SA_DQ]

To Ba Tê: Mình có sửa hàm của bạn; Xin hãy kiểm lại giúp nha

Option Explicit
Public Function XepLoai(DiemMH As Range, DiemTB, Toan, Van As Double, MonXL As Range) As String
 Dim MinDiem As Double
 
With Application.WorksheetFunction
3   If .Max(DiemMH) > 10 Or Toan > 10 Or Van > 10 Then
      XepLoai = "Nhap Diem Sai":             Exit Function
5   End If
   MinDiem = .Min(DiemMH)
   
   If DiemTB >= 8 And (Toan >= 8 Or Van >= 8) And MinDiem >= 6.5 _
      And .Min(MonXL) >= 6.5 Then
      XepLoai = "G"                  'Dung loai G'

   ElseIf DiemTB >= 8 And (Toan >= 8 Or Van >= 8) And MinDiem >= 3.5 And .Min(MonXL) >= 6.5 _
      And (.CountIf(DiemMH, "<6.5") = 1 Or .CountIf(DiemMH, "<6,5") = 1) Then
    XepLoai = "K"           'Chieu co G - TB --> Khaù , vì coù 1 moân  6.5< ÑTB >=3.5'

   ElseIf DiemTB >= 8 And (Toan >= 8 Or Van >= 8) And MinDiem >= 6.5 _
      And .Min(MonXL) < 5 And .CountIf(MonXL, "<5") = 1 Then
      XepLoai = "TB"          'Chieu co G - Y(Kem) --> TB , coù 1 moân xeáp loaïi = Y, Keùm'
    
   ElseIf DiemTB >= 8 And (Toan >= 8 Or Van >= 8) And MinDiem < 3.5 And .Min(MonXL) >= 6.5 _
      And (.CountIf(DiemMH, "<6.5") = 1 Or .CountIf(DiemMH, "<6,5") = 1) Then
      XepLoai = "TB"                'Chieu co G - Y(Kem) --> TB , vì coù 1 moân  ÑTB < 3.5"'
    
   ElseIf DiemTB >= 6.5 And (Toan >= 6.5 Or Van >= 6.5) And MinDiem >= 5 _
      And .Min(MonXL) >= 5 Then
      XepLoai = "K"                  'Ñuùng loaïi Khaù'
    
   ElseIf DiemTB >= 6.5 And (Toan >= 6.5 Or Van >= 6.5) And MinDiem >= 5 _
      And .Min(MonXL) = 3.5 And .CountIf(MonXL, "<5") = 1 Then
      XepLoai = "TB"                   'Chieu co K - Y --> TB , coù 1 moân XL= Y'

   ElseIf DiemTB >= 6.5 And (Toan >= 6.5 Or Van >= 6.5) And MinDiem >= 2 _
      And .Min(MonXL) >= 5 And .CountIf(DiemMH, "<5") = 1 Then
      XepLoai = "TB"                   'Chieu co K - Y --> TB, coù 1 moân  2=<ÑTB<3.5'

   ElseIf DiemTB >= 6.5 And (Toan >= 6.5 Or Van >= 6.5) And WoMindiem >= 5 _
      And .Min(MonXL) = 2 And .CountIf(MonXL, "<5") = 1 Then
      XepLoai = "Y"                   'Chieu co K - Kem --> Y , coù 1 moân XL=Keùm'

   ElseIf DiemTB >= 6.5 And (Toan >= 6.5 Or Van >= 6.5) And MinDiem < 2 _
      And .Min(MonXL) >= 5 And .CountIf(DiemMH, "<5") = 1 Then
    XepLoai = "Y"                   'Chieu co K - Kem --> Y, coù 1 moân ÑTB<2'
    
   ElseIf DiemTB >= 5 And (Toan >= 5 Or Van >= 5) And MinDiem >= 3.5 _
      And .Min(MonXL) >= 5 Then
      XepLoai = "TB"                  'Loaïi TB'

   ElseIf DiemTB >= 3.5 And MinDiem >= 2 And .Min(MonXL) >= 3.5 Then
      XepLoai = "Y"                   'Ñuùng loaïi Yeu'
   Else
      XepLoai = "Kém"
   End If
End With
End Function

(*) Dùng cú pháp With . . . End With để thanh thoát trong chương trình, dễ bề kiểm sai sót!

(*) Những tính toán lặp lại ta nên gán vô biến để đỡ hao điện & nguồn lực của máy & xã hội!. (Bạn thử làm với hàm COUNTIF() tiếp xem nha!)

(*) Nên dùng Option Explicit trong mọi trường hợp (Tuy đó là chuyện nhỏ)

Chúc vui!

(Những mong đóng góp phần giọt nước cho đại dương nền giáo dục nước nhà, khà, khà,. . . )

 

[le phuong van]

Chỉnh bảng tổng hợp

Mong Thầy Văn (lephuongvan) và các thành viên giúp đỡ cách tính ở cột R4, S4, V4 trong Bảng tổng hợp dưới đây ( Theo QĐ 51 : TD, NHAC, HOA : Xếp loại). Xin cảm ơn.

Bạn kiểm tra xem có sai sót không?

 

[buithinhvan77]

Minh cung da lam duoc mot fie vua tinh diem vua loc DSHS gioi, kha, ( duoc ca cac cao nhan giup do) cac ban cung tham khao va xin bo sung them Sheet loc Danh sach HS yeu kem voi!

 

[chunganhvũ]

Gởi Bạn một Bảng xem thử.
Nhớ chọn Macro - Security : Medium.
Enable Macros khi mở tập tin.

Xin chào thầy Bá Tuế!
Tôi cũng đang sử dụng ứng dụng của thầy để quản lí điểm lớp CN. Nhìn chung ứng dụng của thầy rất hữu dụng nhưng lớp Cn tôi có thêm trường hợp HS được miễn môn thể dục thì xếp như thế nào hả thầy? Mong thầy nghiên cứu thêm trường hợp này.

 

[Xuân hiếu]

Tui gửi bạn cái này xem thử có được không? cái này mình làm cho cả trường luôn nên một lớp mình nghỉ cũng được bạn xem thử

Xin chào thầy Bá Tuế!
Tôi cũng đang sử dụng ứng dụng của thầy để quản lí điểm lớp CN. Nhìn chung ứng dụng của thầy rất hữu dụng nhưng lớp Cn tôi có thêm trường hợp HS được miễn môn thể dục thì xếp như thế nào hả thầy? Mong thầy nghiên cứu thêm trường hợp này.

 

[chunganhvũ]

Rất cám ơn thầy đã chia sẻ. Tôi không biết cách tính điểm, xếp loại của THCS có giống như THPT hay không? Nhìn chung ứng dụng của thầy rất hoành tráng!!!

 

[Xuân hiếu]

bạn xem file đính kèm này nha thử có được không.

Ba Te có thể cho mình đoạn mã chương trình Xếp loại Học lực HKI, HKII, CN (theo QĐ 51) viết bằng Excel được không?

 

[nhu ngoc]

Bảng tính điểm dùng cho các cấp : THCS ,THPT ,THPT Chuyên , TTGD TX
THEO QUI CHẾ 58
Các bạn dùng thử xem
http://www.mediafire.com/?p5o79p7bocq599d

 

[xuanhoa7604]

Tôi cũng đã tham khảo phần này của thầy. Tôi có một số góp ý với chương trình này của thầy mong thầy đừng bảo tôi là chỉ chê nhé. Tôi thấy nó nghiêng về trình bày nhiều quá. Nhiều màu, khó sử dụng. Tại sao thầy không làm cho bảng tính của mình đỡ rối hơn. Khi mới mở ra người sử dụng không biết làm thế nào nữa. Hướng dẫn sử dụng của thầy không chi tiết nên gây ra sự bỡ ngỡ cho người sử dụng.