Nhờ sửa code VBA để tạo Pivot table (1 người xem)

[vanthinh3101]

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:
[TABLE="class: outer_border, width: 500"]
[TR]
[TD]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
[/TD]
[/TR]
[/TABLE]

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

 

[quanluu]

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 View attachment 173861
Tôi đã viết code như sau:
[TABLE="class: outer_border, width: 500"]
[TR]
[TD]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[/TD]
[/TR]
[/TABLE]

Tuy nhiên, kết quả tôi nhận được lại là View attachment 173862

Mọi người kiểm tra và sửa code lại giúp tôi nhé!
Xin cảm ơn

Bạn ghi lại macro thui.

 

[vanthinh3101]

Bạn ghi lại macro thui.

Đoạn code trên là do tôi ghi lại và có sửa gọn đi 1 chút.
Tuy nhiên, kể cả khi tôi có giữ nguyên và chạy lại thì kết quả vẫn không đúng.
Tôi đoán do chỉ cí 1 cột dữ liệu, khi chạy macro, excel hiểu rằng chuyển field từ column sang tính value, đúng ra phải là giữ nguyên column và thêm phần value.
Xin nhờ mọi người chỉ giáo thêm

 

[trung984]

Đoạn code trên là do tôi ghi lại và có sửa gọn đi 1 chút.
Tuy nhiên, kể cả khi tôi có giữ nguyên và chạy lại thì kết quả vẫn không đúng.
Tôi đoán do chỉ cí 1 cột dữ liệu, khi chạy macro, excel hiểu rằng chuyển field từ column sang tính value, đúng ra phải là giữ nguyên column và thêm phần value.
Xin nhờ mọi người chỉ giáo thêm

Sao bạn không đính kèm File, mà nhờ mọi người chỉ giáo thêm, thì dựa vào cái gì để phán đoán là nó sai cái gì? ở chỗ nào?

 

[quanluu]

Đoạn code trên là do tôi ghi lại và có sửa gọn đi 1 chút.
Tuy nhiên, kể cả khi tôi có giữ nguyên và chạy lại thì kết quả vẫn không đúng.
Tôi đoán do chỉ cí 1 cột dữ liệu, khi chạy macro, excel hiểu rằng chuyển field từ column sang tính value, đúng ra phải là giữ nguyên column và thêm phần value.
Xin nhờ mọi người chỉ giáo thêm

Mục đích của bạn là gì? sao không làm theo hướng khác, có khi lại đơn giản hơn nhiều pivot. Chứ mình thấy pivot phần lớn code là ghi macro và chỉnh sửa lại.
Hướng giải quyết cho bạn là: Bạn đảo phần value (adđâtfield) lên trên phần column là được

 

[vanthinh3101]

Mục đích của bạn là gì? sao không làm theo hướng khác, có khi lại đơn giản hơn nhiều pivot. Chứ mình thấy pivot phần lớn code là ghi macro và chỉnh sửa lại.
Hướng giải quyết cho bạn là: Bạn đảo phần value (adđâtfield) lên trên phần column là được

Cám ơn bạn, mình đã làm được rồi.
Mình cần làm báo cáo này hàng tuần, hàng tháng, thông kê số lượng giải ngân theo từng ngày, bạn đã giúp mình giải quyết vướng mắc còn lại của báo cáo này rồi.
Cám ơn bạn nhiều.