Lọc dữ liệu bằng code mà không dùng filter có sẵn (1 người xem)

[thanh tong]

Chào các bạn!
Mình mình mới tìm hiểu về VBA nên mình đang tự làm thử những cái mà mình tự nghĩ ra. Mình đã dùng record rồi nhưng cũng chưa biết phải khai báo chúng thế nào nên mình nhờ các bạn giúp hộ một file đính kèm để từ đó mình biết cách ứng dụng cho cái khác.
Cảm ơn các bạn.

 

[MinhCong]

Chào các bạn!
Mình mình mới tìm hiểu về VBA nên mình đang tự làm thử những cái mà mình tự nghĩ ra. Mình đã dùng record rồi nhưng cũng chưa biết phải khai báo chúng thế nào nên mình nhờ các bạn giúp hộ một file đính kèm để từ đó mình biết cách ứng dụng cho cái khác.
Cảm ơn các bạn.

Trên diễn đàn có đầy, sao Bạn không tìm kiếm, chỉ cần nhập "Lọc dữ liệu" thi ra nhiều. Bạn đến đây xem nhé!
http://www.giaiphapexcel.com/forum/showthread.php?42341-Advanced-Filter-có-nút-CommandButtor
Không biết có phải ý Bạn muốn lọc sang cột khác hay chỉ Filter lọc tại cột A luôn. Nếu lọc tại cột A luôn thì Bạn dùng đoạn code sau:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Set Target = Range("C1")
    With Range("A3").CurrentRegion
        .AutoFilter (1), (Target)
    End With
End Sub

 

[khoa289]

Cho mình hỏi thêm về vấn đề lọc này với:
Nếu ở ô C3 để trống hoặc bằng 0 thì sẽ hiện ra tất cả các nội dung (Không còn lọc nữa) thì làm thế nào ???

 

[khoa289]

Chào bạn Khương
Mình đã xóa ở ô C3 nhưng vẫn phải một lần kích chuột ở vị trí khác hoặc enter thì mới hiện tất cả nội dung, có cách nào chỉ cần mình xóa ở ô C3 thì tự động hiện ra tất cả nội dung không mà không kích chuột ở vị trí khác hoặc enter.
Cám ơn

 

[khoa289]

Mình cần mở rộng hơn là liên kết lọc tự động giữa các sheet (2 sheet) thì làm cách nào bạn. Nội dụng như sau:
1. Mình cần thay đổi vị trí B2 ở "Sheet TH" thì "sheet 1" sẽ tự động thay đổi và lọc mà không cần kích chuột (Hiện tại mình cần kích chuột thì sheet 1 mới lọc).
2. Mình cần thay đổi vị trí B2 ở "Sheet TH" giá trị B2 bằng 0 hoặc trống thì sheet 1 tự động trả về tất cả các nội dung hiện có
Đính kèm file.
Cám ơn bạn rất nhiều.

 

[khoa289]

Chỉnh sửa giúp mình 1 chút về sheet lọc tự động này nhé vì mình cần mở rộng hơn, mình cần liên kết lọc tự động giữa các sheet (Tất cả các sheet đều lọc tự động khi thay đổi giá trị tại cột B2 của "sheet TH")
1. Mình cần thay đổi vị trí B2 ở "Sheet TH" thì "sheet 1" ,"sheet 3" .....sẽ tự động thay đổi và lọc mà không cần kích chuột.
2. Mình cần thay đổi vị trí B2 ở "Sheet TH",sheet 1" ,"sheet 3"...... giá trị B2 bằng 0 hoặc trống thì sheet 1 tự động trả về tất cả các nội dung hiện có
Đính kèm file. Cám ơn nhiều nhiều
PS: Bạn thông cảm nha vì trước đây mình chưa nói hết ý.

 

[khoa289]

Cám ơn bạn nhiều nhiều nhưng sheet TH vẫn chưa lọc giá trị bạn à (Sheet TH hàng A4,A5,A6 vẫn chưa lọc)

 

[khoa289]

Đoạn code rất ngắn gọn và giúp tìm kiếm dữ liệu nhanh chóng. Cám ơn bạn rất nhiều.
PS: Thank you very much

 

[huongmuine]

Nhờ các anh chị sửa giúp:
Sử dụng code trong file khi filter dữ liệu hiển thị không chính xác.
Xin cảm ơn.

 

[Hoang2013]

Bạn thực hiện các bước sau, sẽ được:
(1) Chuyển nội dung [d1] sang [E1];
(2) Tại [E2] bạn nhập vô công tưức ="=" & D2
(3) Sửa câu lệnh trong macro, thay cụm [E1:E2] vô chỗ [D1: d2]
/ / / / /
Chúc thành công!

 

[huongmuine]

[QUOTE="Hoang2013[/QUOTE]
Cảm ơn bạn

 

[huongmuine]

Nhờ các anh chị viết giúp code lọc theo điều kiện trong file.
Xin cảm ơn