Hỏi mã VBA để tạo báo cáo từ PIVOT

[phanthinh1971]

Em muốn lập mã VBA để lập báo cáo lấy số liệu từ PIVOT sang như trình bày trong file đính kèm .
Mong các bác giúp đỡ
Cảm ơn nhiều

 

[ptm0412]

Cái này không cần đến VBA.
Do dữ liệu của bạn không chuẩn nên làm Pivot nó ra kỳ cục như vậy.
Bạn xem file, tôi thêm 2 cột phụ, dùng Pivot là xong, dấu 2 dòng, y chang báo cáo.

 

[chucuoi92]

Cái này không cần đến VBA.
Do dữ liệu của bạn không chuẩn nên làm Pivot nó ra kỳ cục như vậy.
Bạn xem file, tôi thêm 2 cột phụ, dùng Pivot là xong, dấu 2 dòng, y chang báo cáo.

Em không cần thêm cột phụ cũng y chang báo cáo của Thầy.

 

[ptm0412]

Lâu lâu bị lú lẫn 1 tí
Tại thấy dữ liệu không đúng chuẩn database nên sửa dữ liệu, mà quên rằng Pivot rất mạnh.
Có điều, nếu CD từ 1 đến 100 thì hơi phê. Mặc định dữ liệu không đồng nhất nó sẽ count chứ không sum.
Trong khi đó, nếu 100 cái CD thì dùng công thức khác:

I6 =INDEX($E$5:$G$5;1;MATCH(MAX(E6:G6);E6:G6;0))

 

[phanthinh1971]

Cảm ơn các bác đã giúp em ; tuy nhiên , nếu dùng công thức như bac Ptm thì file chạy rất nặng (trước em đã dùng công thức) . Còn nếu dùng Pivot không thì sẽ khi dùng SUM nó sẽ cộng cả những dữ liệu trùng nên em mới phải tách ra làm thêm file báo cáo . Các bác xem kỹ lại , file của em gửi lên thì ở cột CD1 của mã AAA số lượng nó chỉ là 7.200 thôi vì có một dòng bên Sheet dữ liệu nhập trùng số lượng 1.000 .
Các bác xem có cách giải quyết vấn đề đó tự động được không ?
Cảm ơn nhiều

 

[ptm0412]

Dữ liệu trùng 1000 của AAA - 11111 thì không ai có thể nhận ra được đâu. Nhập liêu sai thì chỉ người nhập dò lại mới biết, chứ người ngoài, Excel, VBA, ... vô phương.

Bạn có thể nói sao cho ông Excel hoặc ông Pivot table biết trong 100 dòng dữ liệu kia, có bao nhiêu dòng trùng? Ở đâu? Căn cứ vào cái gì?

Tóm lại, nếu bạn có dấu hiệu nhận biết dữ liệu trùng, thì tôi có thể viết VBA cho bạn.