Public Sub StartCalc()
Application.OnTime Now + TimeValue("00:00:02"), "StartCalc"
Worksheets(1).Calculate
End Sub
Public Sub EndCalc()
Application.OnTime Now + TimeValue("00:00:10"), "StartCalc", , False
End Sub
Сейчас этот форум просматривают: AhrefsBot и гости: 15