Code lập Pivot Table ra định dạng không như dùng Macro

[kobebryant]

Mình viết 1 code để tạo Pivot Table, nhưng không hiểu sao ở trường Values khi cho nhiều value vào thì Pivot Table không ra như mong muốn. Nó xuất hiện thêm Filed Values ở trường Rows
Trong file ví dụ, mình có 1 sheet ra pivot như mong muốn và 1 sheet nó chạy ra lỗi.
Mong anh em chỉnh lại code giúp mình. Xin cám ơn.

 

[ptm0412]

Trả lời cách xử lý bằng tay:



Code: thêm 1 câu lệnh ngay trước End With

        .DataPivotField.Orientation = xlColumnField

 

[kobebryant]

Trả lời cách xử lý bằng tay:

View attachment 240854

Code: thêm 1 câu lệnh ngay trước End With

        .DataPivotField.Orientation = xlColumnField

Vậy code có vấn đề hả anh, hay là lỗi Excel

Bài đã được tự động gộp: 10/7/20

 

[ptm0412]

Vậy code có vấn đề hả anh, hay là lỗi Excel

Tạo pivot table bằng tay hay code đều mặc định như thế, phải kéo thả như thế hoặc thêm câu lệnh như thế

 

[kobebryant]

Tạo pivot table bằng tay hay code đều mặc định như thế, phải kéo thả như thế hoặc thêm câu lệnh như thế

em thấy làm thủ công bằng tay nó đâu xuất hiện thêm Values đâu. Dạ để em bổ sung thêm dòng code cuối. Em cám ơn anh

 

[ptm0412]

em thấy làm thủ công bằng tay nó đâu xuất hiện thêm Values đâu.

Phải trợn mắt lên nhìn mới thấy, nếu nhiều trường tính toán thì lúc nào cũng có