Giúp kiểm tra hàm xếp loại học lực theo thông tư 58

[xuanhoa7604]

Các thầy cô kiểm tra giúp hàm xếp loại học lực trong file đính kèm (nhớ Enable Macro) xem đã đúng theo thông tư 58 chưa (phần điều chỉnh học lực ấy). Cảm ơn các thầy cô nhiều!


6. Nếu ĐTB[SUB]hk[/SUB] hoặc ĐTB[SUB]cn[/SUB] đạt mức của từng loại quy định tại các Khoản 1, 2 điều này nhưng do kết quả của một môn học nào đó thấp hơn mức quy định cho loại đó nên học lực bị xếp thấp xuống thì được điều chỉnh như sau:
a) Nếu ĐTB[SUB]hk[/SUB] hoặc ĐTB[SUB]cn[/SUB] đạt mức loại G nhưng do kết quả của một môn học nào đó mà phải xuống loại Tb thì được điều chỉnh xếp loại K.
b) Nếu ĐTB[SUB]hk[/SUB] hoặc ĐTB[SUB]cn[/SUB] đạt mức loại G nhưng do kết quả của một môn học nào đó mà phải xuống loại Y thì được điều chỉnh xếp loại Tb.
c) Nếu ĐTB[SUB]hk[/SUB] hoặc ĐTB[SUB]cn[/SUB] đạt mức loại K nhưng do kết quả của một môn học nào đó mà phải xuống loại Y thì được điều chỉnh xếp loại Tb.
d) Nếu ĐTB[SUB]hk[/SUB] hoặc ĐTB[SUB]cn[/SUB] đạt mức loại K nhưng do kết quả của một môn học nào đó mà phải xuống loại Kém thì được điều chỉnh xếp loại Y.

 

[nghiaphuc]

Các thầy cô kiểm tra giúp hàm xếp loại học lực trong file đính kèm (nhớ Enable Macro) xem đã đúng theo thông tư 58 chưa (phần điều chỉnh học lực ấy). Cảm ơn các thầy cô nhiều!

6. Nếu ĐTB[SUB]hk[/SUB] hoặc ĐTB[SUB]cn[/SUB] đạt mức của từng loại quy định tại các Khoản 1, 2 điều này nhưng do kết quả của một môn học nào đó thấp hơn mức quy định cho loại đó nên học lực bị xếp thấp xuống thì được điều chỉnh như sau:
a) Nếu ĐTB[SUB]hk[/SUB] hoặc ĐTB[SUB]cn[/SUB] đạt mức loại G nhưng do kết quả của một môn học nào đó mà phải xuống loại Tb thì được điều chỉnh xếp loại K.
b) Nếu ĐTB[SUB]hk[/SUB] hoặc ĐTB[SUB]cn[/SUB] đạt mức loại G nhưng do kết quả của một môn học nào đó mà phải xuống loại Y thì được điều chỉnh xếp loại Tb.
c) Nếu ĐTB[SUB]hk[/SUB] hoặc ĐTB[SUB]cn[/SUB] đạt mức loại K nhưng do kết quả của một môn học nào đó mà phải xuống loại Y thì được điều chỉnh xếp loại Tb.
d) Nếu ĐTB[SUB]hk[/SUB] hoặc ĐTB[SUB]cn[/SUB] đạt mức loại K nhưng do kết quả của một môn học nào đó mà phải xuống loại Kém thì được điều chỉnh xếp loại Y.

Bạn đưa file lên nhờ xem giúp, vậy mà cái quan trọng nhất là code thì bạn lại khóa đi, vậy thì mọi người xem cái gì?

 

[aviaiva]

Sao bác này không chém thẳng đạt (Đ), chưa đạt CĐ lại còn 101 với 102, nếu muốn dùng VBA thì chữ Đ sửa thành

ChrW(272)

CĐ =

"C" & ChrW(272)

viết chương trình mà bắt người dùng qui ước nhiều cái quá dễ lẫn lắm

em tét code chưa được chuẩn lắm trường hợp TB của tất cả các môn là >=8, môn nhận xét đạt hết một môn dưới <2 thì phải xếp loại yếu, nhưng code này ra loại kém là sai rùi

và lần sau bác cũng nên thông thoáng cái code VBA ra (không pass, không dấu diếm) , nhiều khi mọi người góp ý bằng bác ngồi code cả tuần.

 

[le phuong van]

Bạn đưa file lên nhờ xem giúp, vậy mà cái quan trọng nhất là code thì bạn lại khóa đi, vậy thì mọi người xem cái gì?

Thì cứ góp ý bảng tính sắp xếp có hợp lý, có đẹp không là được rồi!!!

 

[sunplay]

Giúp kiểm tra hàm xếp loại học lực theo thông tư 58

Thì cứ góp ý bảng tính sắp xếp có hợp lý, có đẹp không là được rồi!!!

Xin lỗi bác rất nhiều vì không biết bác có bề dầy thành tích trong lĩnh vực công nghệ thông tin như vậy; em chỉ là tay mơ mới tập tành máy tính nên "ngựa non háu đá" có xúc phạm bác, mong bác bỏ quá cho em nhe. Chân thành cám ơn bác rất nhiều.

 

[le phuong van]

Học hỏi - trao đổi

Bảng tính của bạn đẹp lắm, nhưng rườm rà; bạn muốn khoe thì cứ nói thẳng, chứ đừng nhờ người khác quảng cáo giúp bạn. Cùng học hỏi, trao đỗi là một việc bạn cần nên làm; không nên khoe khoang - khoác lác nhé.

Ui da! Nào là: quảng cáo, khoe khoang, khoác lác,...Sao bạn giận cá lại đi chém thớt! Bảng tính của mình có tội gì chứ!
Nếu bạn muốn "nói thẳng" thì khi bảng tính bị khóa: không biết cách họ làm, công thức không thấy, vậy bạn "học hỏi" được gì? Công thức của họ dài dòng hơn, có sai sót vậy bạn có biết để "trao đổi" được không? Muốn tính điểm trung bình bạn có tin có thể dùng 5,10 cách để được kết quả chính xác như nhau không? Vậy che công thức thì học hỏi, trao đổi chỗ nào đây? Bạn xem lại bài của bạn nghiaphuc cũng góp ý như thế, mặc dù phá pass đối với các bạn ấy là chuyện nhỏ.
Bạn cho mình "khoe" một chút nha: Chương trình của mình đã được viết từ niên khóa 2002-2003. Từ năm 2004-2008 rải rác được đăng trên báo eChip. Năm 2008 đạt giải 3 thành phố của Hội Khoa Học Và Kỹ Thuật (lần thứ 9), sau đó được đài truyền hình Đà Nẵng phỏng vấn và phát hình. Năm 2009 một GV ở tp CT đã sao chép của mình và cũng đã được giải thưởng vì có "Sáng kiến kinh nghiệm" này.
Cám ơn, nhờ bạn mà mình có dịp được "khoe thành tích", mặc dù từ khi tham gia diễn đàn hầu như ít ai biết đến những điều kể trên.
Mình cũng xin nói thêm: trong năm 2008, báo Đà Nẵng cũng tự ý "quảng cáo" chương trình của mình lên báo mà không hỏi ý kiến tác giả, mình chỉ là GV dạy Lý, hiện nay đã về hưu và cũng chưa được học qua trường lớp nào về vi tính. Không biết bạn có cho những điều trên là "khoác lác" hay không? Nếu cần xác minh, bạn gởi email cho mình, mình sẽ cung cấp thêm thông tin!

 

[thunthp]

Mình cũng có viết hàm xếp loại học lực theo thông tu 58 nhưng thấy nó hơi dài. Các anh em nào có cách viết ngắn gọn xin cho góp ý.

Public Function XeploaiHL(Cacmon As Range, Toanvan As Range, Tbm As Range) As String
Dim Min As Double, max As Double, Dtb As Double, n As Range
Dim Dem As Byte, m As Byte, Loai As String

Dem = Cacmon.Columns.Count
Min = Cacmon.Cells(1, 1).Value
m = 0
For Each n In Cacmon
If n.Cells.Value > 0 Then
m = m + 1
End If
If n.Cells.Value < Min Then
Min = n.Cells.Value
End If
Next n
If Toanvan.Cells(1, 1).Value > Toanvan.Cells(1, 2).Value Then
max = Toanvan.Cells(1, 1).Value
Else
max = Toanvan.Cells(1, 2).Value
End If
Dtb = tbm.Cells(1, 1).Value

If (Dem = m And max >= 8 And Min >= 6.5 And Dtb >= 8) Then
Loai = "Gi" & ChrW(7887) & "i"
ElseIf (Dem = m And max >= 6.5 And Min >= 5 And Dtb >= 6.5) Then
Loai = "Kh" & ChrW(225)
ElseIf (Dem = m And max >= 5 And Min >= 3.5 And Dtb >= 5) Then
Loai = "TB"
ElseIf (Dem = m And max >= 3.5 And Min >= 1 And Dtb >= 3.5) Then
Loai = "Y" & ChrW(7871) & "u"
Else
Loai = ""
End If
XeploaiHL = Loai
End Function