Lọc số liệu (1 người xem)

[vuquocluc1983]

mình muốn phân loại khi lọc điểm thì làm như thế nào với
cụ thể ví dụ mình phân loại thành nhóm điểm như trên
khi nhập điểm của từng người ở cột dưới thì nó tự nhảy vào các nhóm điểm theo phân loại
Thanks

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

File đính kèm

 

[vuquocluc1983]

bác nào hỗ trợ với!!! thanks

 

[Hoàng Nhật Phương]

mình muốn phân loại khi lọc điểm thì làm như thế nào với
cụ thể ví dụ mình phân loại thành nhóm điểm như trên
khi nhập điểm của từng người ở cột dưới thì nó tự nhảy vào các nhóm điểm theo phân loại
Cảm ơn
View attachment 236796

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

File đính kèm

OT không thạo công thức, cốt thì đang tập, Bạn thử nhé.

Option Explicit

Sub TapCode_ChiaDiem_NhieuFor_NhieuIf()

    Dim Nhom(), CaNhan(), DiemSo(), Tam, Diem
    Dim i As Long, j As Long, s As Integer, k As Long
    Const TenShet As String = "Sheet1"
    
    With ThisWorkbook.Worksheets(TenShet)
        Nhom = .Range("B4:B" & .Range("B" & Rows.Count).End(xlUp).Row).Value
        CaNhan = .Range("C3").Resize(, .Range("C3").End(xlToRight).Column - 2).Value
        ReDim DiemSo(1 To UBound(Nhom, 1), 1 To UBound(CaNhan, 2))
        For i = 1 To UBound(Nhom, 1)
            Tam = Split(Nhom(i, 1), ",")
            For j = 1 To UBound(CaNhan, 2)
                For s = 0 To UBound(Tam, 1)
                    Diem = CLng(Tam(s))
                    If CaNhan(1, j) = Diem Then
                        k = k + 1
                        DiemSo(i, k) = Diem
                    End If
                Next s
            Next j
        Next i
        .Range("C4").Resize(UBound(Nhom, 1), UBound(CaNhan, 2)).ClearContents
        If k Then .Range("C4").Resize(k, UBound(DiemSo, 2)).Value = DiemSo
    End With
    
End Sub

 

[ongke0711]

Tại sao không phải Điểm TB, yếu ... là cột và Tên là dòng nhỉ??? Chẳng lẻ có 300 học sinh sẽ có 300 cột??? Rồi muốn tìm kiếm theo Tên hs thì làm sao tìm?

 

[Hoàng Tuấn 868]

mình muốn phân loại khi lọc điểm thì làm như thế nào với
cụ thể ví dụ mình phân loại thành nhóm điểm như trên
khi nhập điểm của từng người ở cột dưới thì nó tự nhảy vào các nhóm điểm theo phân loại
Cảm ơn
View attachment 236796

Bạn xem thử.

 

[vuquocluc1983]

OT không thạo công thức, cốt thì đang tập, Bạn thử nhé.

Option Explicit

Sub TapCode_ChiaDiem_NhieuFor_NhieuIf()

    Dim Nhom(), CaNhan(), DiemSo(), Tam, Diem
    Dim i As Long, j As Long, s As Integer, k As Long
    Const TenShet As String = "Sheet1"
   
    With ThisWorkbook.Worksheets(TenShet)
        Nhom = .Range("B4:B" & .Range("B" & Rows.Count).End(xlUp).Row).Value
        CaNhan = .Range("C3").Resize(, .Range("C3").End(xlToRight).Column - 2).Value
        ReDim DiemSo(1 To UBound(Nhom, 1), 1 To UBound(CaNhan, 2))
        For i = 1 To UBound(Nhom, 1)
            Tam = Split(Nhom(i, 1), ",")
            For j = 1 To UBound(CaNhan, 2)
                For s = 0 To UBound(Tam, 1)
                    Diem = CLng(Tam(s))
                    If CaNhan(1, j) = Diem Then
                        k = k + 1
                        DiemSo(i, k) = Diem
                    End If
                Next s
            Next j
        Next i
        .Range("C4").Resize(UBound(Nhom, 1), UBound(CaNhan, 2)).ClearContents
        If k Then .Range("C4").Resize(k, UBound(DiemSo, 2)).Value = DiemSo
    End With
   
End Sub

Thanks

 

[hocexcel_1991]

mình muốn phân loại khi lọc điểm thì làm như thế nào với
cụ thể ví dụ mình phân loại thành nhóm điểm như trên
khi nhập điểm của từng người ở cột dưới thì nó tự nhảy vào các nhóm điểm theo phân loại
Cảm ơn
View attachment 236796

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

File đính kèm

Công thức

C4=IF(ISNUMBER(SEARCH(C$3,$B4)),C$3,"")