- Tham gia
- 10/1/07
- Bài viết
- 1,120
- Được thích
- 623
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:
- Áp dụng cho khối chuyên:Mã:=XeploaiHS_THCS(G4:S4,T4)
Mã:=XeploaiHS_THCS(G4:S4,T4,N4) N4 - chính là môn chuyên (ngoại ngữ...)
Tốt nhất làChào bác nvson!
cho tôi hỏi mình viết code này vào mục nào sheet1, sheet2 ... hay Thisworkbook khi nhấn Alt+F11 ?
Với quy chế như thế này:Nhờ các bác sửa giúp công thức trong cột học lực theo quyết định 51/2008 (cụ thể là sheet TONGHOP1,TONGHOP2 và CANAM). Ở đây môn thể dục, nhạc, họa được đánh giá là T,Kh,TB,Y,K chứ không cho điểm như bảng tính của tôi. Tôi thử mãi mà không phù hợp, mong các bác cao tay giúp đỡ. Tôi cũng up luôn cái quy định lên cho các bác thao khảo. phần highlight là phần cần lưu ý nhất. Mong các bác giúp đỡ lần nữa nha. Xin cảm ơn.
Với quy chế như thế này:
Điều 11. Điểm trung bình môn học, xếp loại trung bình môn học
2. Xếp loại trung bình môn học của học kỳ, cả năm học đối với các môn học đánh giá bằng nhận xét:
Xếp loại trung bình môn học của học kỳ, của cả năm học là mức đánh giá chung kết quả của cả quá trình học tập, mức đánh giá chung được xác định từ kết quả nhận xét các bài KTtx, KTđk, KThk và xem xét mức độ tiến bộ đạt được về kiến thức, kỹ năng, thái độ học tập của học sinh trong cả học kỳ hoặc cả năm học.
thì bó tay. Bạn phải chờ GVBM xếp loại xong rồi lấy mà nhập vào bảng tính vì kết quả cuối cùng của điểm trung bình không phải là con số, mà cũng không phải là T+T+Kh=Kh hay T+T+Kh=T mà còn lệ thuộc vào thái độ học tập của học sinh trong cả học kỳ hoặc cả năm học tức lệ thuộc vào GVBM
Nhờ các bác sửa giúp công thức trong cột học lực theo quyết định 51/2008 (cụ thể là sheet TONGHOP1,TONGHOP2 và CANAM). Ở đây môn thể dục, nhạc, họa được đánh giá là T,Kh,TB,Y,K chứ không cho điểm như bảng tính của tôi. Tôi thử mãi mà không phù hợp, mong các bác cao tay giúp đỡ. Tôi cũng up luôn cái quy định lên cho các bác thao khảo. phần highlight là phần cần lưu ý nhất. Mong các bác giúp đỡ lần nữa nha. Xin cảm ơn.
Ở chỗ em thì được hướng dẫn như sau:Mình muốn tham gia viết hàm xếp loại với các bạn nhưng xem QĐ 51 thấy nó còn rối hơn QD40. Phải hiểu đúng quy chế mới viết công thức đúng, nhưng trong QĐ51 điều 13 chưa rõ, nhờ các bạn giải thích thêm:
Điểm trung bình các môn học, ĐTBhk, ĐTBcn giống nhau hay khác nhau. Cách tính các điểm đó như thế nào ?
Nếu giống nhau tại sao trong cùng 1 điều 13 lại sử dụng từ ngữ khác nhau ?
Nếu khác nhau thì cách tính các loại điểm đó như thế nào ?
T4 = (toán x 2 + Lý + Tin + Sinh + Ngữ văn x 2+ Sử + Địa + N.Ngữ + GĐC + C.nghệ) / 12
= AVERAGE(G4:P4,G4,K4)
Các bạn xem lại quy chế này, tôi thấy cách xếp loại trung bình theo quy chế có gì không chặt chẻ, dễ hiểu sai:
Điều 13. Tiêu chuẩn xếp loại học kỳ và xếp loại cả năm
1. Loại giỏi, nếu có đủ các tiêu chuẩn dưới đây:
a) Điểm trung bình các môn học từ 8,0 trở lên, trong đó: đối với học sinh THPT chuyên thì điểm môn chuyên từ 8,0 trở lên; đối với học sinh THCS và THPT không chuyên thì có 1 trong 2 môn Toán, Ngữ văn từ 8,0 trở lên;
b) Không có môn học nào điểm trung bình dưới 6,5 hoặc nhận xét dưới loại K.
2. Loại khá, nếu có đủ các tiêu chuẩn dưới đây:
..........
3. Loại trung bình, nếu có đủ các tiêu chuẩn dưới đây:
a) Điểm trung bình các môn học từ 5,0 trở lên, trong đó: đối với học sinh THPT chuyên thì điểm môn chuyên từ 5,0 trở lên; đối với học sinh THCS và THPT không chuyên thì có 1 trong 2 môn Toán, Ngữ văn từ 5,0 trở lên;
b) Không có môn học nào điểm trung bình dưới 3,5 hoặc nhận xét loại Y.
Câu hoặc nhận xét loại Y hiểu như thế nào?
Ví dụ điểm 2 em A và B cấp THCS:
Giống nhau:
- Trung bình các môn là 5,5. Môn Văn 6, Môn Toán 5
- Không có môn cho điểm nào dưới 3,5
Khác nhau:
Em A có 1 môn xếp loại Y, em B có 1 môn xếp loại TB
Xét theo quy chế thì em A xếp loại TB, còn em B không xếp được TB, mà phải xuống Y ?
Theo tôi, mục 3.b phải là:
b) Không có môn học nào điểm trung bình dưới 3,5 hoặc nhận xét dưới loại Y.
Theo em: điều 13, mục 3 khoản b cần thêm "hoặc kém"
Nhưng phải theo quy chế ! Tính sao đây ?Theo tôi, mục 3.b phải là:
b) Không có môn học nào điểm trung bình dưới 3,5 hoặc nhận xét dưới loại Y.
Nhưng phải theo quy chế ! Tính sao đây ?
Nguyên văn bởi phamduylong
Ví dụ điểm 2 em A và B cấp THCS:
Giống nhau:
- Trung bình các môn là 5,5. Môn Văn 6, Môn Toán 5
- Không có môn cho điểm nào dưới 3,5
Khác nhau:
Em A có 1 môn xếp loại Y, em B có 1 môn xếp loại TB
Xét theo quy chế thì em A xếp loại TB, còn em B không xếp được TB, mà phải xuống Y ?
Theo tôi, mục 3.b phải là:
b) Không có môn học nào điểm trung bình dưới 3,5 hoặc nhận xét dưới loại Y.