Tạo nút để ra lệnh cập nhật tất cả các pivortbale trong workbook

[PhamHuyHung1990]

Xin chào cả nhà,

File excel của mình có hơn 10 bản pivorttable. Sau khi cập nhật data, mình muốn có 1 nút để ra lệnh cho tất cả các pivorttable cập nhật dữ liệu. Xin mọi người chỉ giúp mình cách làm với!

 

[Phuocam]

Public Sub Refresh_All()
ThisWorkbook.RefreshAll
End Sub

 

[PhamHuyHung1990]

Public Sub Refresh_All()
ThisWorkbook.RefreshAll
End Sub

Trước tiên xin cám ơn bạn đã chỉ, nhưng mình muốn hỏi thêm là khi đưa code:

Public Sub Refresh_All()
' lam moi tat ca cac pivorttable
ThisWorkbook.RefreshAll
End Sub

vào module của personal.xlsb. Sau đó ra phần macro thì không thấy macro này đâu. Vậy làm thế nào để nó hiện lên vậy bạn?

 

[befaint]

hiện lên

Xóa chữ "Public" .

 

[Binbo2020]

Public Sub Refresh_All()
ThisWorkbook.RefreshAll
End Sub

Hic giờ mới biết trước toàn Record macro lại, bao nhiêu bảng Refresh bấy nhiêu lần