Lọc danh sách học sinh theo lớp

[Gà Công Nghệ]

Em xin nhờ gia đình GPE giúp giùm em file excel về lọc danh sách lớp. File này đã lọc được danh sách lớp nhưng mỗi khi lọc thì dòng chữ "Danh sách học sinh lớp...Năm học...." bị mất đi, không biết có cách nào để không bị mất dòng chữ đó không? Em xin cám ơn nhiều.

 

[thnghiachau]

Em xin nhờ gia đình GPE giúp giùm em file excel về lọc danh sách lớp. File này đã lọc được danh sách lớp nhưng mỗi khi lọc thì dòng chữ "Danh sách học sinh lớp...Năm học...." bị mất đi, không biết có cách nào để không bị mất dòng chữ đó không? Em xin cám ơn nhiều.

Bạn lấy code này nha:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$L$7" Then
     Sheets("Loc theo lop").Range("B6:G10000").Clear
     'Ke khung borders Sheets("Loc theo lop").Range("B4:G10000").Clear
     Sheets("TONG HOP").Range("B7:G10000").AdvancedFilter 2, Sheets("Loc theo lop").Range("L6:L7"), Sheets("Loc theo lop").Range("B7")
     Range("B8", Range("B8").End(xlDown)) = "=Row()-7"
    ' dòng cuoi cung la danh so thu tu de loc
  End If
End Sub

 

[Bandit]

Bạn xem thử đúng yêu cầu chưa nhé

 

[Gà Công Nghệ]

Bạn lấy code này nha:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$L$7" Then
     Sheets("Loc theo lop").Range("B6:G10000").Clear
     'Ke khung borders Sheets("Loc theo lop").Range("B4:G10000").Clear
     Sheets("TONG HOP").Range("B7:G10000").AdvancedFilter 2, Sheets("Loc theo lop").Range("L6:L7"), Sheets("Loc theo lop").Range("B7")
     Range("B8", Range("B8").End(xlDown)) = "=Row()-7"
    ' dòng cuoi cung la danh so thu tu de loc
  End If
End Sub

Vâng, giữ được 2 dòng đó nhưng mà phải căn vô chính giữa. cám ơn bạn nhiều.

 

[Gà Công Nghệ]

Bạn lấy code này nha:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$L$7" Then
     Sheets("Loc theo lop").Range("B6:G10000").Clear
     'Ke khung borders Sheets("Loc theo lop").Range("B4:G10000").Clear
     Sheets("TONG HOP").Range("B7:G10000").AdvancedFilter 2, Sheets("Loc theo lop").Range("L6:L7"), Sheets("Loc theo lop").Range("B7")
     Range("B8", Range("B8").End(xlDown)) = "=Row()-7"
    ' dòng cuoi cung la danh so thu tu de loc
  End If
End Sub

Vâng, giữ được 2 dòng đó nhưng mà phải căn vô chính giữa. cám ơn bạn nhiều.

Bạn xem thử đúng yêu cầu chưa nhé

Vâng, file chạy đã chạy được. Nhưng phát sinh thêm dòng dưới như: Nơi nhận:....Ngày tháng năm, hiệu trưởng.... làm sao để cố định khi lọc. Mong bạn xem hộ giùm mình lần nữa.

 

[thnghiachau]

Vâng, giữ được 2 dòng đó nhưng mà phải căn vô chính giữa. cám ơn bạn nhiều.

Vâng, file chạy đã chạy được. Nhưng phát sinh thêm dòng dưới như: Nơi nhận:....Ngày tháng năm, hiệu trưởng.... làm sao để cố định khi lọc. Mong bạn xem hộ giùm mình lần nữa.

có 2 cách:
1/ là bạn tự viết "Nơi nhận:" ; "- PGD&ĐT (b/c);" .... vào từ vị trí Row cuối + 2 tại các cột B, E
2/ bạn tạo ra một vùng range mẫu ở một sheet nào đó rồi sau khi loc thì mình code copy vùng mẫu này vào tại vị trí row cuối

 

[Gà Công Nghệ]

có 2 cách:
1/ là bạn tự viết "Nơi nhận:" ; "- PGD&ĐT (b/c);" .... vào từ vị trí Row cuối + 2 tại các cột B, E
2/ bạn tạo ra một vùng range mẫu ở một sheet nào đó rồi sau khi loc thì mình code copy vùng mẫu này vào tại vị trí row cuối

Hi, cách 1 mình chưa hiểu cho lắm, bạn có thể làm mẫu 1 cái được không bạn.

 

[thnghiachau]

Hi, cách 1 mình chưa hiểu cho lắm, bạn có thể làm mẫu 1 cái được không bạn.

như vậy nè

    With Sheets("Loc theo lop")
        .Range("B" & .Cells(.Rows.Count, "B").End(xlUp).Row + 2).Value = "N" & ChrW(417) & "i nh" & ChrW(7853) & "n:"
    End With

 

[be_09]

Vâng, giữ được 2 dòng đó nhưng mà phải căn vô chính giữa. cám ơn bạn nhiều.

Vâng, file chạy đã chạy được. Nhưng phát sinh thêm dòng dưới như: Nơi nhận:....Ngày tháng năm, hiệu trưởng.... làm sao để cố định khi lọc. Mong bạn xem hộ giùm mình lần nữa.

Nơi nhận:....Ngày tháng năm, hiệu trưởng vào M7 sheet TONG HOP sửa nội dung rồi thử lại.

 

[Gà Công Nghệ]

Nơi nhận:....Ngày tháng năm, hiệu trưởng vào M7 sheet TONG HOP sửa nội dung rồi thử lại.

Dạ, vâng. Em cám ơn thầy Bé nhiều. Chúc thầy thật nhiều sức khỏe!