подстановка данных в формулу и запись расчета в таблицу

[Eve555]

Уважаемые, нужна помощь!

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

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

[IgorGO]

замечательно все расписано. но может проще нормальную формулу написать.

[Eve555]

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

замечательно все расписано. но может проще нормальную формулу написать.

Я упомянул в конце, что это пример и реальная формула сложнее. В реальности несколько формул «слившись в экстазе» дают некий график показателей по датам (порядка 250 дат) и уже по графику я высчитываю несколько показателей, встроенными формулами экселя и скриптами с goalseek’ом.
Поэтому нужен именно механизм подстановки по такому алгоритму. Я уже нашел на форуме отдельные части ( работа в рамках селекта, перебор строк пока не кончатся значения итд) – по отдельности я каждый из них понимаю, есть достаточно уверенное мнение что скрипт довольно просто должен быть, но вот свести все воедино у меня не получается

[IgorGO]

я не заполнил Вашу таблицу? в зависимости от срока и ставки

[Eve555]

Спасибо Вам большое!
Но, к сожалению, предложенное решение работает только для моего видимо не удачного примера. Я сделал апдейт – включил график. Там понятнее почему я не могу воспользоваться Вашим решением.

[Eve555]

Кривовато и без красивостей но малоли кому пригодится…

Sub mod1()
Dim strName1 As String
Dim collName1 As String
Dim numm As String
For Each c In Worksheets("list1").Range("G514") .Cells
cn1 = c.Column
sn1 = c.Row
Cells(6, 3).Value = Cells(sn1, 6).Value
Cells(5, 3).Value = Cells(4, cn1).Value
c.Value = Cells(8, 3).Value
Next c
End Sub