Скачать: CL | DM;

Заполнение формулы в 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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c