Giúp đỡ pivot trong excel bằng vba

[tranphuson]

Các bạn vui lòng hỗ trợ file đính kèm từ Pivot sang VBA cho nhanh hoặc có cách xử lý nào nhanh hơn làm thủ công này

Ví dụ: Sheet "DATA" là nguồn, Sheet "Pivot" xử lý từ Sheet "DATA". Chỗ Cột B1 chọn là số 0, còn cột A3, B3, (C3 được Count từ Sheet "DATA" số lượng cửa hàng thiếu). Nhưng ở dữ liệu Pivot không xử lý được nên phải Copy "Value" ra bên ngoài xử lý Sort cột C từ lớn đến nhỏ

Cảm ơn

 

[quanluu]

Các bạn vui lòng hỗ trợ file đính kèm từ Pivot sang VBA cho nhanh hoặc có cách xử lý nào nhanh hơn làm thủ công này

Ví dụ: Sheet "DATA" là nguồn, Sheet "Pivot" xử lý từ Sheet "DATA". Chỗ Cột B1 chọn là số 0, còn cột A3, B3, (C3 được Count từ Sheet "DATA" số lượng cửa hàng thiếu). Nhưng ở dữ liệu Pivot không xử lý được nên phải Copy "Value" ra bên ngoài xử lý Sort cột C từ lớn đến nhỏ

Cảm ơn

Bạn thử code này

Sub pivot()
Dim cn As Object
Set cn = CreateObject("ADODB.Connection")
cn.Open ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No;IMEX=1"";")
Sheet2.Range("I2").CopyFromRecordset cn.Execute("Select f4, f5, count(*) from [DATA$A2:Q] where f17 = " & Sheet2.Range("B1") & " group by f4, f5 order by count(*) desc")
Set cn = Nothing
End Sub

 

[be_09]

Các bạn vui lòng hỗ trợ file đính kèm từ Pivot sang VBA cho nhanh hoặc có cách xử lý nào nhanh hơn làm thủ công này

Ví dụ: Sheet "DATA" là nguồn, Sheet "Pivot" xử lý từ Sheet "DATA". Chỗ Cột B1 chọn là số 0, còn cột A3, B3, (C3 được Count từ Sheet "DATA" số lượng cửa hàng thiếu). Nhưng ở dữ liệu Pivot không xử lý được nên phải Copy "Value" ra bên ngoài xử lý Sort cột C từ lớn đến nhỏ

Cảm ơn

Dùng thử File.
- Vào sheet DATA thêm bất kỳ dữ liệu.
- Sang sheet TONG_HOP nhấn nút (tại A1) để xem kết quả.

 

[tranphuson]

Máy báo lỗi khi chạy Code, bạn vui lòng xem file đính kèm

Cảm ơn

 

[quanluu]

Máy báo lỗi khi chạy Code, bạn vui lòng xem file đính kèm

Cảm ơn

Cập nhật diễn đàn có phần tự động correct từ, bạn coi code có phần code có ghi "Anh chị em" nó phải là viết tắt 3 từ đầu nhé

 

[tranphuson]

Khi chọn D1 = 0 thì cột E chưa sort từ lớn tới nhỏ.

Mình có copy value dữ liệu kế bên để tham khảo

Cảm ơn

 

[Ba Tê]

Khi chọn D1 = 0 thì cột E chưa sort từ lớn tới nhỏ.

Mình có copy value dữ liệu kế bên để tham khảo

Cảm ơn

Dùng VBA mà không Pivot được không?