Lọc dữ liệu cho ra kết quả loại bỏ những dữ liệu bị trùng (Unique theo Mã) và tự động cập nhật.

[sonnguyenqna]

Xin chào các thầy cô và các anh chị em trong diễn đàn.
Cho em xin giải pháp lọc dữ liệu cho ra kết quả loại bỏ những dữ liệu bị trùng (Unique theo MA_BG) và tự động cập nhật khi dữ liệu nguồn được thêm vào ạ như hình ảnh minh họa ạ.
Rất mong nhận được sự trợ giúp của các anh chị em,
Em xin chân thành cảm ơn.

 

[HieuCD]

Xin chào các thầy cô và các anh chị em trong diễn đàn.
Cho em xin giải pháp lọc dữ liệu cho ra kết quả loại bỏ những dữ liệu bị trùng (Unique theo MA_BG) và tự động cập nhật khi dữ liệu nguồn được thêm vào ạ như hình ảnh minh họa ạ.
Rất mong nhận được sự trợ giúp của các anh chị em,
Em xin chân thành cảm ơn.View attachment 227427

Chep code vào sheet báo giá

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim sArr(), Res(), ikey$
  Dim eR&, sR&, i&, iR&, j&, k&
  If Target.Column < 6 And Target.Row > 1 Then
    sR = Target.Rows.Count
    For i = 1 To sR
      iR = Target(i, 1).Row
      For j = 1 To 5
        If Len(Cells(iR, j)) = 0 Then Exit For
      Next j
      If j = 5 + 1 Then Exit For
    Next i
    If i = sR + 1 Then Exit Sub
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    eR = Range("J" & Rows.Count).End(xlUp).Row
    If eR > 6 Then Range("J7:N" & eR).ClearContents
    eR = Range("A" & Rows.Count).End(xlUp).Row
    If eR < 1 Then MsgBox ("Khong co du lieu"): Exit Sub
    sArr = Range("A2:E" & eR).Value
    sR = UBound(sArr)
    ReDim Res(1 To sR, 1 To 5)
    With CreateObject("scripting.dictionary")
      For i = 1 To sR
        ikey = sArr(i, 1)
        If .Exists(ikey) = False Then
          .Add ikey, ""
          k = k + 1
          For j = 1 To 5
            Res(k, j) = sArr(i, j)
          Next j
        End If
      Next i
    End With
    Range("J7:N7").Resize(k) = Res
    Application.ScreenUpdating = True
    Application.EnableEvents = True
  End If
End Sub

 

[stao]

Xin chào các thầy cô và các anh chị em trong diễn đàn.
Cho em xin giải pháp lọc dữ liệu cho ra kết quả loại bỏ những dữ liệu bị trùng (Unique theo MA_BG) và tự động cập nhật khi dữ liệu nguồn được thêm vào ạ như hình ảnh minh họa ạ.
Rất mong nhận được sự trợ giúp của các anh chị em,
Em xin chân thành cảm ơn.View attachment 227427

Góp vui thêm 1 cách nha.

 

[sonnguyenqna]

Em đã làm được rồi, cảm ơn anh @HieuCD và @stao nhiều ạ.
Nhân tiện, xin hỏi 2 anh luôn về cách tìm kiếm tương đối trong listbox dựa vào dữ liệu nhập ở textbox với ạ, cũng lâu rồi mà đến giờ em cũng chưa giải quyết được vấn đề này ạ.

Tìm kiếm tất cả các trường trong listbox theo điều kiện nhập vào từ textbox.

Dạ thưa các thầy cô và các anh chị em trong diễn đàn, em mới học viết code vba và gặp một vấn đề về tìm kiếm rất mong được chỉ giáo ạ. Cho em xin hỏi cách code tìm kiếm tất cả các trường trong listbox, có thể tìm kiếm theo mã số KH, ngày tạo, tên KH, địa...

www.giaiphapexcel.com

 

[HieuCD]

Em đã làm được rồi, cảm ơn anh @HieuCD và @stao nhiều ạ.
Nhân tiện, xin hỏi 2 anh luôn về cách tìm kiếm tương đối trong listbox dựa vào dữ liệu nhập ở textbox với ạ, cũng lâu rồi mà đến giờ em cũng chưa giải quyết được vấn đề này ạ.

Tìm kiếm tất cả các trường trong listbox theo điều kiện nhập vào từ textbox.

Dạ thưa các thầy cô và các anh chị em trong diễn đàn, em mới học viết code vba và gặp một vấn đề về tìm kiếm rất mong được chỉ giáo ạ. Cho em xin hỏi cách code tìm kiếm tất cả các trường trong listbox, có thể tìm kiếm theo mã số KH, ngày tạo, tên KH, địa...

www.giaiphapexcel.com

Tiêu đề bạn dùng Textbox và nhập tay vào khi thết kế form
Mình không chạy được code và rất ngại khi chạy file dùng các addin của bên thứ 3

 

[sonnguyenqna]

Tiêu đề bạn dùng Textbox và nhập tay vào khi thết kế form
Mình không chạy được code và rất ngại khi chạy file dùng các addin của bên thứ 3

Vâng ạ, em xóa addin bên thứ 3 rồi, nhờ anh xem giúp hỗ trợ em chỗ tìm kiếm với được không ạ? Nguyện vọng của em là tìm kiếm tất cả các trường, nhưng nếu không có giải pháp thì có thể tìm kiếm tương đối theo 1 trường "Tên khách hàng" cũng được anh ạ.
PS: Em mới làm vba trong vòng nửa tháng nay nên kiến thức còn hạn hẹp, có gì hỏi không phải mong anh bỏ qua cho em với anh nha.

 

[HieuCD]

Vâng ạ, em xóa addin bên thứ 3 rồi, nhờ anh xem giúp hỗ trợ em chỗ tìm kiếm với được không ạ? Nguyện vọng của em là tìm kiếm tất cả các trường, nhưng nếu không có giải pháp thì có thể tìm kiếm tương đối theo 1 trường "Tên khách hàng" cũng được anh ạ.
PS: Em mới làm vba trong vòng nửa tháng nay nên kiến thức còn hạn hẹp, có gì hỏi không phải mong anh bỏ qua cho em với anh nha.

File không mở form được do mình không cài addin

 

[sonnguyenqna]

File không mở form được do mình không cài addin

Thật xin lỗi khi phiền anh quá, anh có thể xem lại giúp em lần này mở có được không ạ? Em đã test máy không cài addin và mở được anh ạ.

 

[HieuCD]

Thật xin lỗi khi phiền anh quá, anh có thể xem lại giúp em lần này mở có được không ạ? Em đã test máy không cài addin và mở được anh ạ.

Bạn tạo các label làm tiêu đề cột

 

[sonnguyenqna]

Bạn tạo các label làm tiêu đề cột

Em cảm ơn anh ạ.
Chúc anh buổi tối vui vẻ nha ))