Hỏi hàm Excel để xếp loại hoc sinh THCS (5 người xem)

[huuhungpc]

Chào các bác!
Em là giáo viên THCS, đang bị giao nhiệm vụ quản lý điểm cho khoảng1200 học sinh, đến giữa học kỳ rồi mà công việc không được trôi chảy bởi viết mãi hàm Excel không đạt theo ý muốn. Xin báo nào am hiểu viết giúp cho hàm tính xếp lọai học lực học sinh THCS theo CV số 40 ngày 5 tháng 10 của Bộ GD-ĐT (có thể tải tại www.moet.gov.vn). Xin các bác cố giúp em, vì tương lai con em chúng nó thôi mà. Em co up load lên bảng điểm mẫu (mauxls)và quy định về đánh giá (danh gia XLHS.rar)cho các bác đây(chủ yếu là điều 13)

 

[nvson]

Bạn thử code sau nhé:

Public Function XeploaiHS_THCS(diemmonhoc As Range, diemtb)
'Day la ham viet cho khoi khong chuyen
'Lay tron diem trung binh sau dau thap phan 1 so
diemtb = Round(diemtb, 1)
If diemtb >= 8 And (diemmonhoc.Cells(1, 1) >= 8 Or diemmonhoc.Cells(1, 5) >= 8) And Kiemtradk(diemmonhoc, 6.5) Then
    XeploaiHS_THCS = "Gioi"
ElseIf diemtb >= 6.5 And (diemmonhoc.Cells(1, 1) >= 6.5 Or diemmonhoc.Cells(1, 5) >= 6.5) And Kiemtradk(diemmonhoc, 5) Then
    XeploaiHS_THCS = "Kha"
ElseIf diemtb >= 5 And (diemmonhoc.Cells(1, 1) >= 5 Or diemmonhoc.Cells(1, 5) >= 5) And Kiemtradk(diemmonhoc, 3.5) Then
    XeploaiHS_THCS = "Trung binh"
ElseIf diemtb >= 3.5 And Kiemtradk(diemmonhoc, 2) Then
    XeploaiHS_THCS = "Yeu"
Else
    XeploaiHS_THCS = "Kem"
End If
End Function
'Ham kiem tra xem cac mon hoc co bi thap hon mot gioi han nao do
Public Function Kiemtradk(diemmonhoci As Range, dki) As Boolean
Dim diemi
For Each diemi In diemmonhoci
    If diemi < dki Then
        Kiemtradk = False
        Exit Function
    End If
Next
Kiemtradk = True
End Function

Hoặc bạn có thể tải file về cho nhanh.

Ghi chú: Xếp loại học lực mình viết ở dạng không dấu (vì mình không biết bạn sử dụng VNI, Unicode, hay Telex... Bạn mở file mau.xls, nhấn Alt+F11 rồi sửa chỗ đó nhé.

 

[nvson]

Đáp ứng yêu cầu của bạn là chỉ dùng các hàm Excel thông thường đề phân loại học sinh bạn tải file sau nhé.

Chú ý: công thức trên chỉ áp dụng đối với khối không chuyên

 

[nvson]

Và đây là hàm viết cho cả khối chuyên và khối không chuyên

Public Function xlhs2(diemmonhoc As Range, diemtb, Optional monchuyen) As String
'Lay tron diem trung binh sau dau thap phan 1 so
diemtb = Round(diemtb, 1)
If IsMissing(monchuyen) Then
    If diemtb >= 8 And (diemmonhoc.Cells(1, 1) >= 8 Or diemmonhoc.Cells(1, 5) >= 8) And Application.WorksheetFunction.Min(diemmonhoc) >= 6.5 Then
        xlhs2 = "Gioi"
    ElseIf diemtb >= 6.5 And (diemmonhoc.Cells(1, 1) >= 6.5 Or diemmonhoc.Cells(1, 5) >= 6.5) And Application.WorksheetFunction.Min(diemmonhoc) >= 5 Then
        xlhs2 = "Kha"
    ElseIf diemtb >= 5 And (diemmonhoc.Cells(1, 1) >= 5 Or diemmonhoc.Cells(1, 5) >= 5) And Application.WorksheetFunction.Min(diemmonhoc) >= 3.5 Then
        xlhs2 = "Trung binh"
    ElseIf diemtb >= 3.5 And Application.WorksheetFunction.Min(diemmonhoc) >= 2 Then
        xlhs2 = "Yeu"
    Else
        xlhs2 = "Kem"
    End If
Else
    If diemtb >= 8 And monchuyen >= 8 And Application.WorksheetFunction.Min(diemmonhoc) >= 6.5 Then
        xlhs2 = "Gioi"
    ElseIf diemtb >= 6.5 And monchuyen >= 6.5 And Application.WorksheetFunction.Min(diemmonhoc) >= 5 Then
        xlhs2 = "Kha"
    ElseIf diemtb >= 5 And monchuyen >= 5 And Application.WorksheetFunction.Min(diemmonhoc) >= 3.5 Then
        xlhs2 = "Trung binh"
    ElseIf diemtb >= 3.5 And Application.WorksheetFunction.Min(diemmonhoc) >= 2 Then
        xlhs2 = "Yeu"
    Else
        xlhs2 = "Kem"
    End If
End If
'Dieu chinh hoc luc
If diemtb >= 8 And xlhs2 = "Trung binh" And WorksheetFunction.Small(diemmonhoc, 1) < 5 And WorksheetFunction.Small(diemmonhoc, 2) >= 5 Then
    xlhs2 = "Kha"
ElseIf diemtb >= 8 And (xlhs2 = "Yeu" Or xlhs2 = "Kem") And WorksheetFunction.Small(diemmonhoc, 1) < 2 And WorksheetFunction.Small(diemmonhoc, 2) >= 2 Then
    xlhs2 = "Trung binh"
ElseIf diemtb >= 6.5 And xlhs2 = "Yeu" And WorksheetFunction.Small(diemmonhoc, 1) < 3.5 And WorksheetFunction.Small(diemmonhoc, 2) >= 3.5 Then
    xlhs2 = "Trung binh"
ElseIf diemtb >= 6.5 And xlhs2 = "Kem" And WorksheetFunction.Small(diemmonhoc, 1) < 2 And WorksheetFunction.Small(diemmonhoc, 2) >= 2 Then
    xlhs2 = "Yeu"
End If
End Function

Chú ý khi sử dụng: Tham số thứ 3 (monchuyen) nếu không có thì sẽ áp dụng cho khối không chuyên, nếu có thì áp dụng cho khối chuyên
Chẳng hạn ở ô U4

- Áp dụng cho khối chuyên:

=XeploaiHS_THCS(G4:S4,T4)

- Áp dụng cho khối chuyên:

=XeploaiHS_THCS(G4:S4,T4,N4)
N4 - chính là môn chuyên (ngoại ngữ...)

 

[huuhungpc]

Hỏi hàm Excel để XL hoc sinh THCS

Vô cùng cảm ơn bác nvson đã dốc hết tâm sức giúp đỡ giúp tôi trong việc dùng hàm "ếch xeo" để xếp loại học lực học sinh THCS và THPT. Đây thực là điêu vô cùng quý báu đối với giáo viên chúng tôi. Quý vị nào cần xin tải ở bài viết số 3 (hàm excel) và số 4 (Visual Basic). Đọc kỹ hướng dẫn sử dụng trươc khi dùng!

 

[huuhungpc]

Hỏi hàm Excel để XL hoc sinh THCS

Kính gửi bác nvson! (các bác giáo viên quan tâm chú ý)
Qua mấy ngày thử nghiệm các hàm VB và excel của bác viết, các giáo viên của chúng tôi lại gặp những thắc mắc sau:
- Khối lớp 6,7 không học môn Hóa học nên cột Ngữ văn bị thay đổi, dẫn đến kết quả học lực cũng bị ảnh hưởng.
- Khối lớp 9 cũng bị kết quả tương tự vì học kỳ II lại không học môn nhạc họa.
Vậy bác có thể nghiên cứu giúp: phải làm thế nào để với bảng điểm như mau_new.xls thì máy chỉ tính các cột có giá trị, các cột không nhập coi như không học được không ạ. Mong bác nghiên cứu giúp vì tới nay vẫn chưa thể quản lý điểm của học sinh trong trường được.
Cảm ơn bác nhiều.

 

[nvson]

Có lẽ do file mau.xls của bạn mình download về mình không sửa ô tính điểm trung bình học kỳ DTBhk.

=SUM(G4:S4,[COLOR=red]G4,K4[/COLOR])/(COUNTA(G4:S4)+2)

Khi sử dụng cần chú ý:
- Bạn có thể thêm cột hoặc xoá cột để thêm môn học hoặc xoá môn học mà vẫn không ảnh hưởng gì.
- Nếu bạn muốn cả trường đều sử dụng chung một file thì có thể thêm các cột (trong khoảng từ cột H đến cột R). Các lớp không có môn nào thì không cần nhập.
- Nếu bạn có ý định sắp xếp lại trật tự các môn học thì chỉ cần chú ý 2 cột chứa môn toán và môn văn (vì 2 môn đó nhân hệ số 2) để thay đổi trong ô DTBhk (chính là G4 và K4 đấy).
Hàm VBA thì thêm 2 tham số là môn Toán và môn Văn thôi.

XLHS_THCS(diemmonhoc As Range, DiemTB, MonToan, MonVan, Optional MonChuyen)

Trong đó:
diemmonhoc: chọn mảng chứa tất cả các điểm của học sinh
DiemTB: Chọn ô chứa điểm trung bình (học kỳ)
MonToan: Chọn ô chứa điểm môn Toán
MonVan: Chọn ô chứa điểm môn Văn
MonChuyen: Chọn ô chứa điểm môn chuyên (nếu không chuyên thì không cần gọi thông số này)

 

[huuhungpc]

Hỏi hàm Excel để XL hoc sinh THCS

Qua sự gíup đỡ nhiệt tình của bác nvson, tôi đã hòan thành xong chương trình quản lý học sinh THCS bằng Excel. Nay gửi tất cả các bác giáo viên dùng thử và cho ý kiến nhé. Xin cảm ơn diễn đàn. có cả thảy 3 tập tin. Đ5c kỹ hướng dẫn sử dụng trước khi dùng.

 

[huuhungpc]

Hỏi hàm Excel để XL hoc sinh THCS

Các bác giáo viên lưu ý. Qua thử nghiệm thực tế thì phần mềm của tôi hôm trước. Bị sai nhiều khi xếp loại các trường hợp hịc sinh bị xếp loại từ trung bình trờ xuống. Nay tôi đã sửa lại, bác nào đang dùng thì copy du lieu qua này là ổn thôi (Copy công thức không cũng được.)

 

[nvson]

Dựa vào file của anh HuuHungPC tôi có chỉnh sửa đôi chút.
Các bạn download về dùng thử rồi cho ý kiến để tôi hoàn thiện!
Cách sử dụng:
Giải nén 2 file vào cùng 1 thư mục.
Chạy Excel, rồi Add-Ins file QLHS.xla

 

[thanhle]

QLHS rat hay. Cam on ban nvson rat nhieu, QLHS la cai ma toi dang tim kiem. Nhung ban co the huong dan cho toi cach lam the nao de duoc nhu the khong. Toi rat biet on neu duoc ban chi dan giup.
Toi cung co viet mot chuong trinh dung de xep loai hoc sinh THCS cua tung lop roi thong ke thanh ket qua cua ca truong. Neu chi su dung cho mot truong thi khong co van de gi, nhung de cho nhieu truong su dung thi phai dieu chinh thu cong (do so lop thay doi) rat bat tien va de sai sot. Toi can mot chuong trinh co tinh tu dong hon. Ban giup toi nhe, nvson.

Rieng ve QLHS cua ban thi thieu mon Tin hoc, con o phieu bao diem thi khong thay ket qua cac o diem TB, hoc luc, hanh kiem va danh hieu thi dua.

Cam on ban mot lan nua

---------------
OverAC: Bạn nên post bài có dấu nhé.

 

[ngtuan]

chuong trinh "QLHS" khong on,
1. Neu nhap mon van la mot mon la 5, mot mon la 1 tat ca ca mon con lai la 10 -> trung binh, dung ra la yeu.
2. chuong chinh khong tong quat vi co truong co mon den he so 3.
3. mon the duc neu hoc sinh duoc mien thi sao.

 

[ThuNghi]

Theo tôi, CT của anh NVSON là tuyệt và công phu, còn làm sao có thể dự trù hết các tình huống, phần mềm này mở nên các bạn có thể tham gia SC theo ý mình. Anh NVSon đã giúp chúng ta phần xây dựng CT là quá tốt rồi.
Còn nếu cụ thể bạn cần thế nào thì up file, sẽ có người giải quyết hộ các bạn.

 

[ngtuan]

-Bạn không hiểu gì cả, quan trọng của qui chế 40 là xếp loại học lực cho học sinh, và tính điểm trung bình thì phải loại trừ khả năng học sinh được miễn thể dục.
-Qui chế 40 là phân làm nhiều ban, nhưng chương trình không tổng quát, vì bám theo ban thì làm sao chạy được, vấn đề ở việc phân ban là ở hệ số môn học.
-Chỉ có cái khó là vấn đề xếp hạng, vì mỗi tỉnh thành khác nhau lại qui định 1 cách xếp hạng cho học sinh khác nhau.
-Bài toán này giải quyết không khó. tôi đã viết xong cho tất cả các mục, còn xếp hạng vì không biết qui định cụ thể của mỗi tỉnh nên bỏ trống thôi, Ai cần thì liên hệ qua mail: tuan_nguyen461@yahoo.com. tôi sent cho

 

[thanhle]

Điều tôi cần là cấu trúc của "QLHS" do ban nvson viết, còn hình thức và nội dung thì tuỳ mỗi người có thể "chế biến" theo thói quen sử dụng.

Bạn ngtuan, xin hãy gởi cho tôi bài toán mà bạn đã giải quyết.
Cảm ơn.

 

[concuada]

thế thì làm sao sửa được chương trình này theo quy định riêng trong khi bị khoá nhỉ
các bác chỉ cho cách với VBA bị khoá rồi

 

[haitcv]

Tôi đã xem sản phẩm của các Bác rồi ! rất cảm ơn các Bác
nhưng các bác cho hỏi có cách gì tạo được bảng cho toàn trường để mọi GV giảng dạy có thể tham gia với chứ mình GV chủ nhiệm nhập điểm thì rõ khổ. còn nếu GV bộ môn mà đi nhập cho từng lớp 1 thì trong máy có quá nhiều file không thống kê toàn trường được
và tôi thấy các bác chưa hổ trợ được việc nhập thiếu cột điểm của GV vd theo qĐịnh HS A phải có 7 cột điểm khi nhập 6 cột sẽ không cho kết quả trung bình môn như vậy sẽ tránh sai qui chế khi nhập thiếu cột điểm

Tôi cũng đã viết xong cho 1500 HS nhưng mắc một tội là file quá lớn 35MB và liên kết nhiều công thức nên chạy rất chậm theo các bác có cách gì viết nhẹ hơn không giúp tôi với

 

[tedaynui]

Chào haitcv
Chỉ có 1500 hs mà file lớn 35Mb vậy là quá lớn rồi đó bạn. Vậy mỗi lần Enter chắc phải chờ mệt luôn. Mình nghĩ bạn quản lý 1500 hs vừa hồ sơ, lý lịch, điểm số, thống kê... thì file cũng không > 15 Mb
Thân !

 

[chibi]

Bài toán này giải quyết không khó. tôi đã viết xong cho tất cả các mục, còn xếp hạng vì không biết qui định cụ thể của mỗi tỉnh nên bỏ trống thôi, Ai cần thì liên hệ qua mail: tuan_nguyen461@yahoo.com. tôi sent cho

Bạn post file của mình lên diễn đàn để mọi người tham khảo

nhưng các bác cho hỏi có cách gì tạo được bảng cho toàn trường để mọi GV giảng dạy có thể tham gia với chứ mình GV chủ nhiệm nhập điểm thì rõ khổ. còn nếu GV bộ môn mà đi nhập cho từng lớp 1 thì trong máy có quá nhiều file không thống kê toàn trường được

Theo tôi lên xây dựng bảng điểm trên một sheets, mỗi giáo viên được cấp 1 mật khẩu và tương ứng sẽ hiện ra các cột điểm bộ môn của giáo viên đó.

 

[haitcv]

Chào các bạn!
Mình cũng nghĩ rằng nên tạo mỗi môn học trên một sheet để bảo vệ song thực thế ở mình một GV có thể dạy nhiều phân môn thì biết bảo vệ thế nào? thôi thì tạo 15 môn trên 1 sheet để tiện đặt tên vùng
- Còn Gv có bảng nhập điểm phụ có thể nhập ở nhà, mang dến trường chép dán vào và in ra điểm TBM mang về nhà kiểm tra điểm nhập là xong mọi thống kê báo cáo trường đã có sẵn không cần GV báo cáo nữa..
-Thực tế năm học vừa qua GV toàn trường mình cũng ủng hộ và đã thực hiện thành công.
Nhưng báo hại trường phải mua thêm ram cho máy

file thì mình đã Zip lại rồi (6MB) nhưng mình mới tham gia diễn đàn này chưa biết post nó bằng cách nào bạn nào hướng dẫn cho mình cách post nhé.(6MB) post được không Có hướng dẫn liên hệ gì cho mình qua mail này haitcv@gmail.com