Есть файл вида:

клиент валюта тип сделки сумма курс сумма контрвал
клиент1 USD/RUB покупка 100 27,8 2 780,00
клиент1 EUR/USD продажа 1000 1,345 1 345,00
клиент2 EUR/RUR покупка 200 39,6 7 920,00
клиент3 USD/RUB продажа 300 27,76 8 328,00
клиент3 USD/RUB покупка 300 27,95 8 385,00

нужно просуммировать остатки по каждому клиенту, чтобы это выглядело так:

клиент1 -1 445,00 USD
клиент1 2 780,00 RUB
клиент1 1 000,00 EUR
клиент2 -200,00 EUR
клиент2 7 920,00 RUB
клиент3 -57,00 RUB

Помогите придумать, как это реализовать. Проблема в том, что по каждому клиенту, может быть разное количество валют - как в примере, у клиента 1 остаток в трех валютах в итоге, у второго - два, у третьего один.

хотелось бы, чтобы все это считалось автоматом. Реально?

В файле тоже самое, что и здесь.

A-Nik,

запись типа "клиент1 USD/RUB покупка 1000 27 2700,00" читается покупка первым клиентом долларов за рубли. далее суммы.


первая запись в первой таблице

клиент1 USD/RUB покупка 100 27,8 2 780,00

означает, что клиент1 покупает 100 долларов за рубли. Платит он за это, соответственно 2780 рублей(100*27,8). Это значит, что я ему должен 100 долларов (они их купил) а он мне должен 2780 рублей (в качестве оплаты за эти доллары)

далее, клиент 1 продает евро за доллары (EUR/USD). То есть он продает 1000 евро по курсу 1,345 и получает за это 1345 долларов.

Значит я от него получу 1000 евро, а отдам за них 1345 долларов.

итого я ему должен: 100 долларов и 1345, те 1445 дол.
А получу от него 2780рублей и 1000 евро.

это и написано в табличке.


Далее.

Клиент 2 купил 200 евро, заплатив рублями по курсу 39,6 (те 7920 рублей).

значит итого я ему должен 200 евро, которые он купил. и получу от него 7920 рублей)

Далее.

Клиент 3 сначала продал 300 долларов за рубли по курсу 27,76 (получив в итоге 8328рублей), а потом купил 300, но по курсу 27,95 (заплатив 8385)

это значит, что остатка по долларам у него нету, а вот по рублям будет. Заплатил он 8385, а получил 8328, те должен мне 57 рублей (в первом посте должно быть просто 57, а не минус - это я накосячил% ) )

вроде так.

Just User,

_slan_,

спасибо.

Забыл добавить - я рассчитвал при помощи сводной таблицы. Но проблема в том, как привести именно к виду, что я написал

просто на данный момент, единственное, что я придумал, чтобы выводилось

что-то типа

клиент1 -1445,00 USD
клиент1 2780,00 RUB
клиент1 1000,00 EUR

клиент2 0 USD
клиент2 0 RUB
клиент2 -200,00 EUR

и так далее,

а потом макросом как-то сделать условие, что удаляются строки, с нулевыми остатками.

Кстати как это сделать?

Так, вроде бы все сделал, но так и не понял, как через макросы удалить строчки, содержащие нулевые значения в определеном столбце

клиент1 100руб
клиент1 3дол
клиент1 0евр
клиент2 0руб
клиент2 0дол
клиент2 12евр

надо, чтобы строки А3,А4,А5 были вообще удалены.

Так, значит какую строчку мне надо в конце вставить, чтобы удалить все строчки, где в столбце "D" нулевые значения?

Sub нет4()
'
' нет4 Макрос
' Макрос записан 26.12.2008 (vladimir.kalachkin)
'

'
Sheets("эдельвейс").Select
Columns("A:E").Select
Selection.Copy
Sheets("роксана").Select
ActiveWindow.SmallScroll Down:=-15
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("D").Select
End Sub

A-Nik,

что-то не получается... может чего-то нето нажимаю, конечно))

а вот к тексту, что я писал, перед "енд саб" нельзя добавить только команду удаления пустых строк?

или фигня пишу?)))

все, разобрался!

спасибо всем ))))