Sổ điểm cá nhân điện tử.

Chương trình sổ ghi điểm cá nhân điện tử mình viết trên Excel, các thầy cho ý kiến để hoàn thiện thêm nhé. (Viết phục vụ các thầy cô trong trường theo "yêu cầu" của PHT với quan điểm đơn giản, hiệu quả, dễ sử dụng)

[tannghia1977]

1. Tính trung bình như thế cũng không thành vấn đề. Tuy nhiên có thể dùng công thức sau cho nó gọn hơn.
=AVERAGE(D5:N5,J5:N5,N5)
2. Phần thống kê: Giỏi, Khá, TB, Yếu, Kém ở HKII thì sai do trong công thức tham chiếu sai.
3. Đã share thì cũng đừng nên khóa làm gì. Nếu có khóa thì cũng nên đưa 1 bản chưa khóa để ai cần thì có mà chỉnh sửa. Thật tình khóa như của thầy thì chỉ chừng 2 phút là mở ra rồi.

[tungld]

Khóa để cho các GV khác (không rành về Excel không sửa mã) quên chưa mở khóa thôi. cảm ơn thầy đã nhận xét. Em sẽ xem lại. Em đã up lại rùi đó

[tientung08]

báo cáo cuối năm để tổng hợp, theo dõi hàng năm

[tktrungkien]

Nguyên bản bởi tungld

Chương trình sổ ghi điểm cá nhân điện tử mình viết trên Excel, các thầy cho ý kiến để hoàn thiện thêm nhé. (Viết phục vụ các thầy cô trong trường theo "yêu cầu" của PHT với quan điểm đơn giản, hiệu quả, dễ sử dụng)

Xin được góp ý với thầy ý sau : Trong hàm xếp loại, ở hàm IF thứ 3 không cần phải xét điều kiện O5<8 vì nếu O5>=8 thì nó đã ghi "G" rồi. Tương tự cho các hàm IF sau đó.

[hungchng]

Gởi các thầy cô hàm xếp loại học lực theo quy chế 40
Function xlhl(Daydiem, DiemTB, Toan, Van)
DiemLonNhat = Application.WorksheetFunction.Max(Daydiem)
If DiemLonNhat > 10 Then
MsgBox "Du Liêu Không Hop Lí"
xlhl = "Ðiêm Lon Hon 10, Kiêm Tra Lai"
Exit Function
End If
If DiemTB = "" Then
xlhl = ""
Exit Function
End If
Dem65 = Application.WorksheetFunction.CountIf(Daydiem, "<6.5")
Dem50 = Application.WorksheetFunction.CountIf(Daydiem, "<5")
Dem35 = Application.WorksheetFunction.CountIf(Daydiem, "<3.5")
Dem20 = Application.WorksheetFunction.CountIf(Daydiem, "<2")
If DiemTB >= 8 And Dem65 = 0 And (Toan >= 8 Or Van >= 8) Then
xlhl = "Gi" & ChrW(7887) & "i"
ElseIf (DiemTB >= 8 And (Toan >= 8 Or Van >= 8) And Dem65 = 1 And Dem50 = 1 And Dem35 = 0) Or (DiemTB >= 6.5 And Dem50 = 0 And (Toan >= 6.5 Or Van >= 6.5)) Then
xlhl = "Khá"
ElseIf (DiemTB >= 8 And (Toan >= 8 Or Van >= 8) And Dem50 = 1 And Dem35 = 1 And Dem20 = 1) Or (DiemTB >= 8 And (Toan >= 8 Or Van >= 8) And Dem50 = 1 And Dem35 = 1 And Dem20 = 0) Or (DiemTB >= 6.5 And (Toan >= 6.5 Or Van >= 6.5) And Dem50 = 1 And Dem35 = 1 And Dem20 = 0) Or (DiemTB >= 5 And Dem35 = 0 And (Toan >= 5 Or Van >= 5)) Then
xlhl = "TBình"
ElseIf (DiemTB >= 5 And (Toan >= 5 Or Van >= 5) And Dem35 = 1 And Dem20 = 1) Or (DiemTB >= 6.5 And (Toan >= 6.5 Or Van >= 6.5) And Dem50 = 1 And Dem35 = 1 And Dem20 = 1) Or (DiemTB >= 3.5 And Dem20 = 0 And (Toan >= 3.5 Or Van >= 3.5)) Then
xlhl = "Y" & ChrW(7871) & "u"
Else
xlhl = "Kém"
End If
End Function

[BANH]

Nguyên bản bởi tientung08

báo cáo cuối năm để tổng hợp, theo dõi hàng năm

báo cáo này gọi là EMIS phải không thầy, có phải mẫu mới không, em đang cần nó, cảm ơn thầy nhiều

[nghiasp2002]

Sổ điểm cá nhân và giáo viên chủ nhiệm mời các bạn xem và tham khảo

[khoasinh]

Nguyên bản bởi tannghia1977

1. Tính trung bình như thế cũng không thành vấn đề. Tuy nhiên có thể dùng công thức sau cho nó gọn hơn.
=AVERAGE(D5:N5,J5:N5,N5)
2. Phần thống kê: Giỏi, Khá, TB, Yếu, Kém ở HKII thì sai do trong công thức tham chiếu sai.
3. Đã share thì cũng đừng nên khóa làm gì. Nếu có khóa thì cũng nên đưa 1 bản chưa khóa để ai cần thì có mà chỉnh sửa. Thật tình khóa như của thầy thì chỉ chừng 2 phút là mở ra rồi.

Thầy chỉ tôi cách phá PW khóa sheet trong Exel tôi đang gặp canh rở khóc rở cười vì vấn đề đó!

[nghiasp2002]

Xếp loại lớp theo toàn khối và toàn trường