Xin trợ giúp code về Values trong Pivot ạ

[ndphongskr]

Chào các bác ạ, phiền các bác cho mình hỏi chút ạ, mình muốn thêm trường vào phần Values mà tên của trường nó theo tên ô E1 thì có code nào làm được không ạ, nếu có thì phiền các bác cho mình xin với ạ. Mình xin cám ơn.

 

[ptm0412]

Xem hình



Xem thêm bài viết Dùng VBA điều khiển Pivot table ra báo cáo

 

[ndphongskr]

Xem hình

View attachment 287628

Xem thêm bài viết Dùng VBA điều khiển Pivot table ra báo cáo

Dạ cám ơn bác, của mình là cái tên filedname2 nó ko cố định bác ạ mà nó nhảy theo ô E1. Có cách nào cho cái tên filedname2 nó bằng giá trị ô E1 ko hả bác.

 

[ptm0412]

Dạ cám ơn bác, của mình là cái tên filedname2 nó ko cố định bác ạ mà nó nhảy theo ô E1. Có cách nào cho cái tên filedname2 nó bằng giá trị ô E1 ko hả bác.

Cái chỗ FieldName1, FieldName2 thay bằng E1 được không?

 

[ndphongskr]

Cái chỗ FieldName1, FieldName2 thay bằng E1 được không?

Sub Test()

With Range("E1")
.Formula = "=""Cutting_""&MONTH(E2)&""/""&DAY(E2)"
.Value = .Value
End With

With ActiveSheet.PivotTables("PivotTables1")
.AddDataFiled ActiveSheet.PivotTables("PivotTables1").PivotFields(Range("E1")), xlSum

End With

End Sub

Dạ đây bác, mà nó ko được bác ạ.

 

[ptm0412]

Tên Pivot table của bạn có đúng là PivotTables1 không?

 

[ndphongskr]

Tên Pivot table của bạn có đúng là PivotTables1 không?

dạ của em là khác, mà tại bác ghi như vậy nên em đang sửa theo mặc định ạ.
còn của mình thế này, khi chạy nó báo lỗi dòng này bác ạ

tại file của mình nó nặng quá nên ko đưa lên được

 

[ptm0412]

Nếu có thể thì bạn nhắn zalo của tôi để teamviewer xem sao. 0919772142

 

[ptm0412]

Té ra là sai chính tả AddDataFiled

 

[ndphongskr]

Té ra là sai chính tả AddDataFiled

dạ vâng, cháu cám ơn chú ạ