Страница 1 из 1
формула для вычисления суммы в excel
Добавлено: 05 июн 2009, 10:41
Tana_L
Подскажите, пожалуйста, как написать макрос, чтобы в рабочий лист занести формулу для расчета суммы. формула должны быть в каждом с 13-го по 16 столбец i-ой строки. Диапазон для вычисления по строкам (от i+1 до i+k).
Re: формула для вычисления суммы в excel
Добавлено: 05 июн 2009, 21:21
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)"
Это все одна и та же формула. Все ссылки в них абсолютные.
Re: формула для вычисления суммы в excel
Добавлено: 09 июн 2009, 10:53
Tana_L
Добрый день! Проблема такая: из dbf в excel выгружаются данные, но данных по отгрузке в исходном файле нет, ее должны заполнить диспетчера. К моменту заполнения крайне желательно, что бы в итоговых строках была формула подсчета суммы. Если бы кол.строк, которые надо заполнить и суммировать было постоянно, то и проблем не было никаких.
Но в формуле должна быть не 5 и 13 строки, а i-ая и (i+к)-ая соответственно.
Re: формула для вычисления суммы в excel
Добавлено: 09 июн 2009, 11:37
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