ВУЗы и колледжи

Срочно! Нужна помощь в решение следующей задачи в excel

Задание на фото!
GS
Gayane Sahakyan
371
Ну ручной вариант это же совсем не интересно, верно? 392 ячейки размножать мышкой.. А по второму пункту ещё и дополнительная колонка пересчета процентов.
Поэтому.. VBA и перебор циклом, специально разбил на два цикла первый и второй пункты.
Код с коленки:

Sub Single_Loop_Example()

Dim i As Integer
Dim S As Double
Dim p As Double
S = 20
p = 0.04

For i = 1 To (DatePart("yyyy", Now)) - 1626 '(вычисляем количество циклов от текущего года до 1626)
Sheets(1).Cells(i, 1) = 1625 + i '(Чистой воды костыль чтобы проставить циферки года)
Sheets(1).Cells(i, 2) = S '(пишем в ячейки второго столбца текущий баланс)
S = S + S * p '(капитализация и запись в баланс)
Next i

S = 20
p = 0.04
For i = 1 To (DatePart("yyyy", Now)) - 1626
Sheets(1).Cells(i, 3) = S
S = S + S * p
p = p + 0.005 / 100
Next i

End Sub

Как итог: первые три столбца заполняются нужными значениями. Первый - год (пусть числом, не суть), второй - просто 4% с капитализацией, третий с прибавкой процента.

Запуск кода из вкладки "Разработчик" - "Visual Basic". Вставить в окно для первого листа и нажать F5.

P.S. Обычный вариант на всякий случай:
1. в А1 записать 20
2. в A2 записать формулу =A1*0.05
3. растянуть до 392-й ячейки.
Для растущего процента почти то же самое:
1. в А1 пишем 20
2. в В1 пишем 0,04
3. в А2 формулу: =A1*B1 - считает капитализацию
4. в В2 пишем =В1+0,00005 - считает нарастание процента
5. растягиваем формулы вертикально до 392 строки.
Диаграммки уж как-нибудь сами давайте. Там чистая механика по трём столбикам построить графики.
Артём Воронин
Артём Воронин
85 402
Лучший ответ
Gayane Sahakyan Спасибо!!!