Lọc dữ liệu ở sheet DS sang sheet In từng môn (1 người xem)

[thangteotdtt]

Xin các bạn trên diễn đàn giúp dùm tôi lọc dữ liệu từ sheet 1 (DS) qua sheet 2 (In Tung Mon). Câu hỏi kèm theo file. Trân trọng cảm ơn các bạn.

 

[phucbugis]

Xin các bạn trên diễn đàn giúp dùm tôi lọc dữ liệu từ sheet 1 (DS) qua sheet 2 (In Tung Mon). Câu hỏi kèm theo file. Trân trọng cảm ơn các bạn.

chào bạn,

- bạn tải file đính kèm vào xem kết quả tại sheet In Tung Mon (2) có phải vậy ko?

(trong file bạn có ghi dùng "code" --> bạn muốn dùng Code (Macro) hay dùng hàm vậy?)

Link: https://www.mediafire.com/?mdkmoex7664t73a

 

[thangteotdtt]

Cảm ơn bạn, dùng công thức thì file nặng nề quá nên mình muốn dùng code bạn hé.

 

[phucbugis]

Cảm ơn bạn, dùng công thức thì file nặng nề quá nên mình muốn dùng code bạn hé.

- vậy tải tiếp file sau, mình dùng Advanced Filter + sự kiện WS_change
- cho chạy Macro trước khi dùng nhé.
'- - -
tại sheet In Tung Mon (2), chọn Môn tại ô F5 -> xem kết quả.

Link: https://www.mediafire.com/?fcvfnifsh8opbms

 

[thangteotdtt]

Tôi thấy cũng được đó bạn có điều sao nó chạy hơi lộn xộn 1 chút, mình thêm môn cờ vua vào nút thì dòng chữ (người lập bảng ........)này nó lên trên, bạn xem giúp mình nhé.

 

[phucbugis]

Tôi thấy cũng được đó bạn có điều sao nó chạy hơi lộn xộn 1 chút, mình thêm môn cờ vua vào nút thì dòng chữ (người lập bảng ........)này nó lên trên, bạn xem giúp mình nhé.

bạn thêm đoạn code Range("A12:I5000").Borders.LineStyle = xlNone vào bên dưới If Target.Address = "$F$5" Then là OK,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$5" Then
Range("A12:I5000").Borders.LineStyle = xlNone '<<<<-----

'- - -
bạn để ý khi dùng Advanced Filter thì các Header (TT, Họ và tên ...) tại sheet In Tung Mon (2) và sheet DS phải giống với nhau nhé (số lượng cột có thể khác nhau)

 

[thangteotdtt]

Được rồi bạn, có điều sau khi lọc thì cho nhập số thứ tự lại được không bạn? và cái Borders.LineStyle cái đường cuối cùng là 1 đường liền, không phải là đường đứt quản. cảm ơn bạn

 

[phucbugis]

Được rồi bạn, có điều sau khi lọc thì cho nhập số thứ tự lại được không bạn? và cái Borders.LineStyle cái đường cuối cùng là 1 đường liền, không phải là đường đứt quản. cảm ơn bạn

hehe, Ok

- mình mới thêm 1 công thức cho cột TT ở sheet DS để có STT bên sheet kết quả
- đã kẻ được border tại row dưới cùng
- mình có cài thêm sự kiện Worksheet_SelectionChange để điền trực tiếp các môn vào F5 --> bạn ko cần điền bằng tay vào Data Validation nữa.

Link: https://www.mediafire.com/?oa2uqwtvtqrzgns

 

[thangteotdtt]

Cảm ơn bạn rất nhiều. Chúc buổi tối tốt lành.

 

[thangteotdtt]

Bạn ơi cho mình hỏi tiếp, mình đã chèn thêm 1 cột nữa là mã VĐV lúc này không lọc được nữa, bạn xem lại dùm mình. Trân trọng cảm ơn bạn.

 

[phucbugis]

Bạn ơi cho mình hỏi tiếp, mình đã chèn thêm 1 cột nữa là mã VĐV lúc này không lọc được nữa, bạn xem lại dùm mình. Trân trọng cảm ơn bạn.

bạn tải tiếp file sau về xem nhé,
Tại sheet In Tung Mon (2) mình có sắp xếp lại Footer vào cột L + đặt công thức cho các Header.

'- - -
hic,
- nhìn cái form của bạn chắc còn phải chỉnh sửa nhiều chỗ,
- nếu bạn ko biết tùy biến code ntn thì hãy sắp xếp số liệu các sheet cho ổn định và hỏi mình 1 lần luôn nhé .

Link: https://www.mediafire.com/?va70iz5y6tlfl8k

 

[thangteotdtt]

cảm ơn bạn nhiều, khi mà chọn môn ABC thì cột j12:j27 chưa lọc lại bạn ơi và lại là cái đường đứt quảng chổ khu vực tiêu đề, bạn xem giúp lại dùm mình nhé.

 

[phucbugis]

cảm ơn bạn nhiều, khi mà chọn môn ABC thì cột j12:j27 chưa lọc lại bạn ơi và lại là cái đường đứt quảng chổ khu vực tiêu đề, bạn xem giúp lại dùm mình nhé.

hehe, ok
bạn tải tiếp file (1_1) về kiểm tra xem sao nhé !

Link: https://www.mediafire.com/?uu7my5fub6ixlg4