Thống kê tên khách hàng và đơn giá...

[thangcode]

Các bạn giúp mình làm báo cáo về khách hàng theo tên mã hàng, đơn giá.

Mình có một sheet chứa dữ liệu trong server đổ ra (ở sheet dulieu).
Ở sheet baocao mình muốn thống kê các tên khách hàng đã mua những mặt hàng nào trên một cột mã hàng, cách nhau bởi dấu phẩy.
Cột Giá sẽ tính tổng giá của các mặt hàng mà khách đã mua.


Chi tiết các bạn xem trong file đính kèm.

Cảm ơn các bạn nhiều.

 

[SA_DQ]

Mình viết giúp bạn 1 macro nè

Hãy bấm chuột vô nút lệnh

 

[thangcode]

Cảm ơn bạn, nhưng chưa được như ý muốn của mình.

- Thứ nhất: Dữ liệu có thể nhiều và có thể thêm bớt, khi mình thêm thì bấm ở nút Báo cáo vẫn không thấy xuất hiện thông tin cần tìm.
- Thứ hai: Ở sheet baocao khi mình nhập tên khách hàng vào để thống kê thì không xuất hiện tên mã hàng và đơn giá, bạn có xem và sửa lại giúp mình.

Cảm ơn bạn rất nhiều.

 

[VetMini]

Cảm ơn bạn, nhưng chưa được như ý muốn của mình.

- Thứ nhất: Dữ liệu có thể nhiều và có thể thêm bớt, khi mình thêm thì bấm ở nút Báo cáo vẫn không thấy xuất hiện thông tin cần tìm.
- Thứ hai: Ở sheet baocao khi mình nhập tên khách hàng vào để thống kê thì không xuất hiện tên mã hàng và đơn giá, bạn có xem và sửa lại giúp mình.

Cảm ơn bạn rất nhiều.

Những gì bạn muốn thì bạn phải nòi từ đầu. Bởi vì chúng liên quan đến giải thuật. Nếu thêm điều kiện thì khả năng viết code lại hoàn toàn khá cao.

Code trên dựa vào hiện tượng khởi file để lấy danh sách khách hàng. Khi bấn nút cáo cáo dùng danh sách khách hàng để xếp dữ liệu vào báo cáo.

Nếu bạn muốn nhập thêm thì phải khởi lại để nó lập cái danh sách mới. Chỉ dẫn sửa nhanh: tạo một nút khác, bấm vào thì gọi sub workbook_open

Tuy nhiên theo điều kiện của bạn thì code nên thiết kế lại từ đầu:

1. Sắp xếp bảng dữ liệu theo mã/tên khách hàng và sản phẩm.
2. Xoá chi tiết trong bảng báo cáo
3. Đọc bảng dữ liệu và cộng tên hàng, tổng tiền.
4. Mỗi lần gặp một khách hàng mới thì ghi khách hàng hiện tại vào báo cáo và bắt đầu cộng lại.

 

[SA_DQ]

. . . , nhưng chưa được như ý muốn của mình.

- (2): Dữ liệu có thể nhiều và có thể thêm bớt, khi mình thêm thì bấm ở nút Báo cáo vẫn không thấy xuất hiện thông tin cần tìm.

- (1)i: Ở sheet baocao khi mình nhập tên khách hàng vào để thống kê thì không xuất hiện tên mã hàng và đơn giá, bạn có xem và sửa lại giúp mình.

(1) Danh sách khách hàng mới duy nhất này bạn không cần thiết lập;
Sau khi đổ dữ liệu từ server (như cách bạn gọi) xong; Bạn chuyển sang trang tính khác & trở lại trang tinh này; Tự khắc macro sẽ xây dựng 1 danh sách khách hàng duy nhất của dữ liệu vừa đổ vô.

Khi bấm vô nút cho chạy macro để có B/C, macro trước tiên sẽ chép danh sách duy nhất khách hàng này cho vô trang 'BaoCao'
Macro đã tự động cho bạn, bạn chỉ việc uống cà fê với các em út thôi, khỏi chuyện nhập thêm khách hàng nào hết!

(2) Như (1) đã nêu, khi đỗ dữ liệu vô trang 'DuLieu', bạn làm ơn đóng nó lại & mở nó ra lại!
Chỉ thêm công đoạn này & chịu khó đi nha!

Còn chuyện cấm kỵ nữa, đó à: Không được xóa hay chèn trường mới vô đâu đó trong CSDL
Muốn thực hiện việc này cần hỏi thêm các chỉ dẫn cần thiết.

Đây là macro tự động tạo danh sách khách hàng duy nhất khi mở/kích hoạt trang 'DuLieu':

Private Sub Worksheet_Activate()
    Columns("A:A").Select
    Columns("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "AA1"), Unique:=True
End Sub

 

[thangcode]

Vậy bạn giúp mình một file hoàn chỉnh được không, mình không biết mấy nên vào hỏi các bạn làm cho mình.