MyTetra Share
Делитесь знаниями!
Application.Calculation
19.01.2018
13:03
Текстовые метки: 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
Яндекс индекс цитирования