vanthinh3101
Thành viên tích cực
- Tham gia
- 24/1/15
- Bài viết
- 1,112
- Được thích
- 1,436
- Giới tính
- Nam
- Nghề nghiệp
- Finance
Kính gửi mọi người,
Tôi cần viết code VBA để tạo pivot table.
Dữ liệu gốc chỉ có 1 cột duy nhất.
Mục đích để có kết quả như hình
Tôi đã viết code như sau:
Tuy nhiên, kết quả tôi nhận được lại là
Mọi người kiểm tra và sửa code lại giúp tôi nhé!
Xin cảm ơn
Tôi cần viết code VBA để tạo pivot table.
Dữ liệu gốc chỉ có 1 cột duy nhất.
Mục đích để có kết quả như hình
Tôi đã viết code như sau:
Sub pivottable() ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "Disbursed_date").CreatePivotTable _ TableDestination:=Sheets("Sheet1").Range("A3"), TableName:="PivotTable1" With ActiveSheet.PivotTables("PivotTable1").PivotFields("Disbursed date") .Orientation = xlColumnField End With ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _ "PivotTable1").PivotFields("Disbursed date"), "Count of Disbursed date", _ xlCount End Sub |
Tuy nhiên, kết quả tôi nhận được lại là
Mọi người kiểm tra và sửa code lại giúp tôi nhé!
Xin cảm ơn