формула для вычисления суммы в excel

[Tana_L]

Подскажите, пожалуйста, как написать макрос, чтобы в рабочий лист занести формулу для расчета суммы. формула должны быть в каждом с 13-го по 16 столбец i-ой строки. Диапазон для вычисления по строкам (от i+1 до i+k).

[Naeel Maqsudov]

Что-то я уже туго соображаю к вечеру... Нужен пример... Мне почему-то кажется, что вё это можно без макросов сделать просто копированием и автозаполнением ячеек с формулами, использующими относительные ссылки....

Ну а из макроса формулы записываются так:

<Диапазон>.Value = "=sum($A$1:$B$10)"
<Диапазон>.Formula = "=sum($A$1:$B$10)"
<Диапазон>.FormulaR1C1 = "=sum(R1C1:R10C2)"
<Диапазон>.FormulaLocal = "=сумм($A$1:$B$10)"
<Диапазон>.FormulaR1C1Local = "=сумм(R1C1:R10C2)"

Это все одна и та же формула. Все ссылки в них абсолютные.

[Tana_L]

Добрый день! Проблема такая: из dbf в excel выгружаются данные, но данных по отгрузке в исходном файле нет, ее должны заполнить диспетчера. К моменту заполнения крайне желательно, что бы в итоговых строках была формула подсчета суммы. Если бы кол.строк, которые надо заполнить и суммировать было постоянно, то и проблем не было никаких.

Код: Выделить всё

range("H4").Value = "=sum(H5;H13)"

Но в формуле должна быть не 5 и 13 строки, а i-ая и (i+к)-ая соответственно.

[Naeel Maqsudov]

Код: Выделить всё

Sub qwe()
  i = 5
  k = 13
  'вместо
  Range("H4:K4").FormulaR1C1 = "=sum(R5C,R13C)"
  'пишем
  Range("H4:K4").FormulaR1C1 = "=sum(R" & i & "C,R" & k & "C)"
End Sub