Cần tìm mã cho lệnh Refresh All

[vietnam123]

Em có 1 file excel tự cập nhật dữ liệu từ web về.

Nó có tính năng tự động cập nhật mỗi phút, nhưng làm thế rất tốn tài nguyên máy.

Em chỉ cần nó Refresh khi cần. Nhưng mỗi lần thế lại phải tìm nút Refresh trên thanh menu rất lâu, nhiều lúc nó cứ chạy ở đâu.

Em muốn làm 1 nút Refresh all ngay ở trong sheet của mình, để khi cần thì click luôn.

Cái này chắc không khó, mong các bác cao thủ chỉ em vài đường.

Em xin cảm ơn nhiều.

 

[anhtuan1066]

Tạo 1 nút lệnh rồi liên kết với macro này:
Private Sub CommandButton1_Click()
Calculate
End Sub

 

[vietnam123]

Em tìm được rồi. Cảm ơn các bác.

Sub RefreshAll()
ActiveWorkbook.RefreshAll
End Sub