Lọc danh sách học sinh theo điều kiện (1 người xem)

[duong22000]

Xin chào mọi người trên GPE !
Tôi có 1 file nhập danh sách và chọn sẵn phòng thi cho từng khối (6,7,8,9). Từ dữ liệu phòng thi đã nhập ở đây, tôi muốn có các sheet P_THI_K6 ,sheet P_THI_K7 , sheet P_THI_K8, sheet P_THI_K9 sẽ hiển thị danh sách học sinh theo phòng thi (Có chức năng chọn số phòng thi rồi hiện danh sách phòng thi tương ứng). Cụ thể hơn tôi có gửi file đính kèm, mong mọi người giúp tôi thực hiện được file này.
File đính kèm:
http://www.mediafire.com/file/6bmzll2oxjutj01/XEPPHONGTHI.xls

Tôi xin chân thành cảm ơn !

 

[nghiaphuc]

Xin chào mọi người trên GPE !
Tôi có 1 file nhập danh sách và chọn sẵn phòng thi cho từng khối (6,7,8,9). Từ dữ liệu phòng thi đã nhập ở đây, tôi muốn có các sheet P_THI_K6 ,sheet P_THI_K7 , sheet P_THI_K8, sheet P_THI_K9 sẽ hiển thị danh sách học sinh theo phòng thi (Có chức năng chọn số phòng thi rồi hiện danh sách phòng thi tương ứng). Cụ thể hơn tôi có gửi file đính kèm, mong mọi người giúp tôi thực hiện được file này.
File đính kèm:
http://www.mediafire.com/file/6bmzll2oxjutj01/XEPPHONGTHI.xls

Tôi xin chân thành cảm ơn !

Tôi sử dụng code để giải quyết vấn đề. Trong file đính kèm tôi giải quyết cho khối 6, bạn nghiên cứu làm tiếp cho các khối còn lại nhé.

 

[duong22000]

Tôi sử dụng code để giải quyết vấn đề. Trong file đính kèm tôi giải quyết cho khối 6, bạn nghiên cứu làm tiếp cho các khối còn lại nhé.

Mình đã nhận được file đính kèm của bạn, Mình xem thấy đúng như ý mình rồi, để mình thử vào các khối 7,8,9 xem có gì nữa không thì bạn bạn giúp mình tiếp nhé.
Cảm ơn bạn !

 

[duong22000]

Tôi sử dụng code để giải quyết vấn đề. Trong file đính kèm tôi giải quyết cho khối 6, bạn nghiên cứu làm tiếp cho các khối còn lại nhé.

Chào bạn !
Bạn ơi, biểu mẫu danh sách phòng thi trước mình thiếu cột SBD
Mình đã chỉnh lại code của bạn nhưng cột STT , SBD và cùng cuối bảng của mình bị lỗi (mình có bổ sung cột và yêu cầu trong file).
Bạn xem lại file và sửa giúp mình nhé.
Thanks!
http://www.mediafire.com/file/6bmzll2oxjutj01/XEPPHONGTHI.xls

 

[Ba Tê]

Chào bạn !
Bạn ơi, biểu mẫu danh sách phòng thi trước mình thiếu cột SBD
Mình đã chỉnh lại code của bạn nhưng cột STT , SBD và cùng cuối bảng của mình bị lỗi (mình có bổ sung cột và yêu cầu trong file).
Bạn xem lại file và sửa giúp mình nhé.
Thanks!
http://www.mediafire.com/file/6bmzll2oxjutj01/XEPPHONGTHI.xls

SBD bạn nên tạo trước ở các khối (tôi đã làm ở K6)
Chỉ cần 1 sheet lọc ra DS phòng thi cho 4 khối.

 

[duong22000]

SBD bạn nên tạo trước ở các khối (tôi đã làm ở K6)
Chỉ cần 1 sheet lọc ra DS phòng thi cho 4 khối.

Cảm ơn bạn Ba Tê !
Mình đã xem form và code của bạn, mình thấy rất tiện và gọn nhưng mình vẫn còn một ý nữa mong bạn sửa luôn cho mình là cột SBD ở Sheet K6, K7, K8, K9, cụ thể:
Mõi lần thêm dòng hoặc xóa dòng thì công thức lại phải sửa lại và fill cho tất cả danh sách. Mình muốn công thức đó bạn cho vào code để mỗi khi thêm dòng hoặc xóa dòng thì công thức ở cột SBD cũng nhảy theo cho tương ứng với số dòng.
Thanks!

 

[Ba Tê]

Cảm ơn bạn Ba Tê !
Mình đã xem form và code của bạn, mình thấy rất tiện và gọn nhưng mình vẫn còn một ý nữa mong bạn sửa luôn cho mình là cột SBD ở Sheet K6, K7, K8, K9, cụ thể:
Mõi lần thêm dòng hoặc xóa dòng thì công thức lại phải sửa lại và fill cho tất cả danh sách. Mình muốn công thức đó bạn cho vào code để mỗi khi thêm dòng hoặc xóa dòng thì công thức ở cột SBD cũng nhảy theo cho tương ứng với số dòng.
Thanks!

Viết cho bạn 1 code gán công thức vào cột K thôi.

Public Sub SBD()
Dim N As Long
N = Range("B65536").End(xlUp).Row
Range("k5:k1000").ClearContents
Range("k5:k" & N).Value = "=Countif(R5C[-1]:R" & N & "C[-1],""<"" & RC[-1])+Countif(R5C[-1]:RC[-1],RC[-1])"
'Range("k5:k" & N).Value = Range("k5:k" & N).Value
End Sub

Không muốn nhìn công thức thì bỏ dấu nháy đơn trước dòng lệnh cuối (trên End Sub)

 

[duong22000]

Viết cho bạn 1 code gán công thức vào cột K thôi.

Public Sub SBD()
Dim N As Long
N = Range("B65536").End(xlUp).Row
Range("k5:k1000").ClearContents
Range("k5:k" & N).Value = "=Countif(R5C[-1]:R" & N & "C[-1],""<"" & RC[-1])+Countif(R5C[-1]:RC[-1],RC[-1])"
'Range("k5:k" & N).Value = Range("k5:k" & N).Value
End Sub

Không muốn nhìn công thức thì bỏ dấu nháy đơn trước dòng lệnh cuối (trên End Sub)

Cảm ơn bạn Ba Tê !
Mình đã copy vào Module để chạy code. Kết quả đã đúng ý mình.