Trang 1/6 1 2 3 4 5 ... cuốicuối
Hiển thị kết quả tìm kiếm từ 1 đến 10 trên tổng số: 60
  1. #1

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

    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)
    Tập tin đính kèm Tập tin đính kèm

  2. Thành viên sau cảm ơn huuhungpc về bài viết này:


  3. #2
    Tham gia ngày
    09 2006
    Nơi Cư Ngụ
    Thái Bình - Quảng Ninh
    Bài gởi
    783
    Cảm ơn
    187
    Được cảm ơn 1,218 lần trong 489 bài viết
    Bạn thử code sau nhé:
    Code:
    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é.
    thay đổi nội dung bởi: nvson, 09-11-06 lúc 07:56 AM

  4. Có 2 thành viên cảm ơn nvson về bài viết này:


  5. #3
    Tham gia ngày
    09 2006
    Nơi Cư Ngụ
    Thái Bình - Quảng Ninh
    Bài gởi
    783
    Cảm ơn
    187
    Được cảm ơn 1,218 lần trong 489 bài viết
    Đá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
    Tập tin đính kèm Tập tin đính kèm
    thay đổi nội dung bởi: nvson, 23-10-06 lúc 11:16 AM

  6. Có 3 thành viên cảm ơn nvson về bài viết này:


  7. #4
    Tham gia ngày
    09 2006
    Nơi Cư Ngụ
    Thái Bình - Quảng Ninh
    Bài gởi
    783
    Cảm ơn
    187
    Được cảm ơn 1,218 lần trong 489 bài viết
    Và đây là hàm viết cho cả khối chuyên và khối không chuyên


    Code:
    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:
    Code:
    =XeploaiHS_THCS(G4:S4,T4)
    - Áp dụng cho khối chuyên:
    Code:
    =XeploaiHS_THCS(G4:S4,T4,N4)
    N4 - chính là môn chuyên (ngoại ngữ...)
    thay đổi nội dung bởi: nvson, 23-10-06 lúc 02:13 PM

  8. Có 2 thành viên cảm ơn nvson về bài viết này:


  9. #5

    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!
    Nhẫn một chút sóng yên gió lặng.
    Lùi một bước biển rộng trời cao!

  10. Thành viên sau cảm ơn huuhungpc về bài viết này:


  11. #6

    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.
    Nhẫn một chút sóng yên gió lặng.
    Lùi một bước biển rộng trời cao!

  12. Thành viên sau cảm ơn huuhungpc về bài viết này:


  13. #7
    Tham gia ngày
    09 2006
    Nơi Cư Ngụ
    Thái Bình - Quảng Ninh
    Bài gởi
    783
    Cảm ơn
    187
    Được cảm ơn 1,218 lần trong 489 bài viết
    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.
    Code:
    =SUM(G4:S4,G4,K4)/(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.
    Code:
    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)
    Tập tin đính kèm Tập tin đính kèm
    thay đổi nội dung bởi: nvson, 25-10-06 lúc 08:50 PM

  14. Có 3 thành viên cảm ơn nvson về bài viết này:


  15. #8

    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.
    thay đổi nội dung bởi: huuhungpc, 26-11-06 lúc 12:49 PM
    Nhẫn một chút sóng yên gió lặng.
    Lùi một bước biển rộng trời cao!

  16. #9

    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.)
    Tập tin đính kèm Tập tin đính kèm
    • Loại tập tin: rar New.rar (258.8 KB, 1296 lần tải)
    Nhẫn một chút sóng yên gió lặng.
    Lùi một bước biển rộng trời cao!

  17. Có 3 thành viên cảm ơn huuhungpc về bài viết này:


  18. #10
    Tham gia ngày
    09 2006
    Nơi Cư Ngụ
    Thái Bình - Quảng Ninh
    Bài gởi
    783
    Cảm ơn
    187
    Được cảm ơn 1,218 lần trong 489 bài viết
    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

    Tập tin đính kèm Tập tin đính kèm

  19. Có 5 thành viên cảm ơn nvson về bài viết này:


Trang 1/6 1 2 3 4 5 ... cuốicuối

Thông tin về chủ đề này

Users Browsing this Thread

Hiện có 1 người đang xem đề tài này. (0 thành viên và 1 khách)

Đề tài tương tự

  1. Giúp tôi công thức thống kê điểm học sinh THCS với
    Viết bởi hongtu76 trong chuyên mục Excel và Giáo Dục
    Trả lời: 3
    Bài mới gởi: 19-03-12, 10:10 PM
  2. Đánh giá xếp loại học sinh THCS
    Viết bởi duchoa trong chuyên mục Excel và Giáo Dục
    Trả lời: 7
    Bài mới gởi: 17-12-11, 10:41 AM
  3. Hỗ trợ thi học sinh giỏi THCS
    Viết bởi dvu58 trong chuyên mục Excel và Giáo Dục
    Trả lời: 6
    Bài mới gởi: 06-02-11, 06:56 PM
  4. Chương trình quản lý điểm và xếp loại cho học sinh THCS
    Viết bởi heo2004 trong chuyên mục Excel và Giáo Dục
    Trả lời: 8
    Bài mới gởi: 28-04-10, 08:52 PM
  5. Thêm một chuơng trình xếp loại học sinh THCS
    Viết bởi thanhle trong chuyên mục Excel và Giáo Dục
    Trả lời: 14
    Bài mới gởi: 17-10-09, 06:13 PM

Bookmarks

Bookmarks

Quyền Sử Dụng Ở Diễn Ðàn

  • Bạn không thể đăng đề tài mới
  • Bạn không thể đăng trả lời
  • Bạn không thể đăng file đính kèm.
  • Bạn không thể sửa bài viết.
  •  

Mudim v0.8 Tắt VNI Telex Viqr Tổng hợp
Chính tả Bỏ dấu kiểu mới  [Bật/Tắt (F9)]