Cách xóa tổng phụ trong trục Excel

Macro Excel bao gồm rất nhiều chức năng và sửa đổi Bảng Pivot là một trong số đó. Hãy để chúng tôi ẩn tổng phụ của bảng tổng hợp bằng Excel Macros

Đảm bảo Excel của bạn đã bật Tab Nhà phát triển theo hướng dẫn này

Tôi giải thích làm thế nào bạn có thể làm điều này dưới đây từng bước

Nó làm gì?

Ẩn tổng phụ Pivot Table

Sao chép mã nguồn

'Select a cell first from your pivot table
Sub HidePivotTableSubtotals()

Dim pTable As PivotTable
Dim pField As PivotField

On Error Resume Next

'Get the pivot table first
Set pTable = ActiveSheet.PivotTables(ActiveCell.PivotTable.name)

'Check if a pivot table is found
If pTable Is Nothing Then
MsgBox "Please select a cell first from your Pivot Table."
Exit Sub
End If

'For each subtotal, make it hidden
For Each pField In pTable.PivotFields
pField.Subtotals(1) = True
pField.Subtotals(1) = False
Next pField

End Sub

Kết quả cuối cùng.  

sách bài tập



TẢI XUỐNG SỔ LÀM VIỆC EXCEL

---

Đây là Bảng tổng hợp của chúng tôi và chúng tôi muốn ẩn các tổng phụ này

BƯỚC 1.  Đi tới Nhà phát triển > Mã > Visual Basic

 

BƯỚC 2.  Dán mã của bạn và Chọn Lưu. Đóng cửa sổ sau đó.

 

BƯỚC 3. Hãy để chúng tôi thử nghiệm.

Mở sheet chứa dữ liệu. Chuyển đến Nhà phát triển > Mã > Macro

 

Đảm bảo bảng tổng hợp và macro của bạn được chọn. Nhấp vào Chạy

 

Chỉ với một cú nhấp chuột, tổng phụ Bảng Pivot của bạn hiện đã bị ẩn

 

 

Cách ẩn tổng phụ của bảng Pivot bằng macro trong Excel

 

NGUỒN HỮU ÍCH

Nếu bạn thích thủ thuật Excel này, hãy chia sẻ nó

email

Pinterest

Facebook

Twitter

liên kết

Trong bảng tổng hợp, khi bạn thêm nhiều trường vào nhãn hàng hoặc cột, sẽ hiển thị tổng phụ. Bạn đã bao giờ thử xóa tổng phụ khỏi bảng tổng hợp chưa?

Ẩn hoặc xóa tổng phụ trong một bảng tổng hợp

Ẩn hoặc xóa tổng phụ trong tất cả các bảng tổng hợp của trang tính hiện tại

Tab Office Cho phép chỉnh sửa và duyệt theo tab trong Office, giúp công việc của bạn dễ dàng hơn nhiều

Đọc thêm. Tải xuống miễn phí

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

• Tái sử dụng mọi thứ. Thêm các công thức, biểu đồ phức tạp hoặc được sử dụng nhiều nhất và bất kỳ thứ gì khác vào mục yêu thích của bạn và nhanh chóng sử dụng lại chúng trong tương lai.
• Hơn 20 tính năng văn bản. Trích xuất số từ chuỗi văn bản; .
• Công cụ hợp nhất . Nhiều Sổ làm việc và Trang tính thành Một; .
• Công cụ phân chia . Chia dữ liệu thành nhiều trang dựa trên giá trị; .
• Dán bỏ qua Hàng ẩn/đã lọc; . by Background Color; Send Personalized Emails to Multiple Recipients in Bulk.
• Siêu bộ lọc. Tạo lược đồ bộ lọc nâng cao và áp dụng cho bất kỳ trang tính nào; . Sort by week, day, frequency and more; Filter by bold, formulas, comment...
• Hơn 300 tính năng mạnh mẽ; . Works with Office 2007-2021 and 365; Supports all languages; Easy deploying in your enterprise or organization.

Đọc thêm. Tải xuống miễn phí

---

Ẩn hoặc xóa tổng phụ trong một bảng tổng hợp

Kinh ngạc. Sử dụng các tab hiệu quả trong Excel như Chrome, Firefox và Safari. Tiết kiệm 50% thời gian của bạn và giảm hàng nghìn lần nhấp chuột cho bạn mỗi ngày

---

Để xóa tổng phụ trong một bảng tổng hợp, có một cách dễ dàng cho bạn, hãy làm như sau

1. Bấm vào bất kỳ ô nào trong bảng tổng hợp của bạn, rồi bấm vào Thiết kế > Tổng phụ > Không Hiển thị Tổng phụ, xem ảnh chụp màn hình

2. Và các tổng phụ trong bảng tổng hợp được chỉ định đã bị ẩn cùng một lúc, xem ảnh chụp màn hình

---

Ẩn hoặc xóa tổng phụ trong tất cả các bảng tổng hợp của trang tính hiện tại

Nếu có nhiều bảng tổng hợp trong trang tính hiện tại của bạn và việc ẩn từng tổng phụ sẽ rất tẻ nhạt, vì vậy mã VBA sau có thể giúp bạn xóa tổng phụ khỏi tất cả các bảng tổng hợp

1. Giữ phím ALT + F11 và nó sẽ mở cửa sổ Microsoft Visual Basic for Applications

2. Nhấp vào Chèn > Mô-đun và dán đoạn mã sau vào Cửa sổ Mô-đun

mã VBA. Xóa tổng phụ trong tất cả bảng tổng hợp của trang tính hiện tại

Sub RemoveSubtotals()
'Update 20140905
    Dim xPt As PivotTable
    Dim xPf As PivotField
    On Error Resume Next
    For Each xPt In Application.ActiveSheet.PivotTables
      For Each xPf In xPt.PivotFields
        xPf.Subtotals(1) = True
        xPf.Subtotals(1) = False
      Next
    Next
End Sub

3. Sau đó nhấn phím F5 để chạy mã này và các tổng phụ trong tất cả các bảng tổng hợp của trang tính đang hoạt động đã bị xóa cùng một lúc

Mẹo. Nếu bạn muốn hiển thị lại tổng phụ, bạn có thể nhấp vào bảng tổng hợp và nhấp vào Thiết kế > Hiển thị tổng phụ ở dưới cùng của nhóm/ Hiển thị tổng phụ ở đầu nhóm