Giúp pivot bằng VBA

[tranphuson]

Vui lòng giúp mình Pivot bằng VBA theo file excel đính kèm.

Trong đây: mình có Sheet "Data" dữ liệu có sẵn, mình muốn sử dụng bằng VBA xử lý qua Sheet "Pivot" theo các cột trong file đính kèm.

Xin cảm ơn

 

[Cá ngừ F1]

Code pivot có thể record macro lại
Tuy nhiên tôi thấy code hơi phức tạp.
Cứ làm 1 cái Pivot kéo thả bình thường, khi data có sự thay đổi thì refresh lại là xong.

 

[LamNA]

Vui lòng giúp mình Pivot bằng VBA theo file excel đính kèm.

Trong đây: mình có Sheet "Data" dữ liệu có sẵn, mình muốn sử dụng bằng VBA xử lý qua Sheet "Pivot" theo các cột trong file đính kèm.

Xin cảm ơn

Không biết đúng ý bạn không?
Mình cũng dựa vào bảng Pivot của bạn, khi pivot số liệu thay đổi thì sheet VBA cũng thay đổi theo

 

[tranphuson]

Cảm ơn bạn đã giúp. Nhưng mình cần giúp thêm:

1. Nếu file này không có Sheet "Pivot" thì có thể dùng VBA tự tạo ra Sheet "VBA" chứ? Hiện tại mình thấy Sheet "VBA" chạy dựa trên Sheet "Pivot" để lấy dữ liệu. Ý mình muốn lấy từ Sheet "Data" chạy VBA ra thẳng luôn.

2. Mình cần phát triển thêm phần "Tổng hợp" theo file đính kèm bạn có thể vui lòng giúp mình

Xin cảm ơn

 

[ndu96081631]

Code pivot có thể record macro lại
Tuy nhiên tôi thấy code hơi phức tạp.
Cứ làm 1 cái Pivot kéo thả bình thường, khi data có sự thay đổi thì refresh lại là xong.

Chính xác là vậy! Bởi chỉ tạo có 1 lần duy nhất mà dùng VBA thì hơi... thừa

 

[LamNA]

Cảm ơn bạn đã giúp. Nhưng mình cần giúp thêm:

1. Nếu file này không có Sheet "Pivot" thì có thể dùng VBA tự tạo ra Sheet "VBA" chứ? Hiện tại mình thấy Sheet "VBA" chạy dựa trên Sheet "Pivot" để lấy dữ liệu. Ý mình muốn lấy từ Sheet "Data" chạy VBA ra thẳng luôn.

2. Mình cần phát triển thêm phần "Tổng hợp" theo file đính kèm bạn có thể vui lòng giúp mình

Xin cảm ơn

Mình chỉ giúp bạn không dùng Pivot, nhưng còn 1 số định dạng thì chắc bạn phải nhờ các anh chị hỗ trợ thêm nhé
- Lọc bỏ trùng: Cột A,B,C,D
- Lọc tháng dựa vào cột B yêu cầu của bạn chưa thỏa mãn nếu theo mẫu bạn yêu cầu, do lọc bỏ trùng cột B nên mình đã thay cột phụ tháng ở cột "M"

 

[Cá ngừ F1]

Chính xác là vậy! Bởi chỉ tạo có 1 lần duy nhất mà dùng VBA thì hơi... thừa

Vâng, e thấy code phức tạp mà mỗi lần chạy rất nặng nề, trong khi refresh rẹt phát là xong.

 

[tranphuson]

Cảm ơn bạn "LamNA" đã giúp. Nhưng mình muốn hỏi thêm là 2 cột dữ liệu M & P không trùng tháng.

Ngoài ra, nếu sort theo tháng thì dữ liệu bên bảng sẽ sort tháng tương ứng.

Cảm ơn

 

[LamNA]

Vui lòng giúp mình Pivot bằng VBA theo file excel đính kèm.

Trong đây: mình có Sheet "Data" dữ liệu có sẵn, mình muốn sử dụng bằng VBA xử lý qua Sheet "Pivot" theo các cột trong file đính kèm.

Xin cảm ơn

Mình thêm lọc tháng cho bạn, bạn xem và xây dựng thêm nhe

 

[tranphuson]

Đúng theo yêu cầu của mình. Ngoài ra, cho mình hỏi thêm nếu chọn xem tất cả các tháng thì sao? Vì hiện tại mình chọn theo từng tháng chứ chưa xem được toàn bộ các tháng.

Xin cảm ơn

 

[be_09]

Cảm ơn bạn đã giúp. Nhưng mình cần giúp thêm:

1. Nếu file này không có Sheet "Pivot" thì có thể dùng VBA tự tạo ra Sheet "VBA" chứ? Hiện tại mình thấy Sheet "VBA" chạy dựa trên Sheet "Pivot" để lấy dữ liệu. Ý mình muốn lấy từ Sheet "Data" chạy VBA ra thẳng luôn.

2. Mình cần phát triển thêm phần "Tổng hợp" theo file đính kèm bạn có thể vui lòng giúp mình

Xin cảm ơn

Nếu muốn thêm phần "Tổng hợp" theo từng tháng bằng PivotTable thì vào sheet Pivot nhấn nút Tách PivotTable và xem kết quả.
Code tạo PivotTable thì viết nhiều quá nhưng chưa rảnh để làm cho bạn.

 

[LamNA]

Đúng theo yêu cầu của mình. Ngoài ra, cho mình hỏi thêm nếu chọn xem tất cả các tháng thì sao? Vì hiện tại mình chọn theo từng tháng chứ chưa xem được toàn bộ các tháng.

Xin cảm ơn

Bạn thử nhe

 

[tranphuson]

Quá tuyệt, xin cảm ơn