Свойства - дескрипторы , а дескрипторы ведут себя особенно в случае члена экземпляра класса. Короче говоря, если a
является экземпляром типа A
, а A.foo
является дескриптором, то a.foo
эквивалентен A.foo.__get__(a)
.
Вставьте свой код внутри:
Application.Calculation = xlCalculationManual
'Your code here
Application.Calculation = xlCalculationAutomatic
Кроме того, ваш Cells
не является квалифицированным, что означает, что это будет по умолчанию для активного листа. Вы должны квалифицировать свои ячейки с помощью листа вместо того, чтобы полагаться на ActiveSheet
. Также не помешало бы выключить ScreenUpdating
. (Application.ScreenUpdating = True/False
) [/ д2]