Lọc danh sách thi lại và học lại

[thoht]

Em Cần lọc ra danh sách những học sinh với điều kiện sau:
Lọc thi lại: Nếu điểm TKHP <4 và ô điểm TKHP khác rỗng thì cho ra danh sách sinh viên thi lại các môn
Danh sách thi lại gồm các thông tin: STT, mã SV, Họ ĐỆM, TÊN, Ngày sinh, THI LẠI

Lọc học lại: TBKT <5 thì đưa ra danh sách sinh viên học lại
Danh sách HỌC lại gồm các thông tin: STT, mã SV, Họ ĐỆM, TÊN, Ngày sinh, THI LẠI
Nhờ các anh chị chỉnh sửa giúp em. Em cảm ơn ạ

 

[befaint]

lọc ra danh sách

Lọc ở sheet nào?

điểm TKHP <4

Là ứng với cột nào?


Mục Thi lại lấy ở đâu?

 

[SA_DQ]

Cho hỏi lại chủ bài đăng, rằng lọc từ trang tính nào?
Môn nào đạt iêu cầu lọc thì ghi vô [ThiLai], phải không?

Sub LocThiLaiTuTrangBangDiem()
Dim Rng As Range, sRng As Range, Cls As Range
Dim MyAdd As String
Dim Rws As Long, W As Integer, Dg As Long, Cot As Integer, Col As Integer

With Sheets("BangDiem")
    .Select
    Rws = .[B9].CurrentRegion.Rows.Count
    ReDim Arr(1 To 2 * Rws, 1 To 7)
    Set Rng = .Range([M8], .Cells(8, 1234).End(xlToLeft))
    For Each Cls In .Range(.[B9], .[B9].End(xlDown))
        Dg = Cls.Row
        Set sRng = Rng.Find("TKHP", , xlFormulas, xlWhole)
        If Not sRng Is Nothing Then
            MyAdd = sRng.Address
            Do
                Cot = sRng.Column
                If .Cells(Dg, Cot).Value <> "" And .Cells(Dg, Cot).Value < 4 Then
                    W = W + 1:                              Arr(W, 1) = W
                    Arr(W, 2) = .Cells(Dg, "A").Value:      Arr(W, 3) = .Cells(Dg, "B").Value
                    Arr(W, 4) = .Cells(Dg, "C").Value:      Arr(W, 5) = .Cells(Dg, "D").Value
                    Arr(W, 6) = .Cells(Dg, "E").Value
                    For Col = Cot To Cot - 13 Step -1
                        If .Cells(7, Col).Value <> "" Then
                            Arr(W, 7) = .Cells(7, Col).Value & ", " & Arr(W, 7)
                             Exit For
                        End If
                    Next Col
                End If
              
                Set sRng = Rng.FindNext(sRng)
                Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
        End If
    Next Cls
End With
If W Then
    Sheets("DSLoc").[b4].CurrentRegion.Offset(1).ClearContents  '<=| Tên Trang Tính   '
    Sheets("DSLoc").[a5].Resize(W, 7).Value = Arr()
    MsgBox "Xong Rôi!", , "GPE.COM Xin Chào!"
    Sheets("DSLoc").Select
End If
End Sub

 

[thoht]

Dữ liệu lọc ở sheet 3A. Kết quả lọc thi lại ở sheet Lọc thi lại

Bài đã được tự động gộp: 1/4/21

Cho hỏi lại chủ bài đăng, rằng lọc từ trang tính nào?
Môn nào đạt iêu cầu lọc thì ghi vô [ThiLai], phải không?

Lọc từ Sheet 3A. Môn nào có điểm TKHP <4 và ô đó khác rỗng thì thi lại

Bài đã được tự động gộp: 1/4/21

Lọc ở sheet nào?

View attachment 256447



Là ứng với cột nào?


Mục Thi lại lấy ở đâu?

View attachment 256448

Các cột N,P,R.....

 

[SA_DQ]

Lọc từ Sheet 3A. Môn nào có điểm TKHP <4 và ô đó khác rỗng thì thi lại

Mình lọc từ trang 'BangDiem', bạn xem & kiểm tra thử.

			DANH SÁCH SINH VIÊN THI LẠI
STT	SoTT	Mã sinh viên	Họ đệm	Tên	Ngày sinh	Môn thi Lại
1	1	1821030001	Nguyễn Thị	Anh	21/10/2000	CDD002_Vật lý đại cương - Lí sinh (3),
2	4	1821030007	Nguyễn Thị Thúy	Hiền	28/02/2000	CDDD47_Giáo dục quốc phòng 1 (1),
3	5	1821030010​	Phan Thị	Hồng	20/07/2000	CDD014_Xác suất thống kê Y dược (2),
4	6	1821030009​	Phan Thị Thu	Hồng	29/10/2000	CDDD47_Giáo dục quốc phòng 1 (1),
5	8	1821030011​	Nguyễn Thị Thanh	Huyền	13/09/2000	CDDD47_Giáo dục quốc phòng 1 (1),
6	16	1821030019​	Nguyễn Hoàng	Long	28/12/2000	CDD006_Giáo dục thể chất 1 (1),
7	16	1821030019​	Nguyễn Hoàng	Long	28/12/2000	CDDD47_Giáo dục quốc phòng 1 (1),
8	19	1821030023​	Võ Thị Thúy	Ngân	16/10/2000	DDCD006_Giải phẫu - sinh lý (4),
9	20	1821030211​	Nguyễn Kiều Yến	Nhi	26/01/2000	CDDD47_Giáo dục quốc phòng 1 (1),
10	25	1615030027​	Nguyễn Ngọc	Oanh	30/07/1997	CDD091_Bào chế (5),
11	25	1615030027​	Nguyễn Ngọc	Oanh	30/07/1997	CDD093_Dược lâm sàng (4),
12	26	1821030028​	Nguyễn Thị	Phương	10/3/2000​	CDDD47_Giáo dục quốc phòng 1 (1),
13	30	1821030032​	Lê Thị Hoàng	Thùy	20/11/2000	CDD003_Ngoại ngữ 1 (3),
14	30	1821030032​	Lê Thị Hoàng	Thùy	20/11/2000	CDD011_Ngoại ngữ 2 (3),