Bỏ qua nội dung chính

Làm cách nào để tự động làm mới Bảng Pivot trong Excel?

Thông thường, khi chúng tôi cập nhật dữ liệu nguồn của bảng tổng hợp, bảng tổng hợp sẽ không được cập nhật cho đến khi chúng tôi nhấp vào Phân tích > Refresh thủ công. Điều này sẽ khá nhàm chán nếu bảng xoay vẫn nằm trong một trang tính khác và bạn có thể quên làm mới nó. Ở đây, bài viết này sẽ giới thiệu một VBA để tự động làm mới bảng tổng hợp trong Excel.

Tự động làm mới Bảng tổng hợp bằng VBA


Tự động làm mới Bảng tổng hợp bằng VBA

Vui lòng làm theo các bước dưới đây để áp dụng VBA để tự động làm mới bảng tổng hợp được chỉ định trong Excel.

1. Trong thanh tab Trang tính, bấm chuột phải vào tab trang tính có chứa dữ liệu nguồn và chọn Mã Chế độ xem trong menu ngữ cảnh. Xem ảnh chụp màn hình:

2. Trong cửa sổ Microsoft Visual Basic for Applications đang mở, vui lòng dán mã.

VBA: Tự động làm mới bảng tổng hợp được chỉ định

Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets("sheet name").PivotTables("PivotTable name").PivotCache.Refresh
End Sub

Ghi chú:
(1) Trong mã của Bảng tính ("tên trang tính") .PivotTables ("Tên PivotTable") .PivotCache.Refresh, vui lòng thay thế tên trang tính với tên của trang tính chứa bảng tổng hợp được chỉ định và thay thế Tên PivotTable với tên của bảng tổng hợp được chỉ định.
(2) Chọn bất kỳ ô nào trong bảng tổng hợp được chỉ định, bạn sẽ nhận được tên của nó trên Phân tích tab (hoặc Các lựa chọn chuyển hướng). Xem ảnh chụp màn hình:

3. Lưu mã.

Từ bây giờ, khi bạn thay đổi dữ liệu trong dữ liệu nguồn, bảng tổng hợp được chỉ định sẽ tự động được làm mới.

Dễ dàng kết hợp nhiều trang tính / sổ làm việc / tệp CSV vào một trang tính / sổ làm việc

Có thể tẻ nhạt khi kết hợp hàng chục trang tính từ các sổ làm việc khác nhau thành một trang tính. Nhưng với Kutools cho Excel's Kết hợp (trang tính và sổ làm việc) tiện ích, bạn có thể hoàn thành nó chỉ với vài cú nhấp chuột!


ad kết hợp sách 1

Các bài liên quan:

Công cụ năng suất văn phòng tốt nhất

🤖 Trợ lý AI của Kutools: Cách mạng hóa việc phân tích dữ liệu dựa trên: Thực thi thông minh   |  Tạo mã  |  Tạo công thức tùy chỉnh  |  Phân tích dữ liệu và tạo biểu đồ  |  Gọi các hàm Kutools...
Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao   |  Xóa hàng trống   |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu   |   Vòng không có công thức hữu ích. Cảm ơn !
Siêu tra cứu: Nhiều tiêu chí VLookup    VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọn ....
Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh dãy và cột hữu ích. Cảm ơn !
Các tính năng nổi bật: Tiêu điểm lưới   |  Chế độ xem thiết kế   |   Thanh công thức lớn    Trình quản lý sổ làm việc & trang tính   |  Thư viện tài nguyên (Văn bản tự động)   |  Bảng chọn ngày   |  Kết hợp các bảng tính   |  Mã hóa/Giải mã ô    Gửi email theo danh sách   |  Siêu lọc   |   Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
15 bộ công cụ hàng đầu12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...)   |   50 + Biểu đồ Các loại (Biểu đồ Gantt,...)   |   40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...)   |   19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...)   |   12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...)   |   7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...)   |   ... và nhiều hơn nữa

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...

Mô 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!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
If the Pivot Table is on the same sheet that changes data, you need avoid a loop, so you need implement a conditional statement

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("M:M")) Is Nothing Then
Exit Sub
Else
'MsgBox "You just changed" & Target.Address
Worksheets("SheetName").PivotTables("PivotTableName").PivotCache.Refresh
End If

End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations