Chuyển count thành sum khi pivot (3 người xem)

[rosy84]

Dear All!

Có bác nào biết cách chuyển tat cả count thành sum khi pivot không?

Em co sheets du liệu khi pivot thi toàn là count mà em muốn nó mặc định là sum.

Em lam thủ công lâu quá.

 

[ptm0412]

Do dữ liệu không đồng nhất hoặc dữ liệu tại cột cần Sum có ô trống, nhất là 10 dòng đầu tiên.
Do đó cần lưu ý trước khi tạo Pivot table (hoặc làm bất cứ cái gì: công thức, filter, viết code, ...) phải xem xét sự đồng nhất của dữ liệu và không để trống 10 dòng đầu tiên.

Nếu bất đắc dĩ phải làm với dữ liệu trống:
- Gõ 1 con số bất kỳ (1, 10, 2, ...) lấp vào chỗ trống của 3 dòng đầu
- Tạo Pivot table với 3 dòng dữ liệu đó, mặc định sẽ là Sum
- Xoá các số vừa gõ vào
- Chỉnh lại dữ liệu nguồn của Pivot, và refresh.

 

[rosy84]

Vay khong co cách khác hả bác, nếu chuyển ngược lại từ sum thành count thi sao ha bac.

 

[bac199x]

Vay khong co cách khác hả bác, nếu chuyển ngược lại từ sum thành count thi sao ha bac.

Cho a/c nào đang tìm
1. Vào Developer trong file excel
2. Chọn visual basic > Insert > module
3. Copy dòng code này (tìm trên chat GPT) > đóng tap macro > nhấn Alt+F8 > chọn lệnh > chọn "RUN" là ok
Sub ChangePivotFieldsToSum()
Dim pt As PivotTable
Dim pf As PivotField

' Ki?m tra n?u có Pivot Table nào du?c ch?n không
On Error Resume Next
Set pt = ActiveCell.PivotTable
On Error GoTo 0

If pt Is Nothing Then
MsgBox "Vui lòng ch?n m?t ô trong Pivot Table!", vbExclamation, "Thông báo"
Exit Sub
End If

' Duy?t qua t?t c? các tru?ng giá tr? trong Pivot Table
For Each pf In pt.DataFields
pf.Function = xlSum ' Ð?t ch? d? tính toán thành Sum
Next pf

' C?p nh?t l?i Pivot Table
pt.RefreshTable

MsgBox "Ðã chuy?n toàn b? giá tr? trong Pivot Table thành Sum!", vbInformation, "Hoàn t?t"
End Sub

 

[ptm0412]

Cho a/c nào đang tìm

Dữ liệu không chuẩn, làm tay không được thì code cũng sẽ bó tay. Bạn đọc lại những bài bên trên đi, đã xử lý xong 13 năm nay rồi.