Тормозит формула

[valerij]

Тормозит формула, как ее мона упростить?
Суть формулы:
A41 = СУММ((D16:D40)*(E16:E40))
или так:
=D16*E16+D17*E17+................+D 40*E40
а в VBA так:
.FormulaArray = "=SUM((R[-23]C[3]:R[1]C[3])*(R[-23]C[4]:R[1]C[4]))"

Макросом решить, не проблема

[b00s]

Кудаже еще проще то )) У вас что комп 386. Если тормозит то дело явно не в формуле.

[Konstantin_Z]

может быть так
=СУММПРОИЗВ($D$16:$D$40;$E$16:$E$40 )
не будет тормозить?

есть еще вероятность, что Вы не на ту формулу думаете..
или же, диапазоны намного больше, чем 25 значений

[valerij]

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

может быть так
=СУММПРОИЗВ($D$16:$D$40;$E$16:$E$40 )
не будет тормозить?

есть еще вероятность, что Вы не на ту формулу думаете..
или же, диапазоны намного больше, чем 25 значений

Да, так не тормозит, но и при вставке ее в макрос

With [A39].Offset(dat * 51) 'Где dat = 0 to 30
      .FormulaR1C1 = "=SUMPRODUCT(R16C4:R40C4,R16C5:R40C5)"
      .Value = .Value
      End With

не работает, один и тот же результат во всех сдвигах.

А тормозит именно эта формула, именно при .FormulaArray(Ctrl+Shift+Enter)