Cần giúp đỡ về code Calculation (1 người xem)

[vova2209]

Sub CalculationManual()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False

End Sub
-----------------------------
Đoạn code trên em muốn sau khi chạy thì 10 phút sau nó sẽ gọi 1 Sub (hoặc xlCalculationAutomatic)
em xin chân thành cảm ơn!

 

[befaint]

Sub CalculationManual()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False

End Sub
-----------------------------
Đoạn code trên em muốn sau khi chạy thì 10 phút sau nó sẽ gọi 1 Sub (hoặc xlCalculationAutomatic)
em xin chân thành cảm ơn!

1> Từ khóa: Application.OnTime

2> Không cần code.
Thiết lập Excel Options:
- Calculation: Manual - Recaculate workbook before saving
- Save every: 10 minutes

 

[vova2209]

Anh làm ví dụ cho em xem với ạ! Application.OnTime

1> Từ khóa: Application.OnTime

2> Không cần code.
Thiết lập Excel Options:
- Calculation: Manual - Recaculate workbook before saving
- Save every: 10 minutes

 

[befaint]

Anh làm ví dụ cho em xem với ạ! Application.OnTime

Tự tìm đi bạn ơi. Diễn đàn có rất nhiều hoặc Google search là chưa tới 1 giây có kết quả.

 

[vova2209]

Application.OnTime Now + TimeValue("00:00:1"), "CalculationAutomatic"
em làm được rồi! em cảm ơn anh nhiều

Tự tìm đi bạn ơi. Diễn đàn có rất nhiều hoặc Google search là chưa tới 1 giây có kết quả.