Lọc dữ liệu bằng code mà không dùng filter có sẵn

4 Responses

1. hands says:

   25/02/2023 at 2:45 pm

   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 ???

   Chỉnh code #2 thành.

   Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     Set Target = Range("C1")
       With Range("A3").CurrentRegion
       If Target.Value > 0 Then
           .AutoFilter (1), (Target)
       Else
           .AutoFilter
       End If
       End With
   End Sub

   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

   Private Sub Worksheet_Change(ByVal Target As Range)
   Set Target = Range("C1")
       With Range("A3").CurrentRegion
       If Target.Value > 0 Then
           .AutoFilter 1, Target.Value
       Else
           .AutoFilter
       End If
       End With
   End Sub

   Reply
2. hands says:

   25/02/2023 at 2:47 pm

   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.

   Paste vào sheet2

   Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = "$B$2" Then
   With Sheet1.Range("A3").CurrentRegion
       If Target.Value > 0 Then
           .AutoFilter 1, Target.Value
       Else
           .AutoFilter
       End If
   End With
   End If
   End Sub

   Reply
3. hands says:

   25/02/2023 at 2:48 pm

   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 ý.

   Private Sub Worksheet_Change(ByVal Target As Range)
   Dim Ws As Worksheet
   If Target.Address = "$B$2" Then
   For Each Ws In Worksheets
       If Ws.Name <> "TH" Then
       With Ws.Range("A3").CurrentRegion
           If Target.Value > 0 Then
               .AutoFilter 1, Target.Value
           Else
               .AutoFilter
           End If
       End With
       End If
   Next Ws
   End If
   End Sub

   Reply
4. hands says:

   25/02/2023 at 2:49 pm

   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)

   Private Sub Worksheet_Change(ByVal Target As Range)
   Dim Ws As Worksheet
   If Target.Address = "$B$2" Then
   For Each Ws In Worksheets
       With Ws.Range("A3", Ws.Range("A6500").End(3))
           If Target.Value > 0 Then
               .AutoFilter 1, Target.Value
           Else
               .AutoFilter
           End If
       End With
   Next Ws
   End If
   End Sub

   Reply