Làm cách nào để thêm nhiều trường vào bảng tổng hợp?
Khi tạo bảng tổng hợp, chúng ta cần kéo từng trường vào Nhãn hàng hoặc Giá trị theo cách thủ công từng trường một. Nếu chúng ta có một danh sách dài các trường, chúng ta có thể nhanh chóng thêm một vài nhãn hàng, nhưng các trường còn lại nên được thêm vào vùng Giá trị. Có phương pháp nhanh nào để chúng tôi thêm tất cả các trường khác vào vùng Giá trị bằng một cú nhấp chuột trong bảng tổng hợp không?
Thêm nhiều trường vào vùng Giá trị của bảng tổng hợp với mã VBA
Thêm nhiều trường vào vùng Giá trị của bảng tổng hợp với mã VBA
Rất tiếc, không có hộp kiểm nào để chúng tôi nhanh chóng kiểm tra tất cả các trường trong Danh sách Trường Bảng Pivot bằng một cú nhấp chuột, nhưng với mã VBA sau, nó có thể giúp bạn thêm các trường còn lại vào vùng Giá trị cùng một lúc. Vui lòng làm như sau:
1. Sau khi tạo bảng tổng hợp, trước tiên, bạn nên thêm các trường nhãn hàng theo nhu cầu của mình và để lại các trường giá trị trong Chọn các trường để thêm vào báo cáo danh sách, xem ảnh chụp màn hình: </ p>
2. Giữ ALT + F11 phím để 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: Thêm nhiều trường vào Vùng giá trị của bảng tổng hợp trong trang tính đang hoạt động
Sub AddAllFieldsValues()
'Update 20141112
Dim pt As PivotTable
Dim I As Long
For Each pt In ActiveSheet.PivotTables
For I = 1 To pt.PivotFields.Count
With pt.PivotFields(I)
If .Orientation = 0 Then .Orientation = xlDataField
End With
Next
Next
End Sub
4. Sau đó nhấn F5 để chạy mã này, tất cả các trường còn lại đã được thêm vào vùng Giá trị cùng một lúc, xem ảnh chụp màn hình:
Chú thích: Mã VBA này được áp dụng cho tất cả các bảng tổng hợp của trang tính đang hoạt động.
Các bài liên quan:
Làm cách nào để liệt kê tất cả các bảng tổng hợp tạo thành một sổ làm việc?
Làm cách nào để kiểm tra xem bảng tổng hợp có tồn tại trong sổ làm việc không?
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!
