| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Заполнение формулы в Excel [D7, Win95/98]

AndreyAR ©   (2006-09-14 10:50:00) 

Добрый день!

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

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

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

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

---

AndreyAR   (2006-09-14 11:14:00) [1]

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

---

umbra   (2006-09-14 11:11:00) [2]

> 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)+')';

---

Наверх