Как правильно расставить, Application?

[valerij]

Какой порядок, расстановки или не имеет значения?

With Application
         .EnableEvents = False
         .Calculation = xlManual
         .ScreenUpdating = False
 ------------КОД--------------
         .Calculation = xlAutomatic
         .EnableEvents = True
         .ScreenUpdating = True
End With

Собственно, как бы я их не раставлял дергается экран, коментировал .ScreenUpdating , то же самое и в чем разница между
.ScreenUpdating
.DisplayAlerts

[IgorGO]

Валера, ты говоришь книжек нет. Да устал бы ты в книжке искать DisplayAlerts. Набрал в справке - получил следующее:
DisplayAlerts
True if Microsoft Excel displays certain alerts and messages while a macro is running. Read/write Boolean.
Включил словарь и перевел (потому что в английском ничего не понимаю) Истина если Эксель показывает предупреждения и сообщения пока выполняется макрос.

ScreenUpdating
True if screen updating is turned on. Read/write Boolean.
Тут вроде понятно и без словаря: Истина если включено обновление экрана.

в каком порядке их расставить не суть важно. и расставляешь ты не Applications, а некоторые свойства одного приложения, которое называется Эксель. Надеюсь твой код выполняется между блоком запрещений и разрешений, а не после последнего?

Если экран дергается все равно - значит задача сложновата для твоей системы:
а) попытаться оптимизировать код
б) уменьшить количество обрабатываемых данных
в) добавить ресурсов в систему (память, проц, мать с новым чипсетом...)

[valerij]

Сообщение от IgorGO

Надеюсь твой код выполняется между блоком запрещений и разрешений, а не после последнего?

Да, конечно, забыл между, "-----", проставить

Если экран дергается все равно - значит задача сложновата для твоей системы:
а) попытаться оптимизировать код
б) уменьшить количество обрабатываемых данных
в) добавить ресурсов в систему (память, проц, мать с новым чипсетом...)

а,б) Да вроде ерунда, выложить код??
в) Да куда еще больше:
Процессор: Intel(R) Core(TM)2 Duo CPU T7700 © 2.40GHz 2.40 GHz
Память (RAM): 4,00 ГБ, ДДР2
Тип системы: 64-разрядная операционная система Виста

[VictorM]

Если все так как Вы пишете, и в коде нигде "случайно" не затесался .ScreenUpdating, "дергаться" не должно бы.

[valerij]

Сообщение от VictorM

коде нигде "случайно" .

Фиг его знает, вот код

Sub Sum()
Dim dop As Long, pr As Long, i As Long
zSum = 0: iSum = 0: bSum = 0: i = 38
With Application
    .EnableEvents = False
    .DisplayAlerts = False
    .Calculation = xlManual
    
    For iCount& = 0 To 30
    pr = 13
    For dop = 19 To 29 Step 2
                With .Range("I" & dop).Offset(iCount& * 48)
                pr = pr - 1
     Range("I" & dop).Offset(iCount& * 48).NumberFormat = "General"
     Range("I" & dop).Offset(iCount& * 48).Font.ColorIndex = 10
    .FormulaR1C1 = "=IF(COUNTIF(НАКЛ!R2C255:R1378C255,R[" & pr & "]C)>0,R[" & pr & "]C,"""")"
                    .Value = .Value
                    End With
                With .Range("I" & dop + 1).Offset(iCount& * 48)
     Range("I" & dop + 1).Offset(iCount& * 48).NumberFormat = "0.00"
    .FormulaR1C1 = "=IF(R[-1]C,VLOOKUP(""""&R[-1]C&"""",НАКЛ!R2C3:R1378C5,3,0),"""")"
                    .Value = .Value
                    End With
                With .Range("I37").Offset(iCount& * 48)
     Range("I37").Offset(iCount& * 48).NumberFormat = "0.00"
    .FormulaR1C1 = "=R[-17]C+R[-15]C+R[-13]C+R[-11]C+R[-9]C+R[-7]C"
                   .Value = .Value
                    End With
                With .Range("I38").Offset(iCount& * 48)
     Range("I37").Offset(iCount& * 48).NumberFormat = "0.00"
    .FormulaR1C1 = "=RC[-3]-R[-1]C"
                   .Value = .Value
                    End With
Next
Next
.Calculation = xlAutomatic
    .EnableEvents = True
    .DisplayAlerts = True
End With
    'Поиск отрицательных чисел и положительных чисел
    Application.ScreenUpdating = False
      Do
                iSum = Range("I" & i)
                If iSum < 0 Then zSum = zSum + iSum: iSum = 0
                bSum = bSum + iSum
                i = i + 48
      Loop While Not i > 1430
    Range("A1") = zSum
    Range("I2") = bSum
    Range("A1").Activate
'    .Calculation = xlAutomatic
'    .EnableEvents = True
'    .DisplayAlerts = True
'End With
End Sub

[VictorM]

ВСе же сделайте так как Вы написали в первом посте, т.е.
With Application
.EnableEvents = False
.Calculation = xlManual
.ScreenUpdating = False
затем приведенный Вами код и в самом конце
.Calculation = xlAutomatic
.EnableEvents = True
.ScreenUpdating = True
End With
и уберите из кода 42 строку
Application.ScreenUpdating = False

[VictorM]

и еще
если уж Вы написали в начале кода
.Calculation = xlManual
то в конце обязательно должно быть
.Calculation = xlAutomatic
иначе у Вас Excel перейдет в режим ручного пересчета, о чем мы уже как-то говорили.

[valerij]

Сообщение от VictorM

и еще.

Да там, как бы два варианта, нижний закоментирован.
Вот так как, сейчас, мин. дергиваний

[VictorM]

все же попробуйте вот так

Sub Sum()
Dim dop As Long, pr As Long, i As Long
zSum = 0: iSum = 0: bSum = 0: i = 38
With Application
    .ScreenUpdating = False
    .EnableEvents = False
    .DisplayAlerts = False
    .Calculation = xlManual
    
    For iCount& = 0 To 30
    pr = 13
    For dop = 19 To 29 Step 2
                With .Range("I" & dop).Offset(iCount& * 48)
                pr = pr - 1
     Range("I" & dop).Offset(iCount& * 48).NumberFormat = "General"
     Range("I" & dop).Offset(iCount& * 48).Font.ColorIndex = 10
    .FormulaR1C1 = "=IF(COUNTIF(НАКЛ!R2C255:R1378C255,R[" & pr & "]C)>0,R[" & pr & "]C,"""")"
                    .Value = .Value
                    End With
                With .Range("I" & dop + 1).Offset(iCount& * 48)
     Range("I" & dop + 1).Offset(iCount& * 48).NumberFormat = "0.00"
    .FormulaR1C1 = "=IF(R[-1]C,VLOOKUP(""""&R[-1]C&"""",НАКЛ!R2C3:R1378C5,3,0),"""")"
                    .Value = .Value
                    End With
                With .Range("I37").Offset(iCount& * 48)
     Range("I37").Offset(iCount& * 48).NumberFormat = "0.00"
    .FormulaR1C1 = "=R[-17]C+R[-15]C+R[-13]C+R[-11]C+R[-9]C+R[-7]C"
                   .Value = .Value
                    End With
                With .Range("I38").Offset(iCount& * 48)
     Range("I37").Offset(iCount& * 48).NumberFormat = "0.00"
    .FormulaR1C1 = "=RC[-3]-R[-1]C"
                   .Value = .Value
                    End With
Next
Next
End With
    'Поиск отрицательных чисел и положительных чисел
      Do
                iSum = Range("I" & i)
                If iSum < 0 Then zSum = zSum + iSum: iSum = 0
                bSum = bSum + iSum
                i = i + 48
      Loop While Not i > 1430
        Range("A1") = zSum
        Range("I2") = bSum
        Range("A1").Activate
    .Calculation = xlAutomatic
    .EnableEvents = True
    .DisplayAlerts = True
    .ScreenUpdating = True
End With
End Sub

[VictorM]

если
'Поиск отрицательных чисел и положительных чисел
будет работать некорректно, перместите
.Calculation = xlAutomatic
ниже этого комента, перед Do