MyTetra Share
Делитесь знаниями!
Application.Calculation
16.03.2019
23:43
Текстовые метки: Application.Calculation, пересчет
Раздел: !Закладки - VBA - Excell

'на входе

Dim vCalculation As Variant

vCalculation = Application.Calculation: Debug.Print vCalculation

If vCalculation <> -4135 Then EventsChange False

'-4135 вручную

'-4105 автоматически

'2 автоматически, кроме таблиц



'на выходе

'включить обратно, если было включено на входе

If vCalculation <> -4135 Then EventsChange True

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования