Nhờ GPE lập bảng lọc học sinh từ bảng tổng hợp về từng lớp (1 người xem)

[Tran Mui]

Tôi muốn lọc những học sinh, từ bảng tổng hợp thi có các dữ liệu trong bảng về theo lớp bằng cách chọn tên lớp, không dùng Auto filter nhờ GPE giúp
file vidu_loclop đi kèm

 

[ChanhTQ@]

Không Oto thì Advanced, được không bạn?

Xem trong file

 

[nghiaphuc]

Tôi muốn lọc những học sinh, từ bảng tổng hợp thi có các dữ liệu trong bảng về theo lớp bằng cách chọn tên lớp, không dùng Auto filter nhờ GPE giúp
file vidu_loclop đi kèm

Sử dụng AdvancedFilter và VBA được chứ nhỉ?

 

[ThuNghi]

Tôi muốn lọc những học sinh, từ bảng tổng hợp thi có các dữ liệu trong bảng về theo lớp bằng cách chọn tên lớp, không dùng Auto filter nhờ GPE giúp
file vidu_loclop đi kèm

Bạn dùng thử code sau nhé.

Option Explicit
Dim endR&, i&, s&, k&
Dim sLop$
Dim Arr(), ArrKQ(), myRng As Range
Sub LocLop()
With Sheets("Danhsach")
  endR = .Cells(65000, 1).End(xlUp).Row
  Arr = .Range("A6:O" & endR).Value
End With
With Sheets("Inlop")
  sLop = .[M2]
End With
ReDim ArrKQ(1 To UBound(Arr), 1 To UBound(Arr, 2))
s = 0
For i = 1 To UBound(Arr)
  If Trim(Arr(i, 6)) = sLop Then
    s = s + 1
    For k = 1 To UBound(Arr, 2)
      ArrKQ(s, k) = Arr(i, k)
    Next k
  End If
Next i
If s = 0 Then GoTo exit_sub
Sheets("Inlop").Select
Set myRng = [A6].Resize(1000, UBound(Arr, 2))
With myRng
  .ClearContents
  .Select
  XoaBorder
End With
Set myRng = [A6].Resize(s, UBound(Arr, 2))
With myRng
  .Value = ArrKQ
  .Select
  BorderAll
End With
[K5].Offset(s + 2, 0).Value = "Ky nhan"
Set myRng = Nothing
exit_sub:
Erase Arr, ArrKQ
End Sub
Sub BorderAll()
  k = 1
  ExecuteExcel4Macro ("BORDER(" & k & "," & k & "," & k & "," & k & "," & k & ")")
End Sub
Sub XoaBorder()
  k = 0
  ExecuteExcel4Macro ("BORDER(" & k & "," & k & "," & k & "," & k & "," & k & ")")
End Sub

Có sử dụng code BorderAll của NDU
Và chép code sau vào sh Inlop

Private Sub Worksheet_Change(ByVal Target As Range)
With Application
  .ScreenUpdating = False
End With
If Target.Address = "$M$2" Then LocLop
With Application
  .ScreenUpdating = True
End With

End Sub