Выгрузка данных в Excel

[trabajo]

Делаю выгрузку в Excel, суммирую данные:
EnterCell(CurrentRow,6,'=СУММ(R[-'+FORMAT(CurrentRow-9)+']C:R[-1]C',FALSE,FALSE,FALSE,TRUE,TRUE,TRUE,1,color,10);
Как сделать, чтобы суммировалось не по всему столбцу, а только по одинаковыми валютам?

[randrews]

Цитата:

Сообщение от trabajo

Делаю выгрузку в Excel, суммирую данные:
EnterCell(CurrentRow,6,'=СУММ(R[-'+FORMAT(CurrentRow-9)+']C:R[-1]C',FALSE,FALSE,FALSE,TRUE,TRUE,TRUE,1,color,10);
Как сделать, чтобы суммировалось не по всему столбцу, а только по одинаковыми валютам?

В вашем вопросе даже не видно где валюта. И что за структур данных.
Могу предположить, что в 1 стобце код валюты, во втором сумма.
Тогда следом еще вопрос - а по какой из валют из 1 столбца вы хотите суммировать в этой ячейке ?
В общем, тут явно в постановке вопроса не хватает данных....

Могу предположить, что сводная таблица Вас спасет (если моя попытка понять задачу была верной).

[trabajo]

Да, например, в первом столбце валюта, во втором сумма:
руб.|100
руб.|200
итог 300
usd|10
usd|45
итог 55
руб.|340
руб.|200
итог 540
причем валюты могут повторяться

[randrews]

Тогда просто чаще вставляете свой код... Проверяйте в цикле смену валюты
Если ваш код нормально суммирует, то немного отредактируйте его

IF LastCurencyCode <> CurrentCurencyCode THEN BEGIN
	EnterCell(CurrentRow,6,'=СУММ(R[-'+FORMAT((CurrentRow - LastRow) - 9)+']C:R[-1]C',FALSE,FALSE,FALSE,TRUE,TRUE,TRUE,1,color,10);
	LastRow := CurrentRow; 
	LastCurencyCode := CurrentCurencyCode;
END;

Только замените "- 9" верной константой. И проинициализируйте LastRow и LastCurencyCode в начале цикла.

P.S. а также с основным вашим алгоритмом в цикле состыкуйте...

[Dadakhan]

а что, суммесли уже отменили?

[randrews]

Цитата:

Сообщение от Dadakhan

а что, суммесли уже отменили?

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

Кто-то с этого форума вроде цитировал слова (преподавателя-профессора, кажется, не помню уже...):

"Когда я учился в школе, мне казалось, что я знаю математику на 70,%. Когда учился в институте, то казалось, что знаю процентов на 50%, когда стал аспирантом, то казалось, что математику заню процентов на 10%. Сейчас же, мне кажется, что я не знаю математику и на 1%"...

Полностью фразы не помню, но смысл был такой То же можно сказать видно и про мои познания в Excel

[trabajo]

Спасибо, получилось: создал переменную, дальше сравнение с валютами.