Nhờ xếp loại giùm bảng điểm thống học sinh lên lớp và học sinh thi lại

[ongtrungducmx25]

Nhờ xếp loại giùm bảng điểm,xếp thống kê học sinh lên lớp thẳng và học sinh thi lại! học sinh thi lại các môn cụ thể như là.
vd: học sinh thi lại (và rèn luyện trong hè)
--------------------------------
1/Nguyễn văn A
môn thi lại: Toán,Anh,v.v.......
2/Cao Trung Đức
môn thi lại: Văn, Công Nghệ,.v.v......
-----------------------------------
Xin cám ơn nhiều!hhiihi. (Em đang cần gắp báo cáo chủ nhiệm cả năm)

 

[huuthang_bd]

Nhờ xếp loại giùm bảng điểm,xếp thống kê học sinh lên lớp thẳng và học sinh thi lại! học sinh thi lại các môn cụ thể như là.
vd: học sinh thi lại (và rèn luyện trong hè)
--------------------------------
1/Nguyễn văn A
môn thi lại: Toán,Anh,v.v.......
2/Cao Trung Đức
môn thi lại: Văn, Công Nghệ,.v.v......
-----------------------------------
Xin cám ơn nhiều!hhiihi. (Em đang cần gắp báo cáo chủ nhiệm cả năm)

Công thức xếp loại học lực (Cho ô T2)

T2=CHOOSE(INT(MIN((S2-0.5)/1.5,(MAX(D2,H2)-0.5)/1.5,(MIN(D2:R2)+1)/1.5)),"KÉM","YẾU","TB","KHÁ","GiỎI")

Không thấy bạn nói gì về điều kiện lên lớp, thi lại nên không biết thống kê như thế nào.

 

[ongtrungducmx25]

Công thức xếp loại học lực (Cho ô T2)

T2=CHOOSE(INT(MIN((S2-0.5)/1.5,(MAX(D2,H2)-0.5)/1.5,(MIN(D2:R2)+1)/1.5)),"KÉM","YẾU","TB","KHÁ","GiỎI")

Không thấy bạn nói gì về điều kiện lên lớp, thi lại nên không biết thống kê như thế nào.

Trong file của mình có tiêu chuẩn xếp loại Học Lưc(H-L) rồi! chỉ có đều là mình không biết sử dụng công thức xếp số học sinh thi lại môn nào đây (học sinh thi lại có điểm số dưới 5.0).

 

[le phuong van]

Chọn môn thi lại

Trong file của mình có tiêu chuẩn xếp loại Học Lưc(H-L) rồi! chỉ có đều là mình không biết sử dụng công thức xếp số học sinh thi lại môn nào đây (học sinh thi lại có điểm số dưới 5.0).

Câu văn của bạn không rõ ràng làm người khác không hiểu ý của bạn muốn gì. Phải là người "trong nghề" mới đoán được: Có phải bạn cần điều này không?

 

[Ba Tê]

Trong file của mình có tiêu chuẩn xếp loại Học Lưc(H-L) rồi! chỉ có đều là mình không biết sử dụng công thức xếp số học sinh thi lại môn nào đây (học sinh thi lại có điểm số dưới 5.0).

Thi lại môn nào để đủ điều kiện lên lớp phải tính toán, nêu ra tất cả các môn dưới 5 chỉ là tham khảo, nhiều khi chỉ cần thi lại vài môn có điểm cao cao là đủ. Bạn thử công thức này tại ô thi lại:

=IF(T2="YẾU";CONCATENATE(IF(D2<5;"+"&$D$1;"");IF(E2<5;"+"&$E$1;"");IF(F2<5;"+"&$F$1;"");IF(G2<5;"+"&$G$1;"");IF(H2<5;"+"&$H$1;"");IF(I2<5;"+"&$I$1;"");IF(J2<5;"+"&$J$1;"");IF(K2<5;"+"&$K$1;"");IF(L2<5;"+"&$L$1;"");IF(M2<5;"+"&$M$1;"");IF(N2<5;"+"&$N$1;"");IF(O2<5;"+"&$O$1;"");IF(P2<5;"+"&$P$1;"");IF(Q2<5;"+"&$Q$1;"");IF(R2<5;"+"&$R$1;""));"")

Xin một ý: Điều kiện loại Yếu không cần có môn Toán hoặc Văn >=3.5 đâu, với lại các điều kiện trong mục 6 dưới đây Bạn chưa xét đến.

--------
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.
4. Loại yếu: điểm trung bình các môn học từ 3,5 trở lên, không có môn học nào điểm trung bình dưới 2,0 hoặc nhận xét loại kém.
5. Loại kém: các trường hợp còn lại.
6. Nếu ĐTBhk hoặc ĐTBcn đạt mức quy định cho từng loại nói tại các khoản 1, 2, 3 Điều này, nhưng do ĐTB hoặc nhận xét của 1 môn học thấp hơn mức quy định cho loại đó cho nên học lực bị xếp thấp xuống thì được điều chỉnh như sau:
a) Nếu ĐTBhk hoặc ĐTBcn đạt mức loại G nhưng do ĐTB hoặc nhận xét của 1 môn học phải xuống loại Tb thì được điều chỉnh xếp loại K;
b) Nếu ĐTBhk hoặc ĐTBcn đạt mức loại G nhưng do ĐTB hoặc nhận xét của 1 môn học phải xuống loại Y hoặc kém thì được điều chỉnh xếp loại Tb;
c) Nếu ĐTBhk hoặc ĐTBcn đạt mức loại K nhưng do ĐTB hoặc nhận xét của 1 môn học phải xuống loại Y thì được điều chỉnh xếp loại Tb;
d) Nếu ĐTBhk hoặc ĐTBcn đạt mức loại K nhưng do ĐTB hoặc nhận xét của 1 môn học phải xuống loại kém thì được điều chỉnh xếp loại Y;
đ) Nếu ĐTBhk hoặc ĐTBcn đạt mức loại Tb nhưng do ĐTB hoặc nhận xét của 1 môn học phải xuống loại kém thì xếp loại kém, không điều chỉnh xếp loại”.

 

[ongtrungducmx25]

nhờ sắp xếp thêm về thứ tự (vì trong bản tính của em nhiều hàng trống quá) em muốn dồn hàng lại để in ra giấy.
-------------------
sheet chưa sắp xếp (còn nhiều hàng trống)

TT​

|

Họ tên​

| | |

Nữ​

|

Năm sinh​

|

Dân tộc​

|

Ấp​

|

1​

|Sơn|Huôl|DT| |1995|

Khm​

|Bưng Sa|

2​

|Lý Duy|Khoa|DT| |1995|

Khm​

|Tiếp Nhựt|

3​

| | | | | | | |

4​

| | | | | | | |

5​

|Lý Thị|Linh|NDT|

X​

|1995|

Khm​

|Tiếp Nhựt|

6​

|Trần Thanh|Nhàn|DT| |1995|

Khm​

|Trà Đức|

7​

|Lý Hoài|Phong|DT| |1995|

Khm​

|Trà Đức|

8​

| | | | | | | |

9​

| | | | | | | |

10​

|Trần Hoàng|Quy|DT| |1995|

Khm​

|Trà Đức|

11​

|Thạch T Na|Quy|NDT|

X​

|1995|

Khm​

|Trà Đức|

12​

|Trà|Quyện|DT| |1995|

Khm​

|Trà Đức|

13​

|Liêu T Sa|Quyệt|NDT|

X​

|1995|

Khm​

|Trà Đức|

14​

| | | | | | | |

15​

| | | | | | | |

16​

| | | | | | | |

17​

|Tăng|Sang|DT| |1995|

Khm​

|Trà Đức|

18​

|Đinh Gia|Sên|DT| |1995|

Khm​

|Trà Đức|

19​

|Danh|Trung|DT| |1995|

Khm​

|Trà Đức|

20​

| | | | | | | |

21​

| | | | | | | |

22​

|Nguyễn Thành |Trung|DT| |1995|

Khm​

|Trà Đức|

23​

|Thạch Thanh|Tùng|DT| |1995|

Khm​

|Trà Đức|

24​

|Hen T Phương|Tử|NDT|

X​

|1995|

Khm​

|Trà Đức|

25​

|Trà T Sà|Tự|NDT|

X​

|1995|

Khm​

|Trà Đức|

26​

| | | | | | | |

27​

|Sơn T Sa|Vanh|NDT|

X​

|1995|

Khm​

|Trà Đức|

28​

|Châu Xuân|Vũ|DT| |1995|

Khm​

|Trà Đức|

29​

| | | | | | | |

30​

|Đinh T Thanh|Xuân|NDT|

X​

|1995|

Khm​

|Trà Đức|

31​

|Thạch|Yên|DT| |1995|

Khm​

|Trà Đức|

32​

| | | | | | | |

33​

|Thạch Thị|Yến|NDT|

X​

|1995|

Khm​

|Trà Đức|

-----------------------------------------
sheet đã sắp xếp theo thứ tự 1-23 em:

TT​

|

Họ tên​

| | |

Nữ​

|

Năm sinh​

|

Dân tộc​

|

Ấp​

|

1​

|Sơn|Huôl|DT| |1995|

Khm​

|Bưng Sa|

2​

|Lý Duy|Khoa|DT| |1995|

Khm​

|Tiếp Nhựt|

3​

|Lý Thị|Linh|NDT|

X​

|1995|

Khm​

|Tiếp Nhựt|

4​

|Trần Thanh|Nhàn|DT| |1995|

Khm​

|Trà Đức|

5​

|Lý Hoài|Phong|DT| |1995|

Khm​

|Trà Đức|

6​

|Trần Hoàng|Quy|DT| |1995|

Khm​

|Trà Đức|

7​

|Thạch T Na|Quy|NDT|

X​

|1995|

Khm​

|Trà Đức|

8​

|Trà|Quyện|DT| |1995|

Khm​

|Trà Đức|

9​

|Liêu T Sa|Quyệt|NDT|

X​

|1995|

Khm​

|Trà Đức|

10​

|Tăng|Sang|DT| |1995|

Khm​

|Trà Đức|

11​

|Đinh Gia|Sên|DT| |1995|

Khm​

|Trà Đức|

12​

|Danh|Trung|DT| |1995|

Khm​

|Trà Đức|

13​

|Nguyễn Thành |Trung|DT| |1995|

Khm​

|Trà Đức|

14​

|Thạch Thanh|Tùng|DT| |1995|

Khm​

|Trà Đức|

15​

|Hen T Phương|Tử|NDT|

X​

|1995|

Khm​

|Trà Đức|

16​

|Trà T Sà|Tự|NDT|

X​

|1995|

Khm​

|Trà Đức|

17​

|Sơn T Sa|Vanh|NDT|

X​

|1995|

Khm​

|Trà Đức|

18​

|Châu Xuân|Vũ|DT| |1995|

Khm​

|Trà Đức|

19​

|Đinh T Thanh|Xuân|NDT|

X​

|1995|

Khm​

|Trà Đức|

20​

|Thạch|Yên|DT| |1995|

Khm​

|Trà Đức|

21​

|Thạch Thị|Yến|NDT|

X​

|1995|

Khm​

|Trà Đức|

 

[le phuong van]

Xóa nhiều dòng trống

:nhờ sắp xếp thêm về thứ tự (vì trong bản tính của em nhiều hàng trống quá) em muốn dồn hàng lại để in ra giấy.

Nếu các dòng trống ít: Xóa thủ công là mau nhất!
Nếu các dòng dữ liệu của bảng tính quá nhiều:
B1: Chèn thêm 1 dòng trống trên cùng của bảng dữ liệu (dưới dòng STT, họ và tên,...)
B2: Chọn toàn bộ bảng dữ liệu kể cả dòng trống mới chèn, xong chọn: Data _ Filter _ Autofilter. Nhấp chuột vào dấu tam giác (ở cột nào cũng được), chọn Blanks
B3: Vào Edit xóa các dòng trống.
B4: Đánh lại số TT (bôi đen 2 ô có thứ tự 1 và 2, kích đôi chuột vào góc phải bên dưới 2 ô này)

 

[le tin]

Bạn dùng đoạn này , danh sách có thể thay đổi nhiều hơn :

Sub xoa_dienso()
On Error Resume Next
i = [B65000].End(xlUp).Row
Range("A" & 5 & ":H" & i).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
For j = 6 To [B65000].End(xlUp).Row
Cells(j, 1) = Cells(j - 1, 1) + 1
Next
End Sub

 

[concogia]

Bạn thử "chơi" cái này xem sao:
Cách này dùng vòng lặp, nếu dữ liệu có tí tẹo thế thì cũng chẳng ảnh hưởng tới tốc độ đâu

Public Sub cat()
    Dim vung, i, k, j As Integer
      vung = Range([b1], [b500].End(xlUp)).Rows.Count
        For i = vung To 5 Step -1
            If Cells(i, 2) = "" Then Rows(i).Delete
        Next
   k = Range([b5], [b5].End(xlDown)).Rows.Count
            For j = 1 To k
              [a4].Offset(j, 0) = j
            Next
End Sub

 

[ChanhTQ@]

Cũng tham gia cái cho vui cửa nhà

Sub XoaDong_ThemSTT()
 Dim Rng As Range
1' Xóa Dòng Khong Có Ho Ten:'
 Set Rng = Range("B5:B" & [A65500].End(xlUp).Row).SpecialCells(xlCellTypeBlanks)
 If Not Rng Is Nothing Then Rng.EntireRow.Delete
2' Dien Lai STT:'
 [A5].FormulaR1C1 = "=N(R[-1]C)+1"
 [A5].AutoFill Destination:=Range("A5:A" & [B65500].End(xlUp).Row), Type:=xlFillDefault
 
End Sub

 

[ongtrungducmx25]

Sub XoaDong_ThemSTT()
 Dim Rng As Range
1' Xóa Dòng Khong Có Ho Ten:'
 Set Rng = Range("B5:B" & [A65500].End(xlUp).Row).SpecialCells(xlCellTypeBlanks)
 If Not Rng Is Nothing Then Rng.EntireRow.Delete
2' Dien Lai STT:'
 [A5].FormulaR1C1 = "=N(R[-1]C)+1"
 [A5].AutoFill Destination:=Range("A5:A" & [B65500].End(xlUp).Row), Type:=xlFillDefault
 
End Sub

Code này thực thi rồi mà còn dòng trống 3,4 nữa nhỉ!