Filter theo 1 danh sách có sẵn

[AnhThu-1976]

Các anh/chị giúp em như sau
Do công việc thường xuyên phải filter để trích lọc, nhưng nếu dùng filter thông thường thì sẽ lâu và không chính xác
Nên em đã lập danh sách cần filter ở ô B1, trong danh sách này các điều kiện cách nhau bởi dấu phẩy, ví dụ: yến, nhung, hồng, hoa, việt, thư
Danh sách cần trích lọc ở cột A (trích lọc không cần phân biệt chữ hoa hay chữ thường)
Nhờ các anh/chị hướng dẫn cách nào nhanh và chính xác nhất. Em xin cảm ơn!

 

[Ba Tê]

Các anh/chị giúp em như sau
Do công việc thường xuyên phải filter để trích lọc, nhưng nếu dùng filter thông thường thì sẽ lâu và không chính xác
Nên em đã lập danh sách cần filter ở ô B1, trong danh sách này các điều kiện cách nhau bởi dấu phẩy, ví dụ: yến, nhung, hồng, hoa, việt, thư
Danh sách cần trích lọc ở cột A (trích lọc không cần phân biệt chữ hoa hay chữ thường)
Nhờ các anh/chị hướng dẫn cách nào nhanh và chính xác nhất. Em xin cảm ơn!

Dùng Advanced Filter.

 

[AnhThu-1976]

Dùng Advanced Filter.

Em cảm ơn thầy đã hỗ trợ
Em xin lỗi vì đã đưa ví dụ chưa đầy đủ
Giả sử trong danh sách tên ở cột A như sau
Việt Anh
Anh Việt
Việt Nam muôn năm
Và trong cell B1 có chữ Việt
Như vậy muốn filter những từ là "việt" thì sửa code như thế nào? em cảm ơn

 

[truongvu317]

Em cảm ơn thầy đã hỗ trợ
Em xin lỗi vì đã đưa ví dụ chưa đầy đủ
Giả sử trong danh sách tên ở cột A như sau
Việt Anh
Anh Việt
Việt Nam muôn năm
Và trong cell B1 có chữ Việt
Như vậy muốn filter những từ là "việt" thì sửa code như thế nào? em cảm ơn

Đưa dữ liệu thật lên đi, không đến lúc áp code vào file thật lại chả chạy được, mất công người khác lại phải làm lại.

 

[ndu96081631]

Các anh/chị giúp em như sau
Do công việc thường xuyên phải filter để trích lọc, nhưng nếu dùng filter thông thường thì sẽ lâu và không chính xác
Nên em đã lập danh sách cần filter ở ô B1, trong danh sách này các điều kiện cách nhau bởi dấu phẩy, ví dụ: yến, nhung, hồng, hoa, việt, thư
Danh sách cần trích lọc ở cột A (trích lọc không cần phân biệt chữ hoa hay chữ thường)
Nhờ các anh/chị hướng dẫn cách nào nhanh và chính xác nhất. Em xin cảm ơn!

1> Viết 2 hàm hỗ trợ (code trong module)

Function MySplit(ByVal Text As String, Optional ByVal Delimiter As String = ",", _
                 Optional ByVal CompareText As VbCompareMethod = vbBinaryCompare)
  MySplit = Split(Text, Delimiter, , CompareText)
End Function
Sub MyFilter(ByVal SourceRange As Range, ByVal strCriteria As String)
  Dim rngCriteria As Range
  Set rngCriteria = Range("IV1:IV2")
  rngCriteria(2, 1) = "=SUMPRODUCT(COUNTIF($A2,""*""&MySplit(""" & strCriteria & ""","", "",0)&""*""))"
  SourceRange.AdvancedFilter 1, rngCriteria
  rngCriteria.Clear
End Sub

2> Viết code sự kiện cho cell B1 (tức là gõ giá trị tìm vào B1 sẽ filter luôn)

Private Sub Worksheet_Change(ByVal Target As Range)
  On Error Resume Next
  If Target.Address = "$B$1" Then
    If Target.Value = Empty Then
      Target.Parent.ShowAllData
    Else
      MyFilter Range("A1:A1000"), Target.Value
    End If
  End If
End Sub

Thật ra chỉ cần hàm MySplit là bạn có thể filter bằng tay được rồi. Bằng cách gõ vào cell nào đó công thức:

=SUMPRODUCT(COUNTIF($A2,"*"&MySplit($B$1,", ",0)&"*"))

rồi dùng AdvanedFilter để lọc theo điều kiện của công thức trên

 

[AnhThu-1976]

rồi dùng AdvanedFilter để lọc theo điều kiện của công thức trên

Rất tuyệt, em rất đỡ tốn công sức hàng ngày, em cảm ơn rất nhiều ạ!

 

[ndu96081631]

Rất tuyệt, em rất đỡ tốn công sức hàng ngày, em cảm ơn rất nhiều ạ!

Chưa tuyệt đâu! Chẳng qua tôi viết cho bạn dễ dùng thôi. Dữ liệu lớn code có thể chậm. Muốn nhanh, sửa code của anh @Ba Tê lại chút là được

 

[vanaccex]

Dùng Advanced Filter.

Advanced filter thần thánh vậy !, Cảm ơn anh !