Hỏi hàm Excel để xếp loại hoc sinh THCS

Thảo luận trong 'Excel và Giáo Dục' bắt đầu bởi huuhungpc, 20 Tháng mười 2006.

  1. huuhungpc

    huuhungpc New Member

    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)
     

    Các file đính kèm:

  2. nvson

    nvson Geotechnics

    Bạn thử code sau nhé:
    Mã:
    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é.
     
    Last edited: 9 Tháng mười một 2006
  3. nvson

    nvson Geotechnics

    Đá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
     

    Các file đính kèm:

    Last edited: 23 Tháng mười 2006
  4. nvson

    nvson Geotechnics

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


    Mã:
    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:
    Mã:
    =XeploaiHS_THCS(G4:S4,T4)
    
    - Áp dụng cho khối chuyên:
    Mã:
    =XeploaiHS_THCS(G4:S4,T4,N4)
    N4 - chính là môn chuyên (ngoại ngữ...)
    
     
    Last edited: 23 Tháng mười 2006
  5. huuhungpc

    huuhungpc New Member

    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!
     
  6. huuhungpc

    huuhungpc New Member

    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.
     
  7. nvson

    nvson Geotechnics

    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.
    Mã:
    =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.
    Mã:
    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)
     

    Các file đính kèm:

    Last edited: 25 Tháng mười 2006
  8. huuhungpc

    huuhungpc New Member

    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.
     
    Last edited: 26 Tháng mười một 2006
  9. huuhungpc

    huuhungpc New Member

    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.)
     

    Các file đính kèm:

    • New.rar
      Kích thước:
      258.8 KB
      Đọc:
      1,323
  10. nvson

    nvson Geotechnics

    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

    [​IMG]
     

    Các file đính kèm:

    • QLHS.rar
      Kích thước:
      52.6 KB
      Đọc:
      1,160
  11. thanhle

    thanhle New Member

    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é.
     
    Last edited by a moderator: 28 Tháng một 2007
  12. ngtuan

    ngtuan New Member

    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.
     
  13. ThuNghi

    ThuNghi Hãy cho rồi sẽ nhận!

    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.
     
  14. ngtuan

    ngtuan New Member

    -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
     
  15. thanhle

    thanhle New Member

    Đ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.
     
  16. concuada

    concuada New Member

    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
     
  17. haitcv

    haitcv New Member

    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
     
  18. tedaynui

    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 !
     
  19. chibi

    chibi Thành viên danh dự

    Bạn post file của mình lên diễn đàn để mọi người tham khảo
    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 đó.
     
  20. haitcv

    haitcv New Member

    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
     
    Last edited: 17 Tháng sáu 2007

Chia sẻ trang này