Public Function getSpeed(doIt As Boolean)
Application.ScreenUpdating = Not (doIt)
Application.EnableEvents = Not (doIt)
Application.Calculation = IIf(doIt, xlCalculationManual, xlCalculationAutomatic)
End Function
- Cách sử dụng:
- Gọi function bằng: getSpeed (True)
- Đóng function bằng: getSpeed (False)
Đăng nhận xét