[Thống kê] Filter dữ liệu và xuất ra thành hàng ngang (1 người xem)

[trangtriet]

File excel: gồm 2 cột: Mã Hàng và Mã Khách Hàng ( Mã KH)
Mình muốn khi nhập Mã Hàng vào sẽ xuất ra những mã KH tương ứng nằm ngang.
Rất mong nhận đươc sự giúp đỡ của mọi người.

 

[ndu96081631]

File excel: gồm 2 cột: Mã Hàng và Mã Khách Hàng ( Mã KH)
Mình muốn khi nhập Mã Hàng vào sẽ xuất ra những mã KH tương ứng nằm ngang.
Rất mong nhận đươc sự giúp đỡ của mọi người.

Đây là bài toán NỐI CHUỔI CÓ ĐIỀU KIỆN, chỉ có thể lập trình để xử lý thôi bạn à
Nếu đồng ý thì chúng ta tiếp tục

 

[trangtriet]

Đồng ý. Bạn giúp mình giải quyết nó đi nhé.
Cám ơn bạn

 

[ndu96081631]

Đồng ý. Bạn giúp mình giải quyết nó đi nhé.
Cám ơn bạn

Bạn làm như sau:
- Mở file của bạn lên, bấm Alt + F11 để vào cửa số lập trình
- Trong cửa sổ lập trình, vào menu Insert, chọn Module (để chèn một module)
- Copy code dưới đây, paste vào khung bên phải của Module vừa chèn:

Function JoinTextUnique(ByVal Sep As String, ByVal IgnoreBlanks As Boolean, ParamArray sArray()) As String
  Dim tmpArr, SubArr, Arr(), Item, tmp As String
  Dim Dic As Object
  On Error Resume Next
  Set Dic = CreateObject("Scripting.Dictionary")
  For Each SubArr In sArray
    tmpArr = IIf(IsArray(SubArr), SubArr, Array(SubArr))
    For Each Item In tmpArr
      tmp = IIf(TypeName(Item) = "Error", "", Trim(CStr(Item)))
      If IgnoreBlanks = False Or Len(tmp) Then
        If Not Dic.Exists(tmp) Then Dic.Add tmp, ""
      End If
    Next
  Next
  If Dic.Count Then JoinTextUnique = Join(Dic.Keys, Sep)
End Function

- Bấm Alt + Q để thoát khỏi cửa sổ lập trình, trở về bảng tính
- Tại cell D26, gõ công thức:

=JoinTextUnique(", ",TRUE,IF($B$2:$B$20=C26,$A$2:$A$20,""))

Bấm tổ hợp phím Ctrl + Shift + Enter để kết thúc
- Kéo fill công thức xuống D27
---------------
Lưu ý: Để code chạy được, bạn phải Save As file thành định dạng xlsm

 

[trangtriet]

Cám ơn bạn rất nhiều.
Mình đã làm được.