Заполнение формулы в Excel

← →
AndreyAR (2006-09-14 10:50) [0]

Добрый день!

Пишу в дельфи следующую строчку:

WorkBook.WorkSheets[1].Cells[21, 5].FormulaR1C1:=
"=SUM(E10:E"+IntToStr(m)+")";

в результате в Excel вставляется формула =СУММ("E10":"E20"); (добавляются апострофы) и ничего не считается.

Подскажите, как изменить формулу?

← →
umbra © (2006-09-14 11:11) [1]

> FormulaR1C1

для этого св-ва надо указывать не абсолютные адреса диапазона, а адреса относительно Cells[21, 5].

WorkBook.WorkSheets[1].Cells[21, 5].FormulaR1C1:=
"=SUM(R[-11]C:R[-"+IntToStr(m)+"]C)";

Для приведенного Вами примера лучше использовать св-во FormulaLocal, например

WorkBook.WorkSheets[1].Cells[21, 5].FormulaLocal := "=СУММ(E10:E"+IntToStr(m)+")";

← →
AndreyAR (2006-09-14 11:14) [2]

Спасибо. Когда-то я уже это делал, но забыл.

Заполнение формулы в Excel Найти похожие ветки