Đối với một số kiểu phân tích dữ liệu, PivotTables có thể rất tiện dụng. Nếu bạn có một sổ làm việc chứa nhiều PivotTable, tất cả đều dựa trên cùng một dữ liệu, bạn có thể tự hỏi liệu có cách nào để cập nhật tất cả chúng cùng một lúc, thay vì xem qua từng bảng và cập nhật chúng.

Không có lệnh Excel nào cho phép bạn cập nhật tất cả PivotTable, nhưng bạn có thể tạo một macro ngắn sẽ thực hiện công việc cho bạn. Macro sau, RefreshAllPivots, bước qua từng trang tính trong sổ làm việc, kiểm tra xem có bất kỳ PivotTable nào không, sau đó cập nhật chúng nếu có.

Sub RefreshAllPivots()

Dim wks As Worksheet     Dim pt As PivotTable

For Each wks In Worksheets         For Each pt In wks.PivotTables             pt.RefreshTable         Next pt     Next wks End Sub

Nếu bạn thực hiện nhiều công việc với nhiều PivotTable, bạn có thể muốn gán macro cho một phím tắt, một nút trên thanh công cụ hoặc cho một tùy chọn menu để bạn có thể chạy nó dễ dàng hơn. (Thông tin về cách gán macro cho thanh công cụ, phím tắt và menu được đề cập trong các vấn đề khác của ExcelTips.)

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (2287) áp dụng cho Microsoft Excel 97, 2000, 2002 và 2003. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện ribbon của Excel (Excel 2007 trở lên) tại đây: