Làm cách nào để thay đổi cài đặt nhiều trường trong bảng tổng hợp?
Khi bạn tạo một bảng tổng hợp trong một trang tính, sau khi kéo các trường vào Các giá trị danh sách trong Danh sách trường PivotTable, bạn có thể nhận được tất cả những thứ giống nhau Đếm chức năng như ảnh chụp màn hình sau. Nhưng bây giờ, bạn muốn Tổng chức năng thay thế Đếm của hàm cùng một lúc, làm cách nào bạn có thể thay đổi tính toán của nhiều trường bảng tổng hợp cùng một lúc trong Excel?
Thay đổi cài đặt trường trong bảng tổng hợp theo cách thủ công từng cái một
Thay đổi nhiều cài đặt trường trong bảng tổng hợp bằng mã VBA
Thay đổi cài đặt trường trong bảng tổng hợp theo cách thủ công từng cái một
Trong Excel, bạn có thể thay đổi cách tính cài đặt trường bằng cách thay đổi từng hàm một trong Cài đặt trường giá trị hộp thoại, vui lòng làm như sau:
1. Chọn một trường trong vùng Giá trị mà bạn muốn thay đổi chức năng tóm tắt trong bảng tổng hợp và nhấp chuột phải để chọn Cài đặt trường giá trị, xem ảnh chụp màn hình:
2. Sau đó, trong Cài đặt trường giá trị hộp thoại, chọn một loại tính toán mà bạn muốn sử dụng trong Tổng kết giá trị theo tab, xem ảnh chụp màn hình:
3. Và sau đó nhấp vào OK để đóng hộp thoại này và bạn có thể thấy hàm Count của mình đã được thay đổi thành hàm Sum, xem ảnh chụp màn hình:
4. Lặp lại các bước trên để thay đổi từng cài đặt tính toán của các trường khác.
Lưu ý: Bạn cũng có thể thay đổi cài đặt trường bằng cách nhấp chuột phải vào một ô trường và chọn Tóm tắt các giá trị bằng và chọn một phép tính bạn cần từ menu ngữ cảnh.
Thay đổi nhiều cài đặt trường trong bảng tổng hợp bằng mã VBA
Phương pháp trên sẽ tốn thời gian và tẻ nhạt nếu có nhiều phép tính thực địa cần phải thay đổi, ở đây, tôi có thể giới thiệu cho bạn một đoạn mã để thay đổi nhiều cài đặt được phân phối cùng một lúc.
1. Nhấp vào bất kỳ ô nào trong bảng tổng hợp của bạn.
2. Giữ ALT + F11 chìa khóa và nó mở Cửa sổ Microsoft Visual Basic for Applications.
3. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Cửa sổ mô-đun.
Mã VBA: Thay đổi nhiều cài đặt trường trong bảng tổng hợp
Public Sub SetDataFieldsToSum()
'Update 20141127
Dim xPF As PivotField
Dim WorkRng As Range
Set WorkRng = Application.Selection
With WorkRng.PivotTable
.ManualUpdate = True
For Each xPF In .DataFields
With xPF
.Function = xlSum
.NumberFormat = "#,##0"
End With
Next
.ManualUpdate = False
End With
End Sub
4. Sau đó nhấn F5 để thực thi mã này và tất cả cài đặt trường trong bảng tổng hợp đã chọn của bạn đã được chuyển đổi thành phép tính nhu cầu của bạn cùng một lúc, hãy xem ảnh chụp màn hình:
|
 |
 |
Chú thích: Trong đoạn mã trên, bạn có thể thay đổi hàm Sum thành bất kỳ phép tính nào khác, chẳng hạn như Average, Max, Min tùy ý. Bạn chỉ cần thay đổi Tổng trong các tập lệnh sau: Public Sub SetDataFieldsToSum () và .Hàm = xlSum đến các chức năng khác.
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
