
ВУЗы и колледжи
Срочно! Нужна помощь в решение следующей задачи в excel
Задание на фото!


Ну ручной вариант это же совсем не интересно, верно? 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 строки.
Диаграммки уж как-нибудь сами давайте. Там чистая механика по трём столбикам построить графики.
Поэтому.. 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 строки.
Диаграммки уж как-нибудь сами давайте. Там чистая механика по трём столбикам построить графики.
Gayane Sahakyan
Спасибо!!!
Похожие вопросы
- Здравствуте, срочно нужна помощь вэрешении нескольких простых задач!!!
- нужна помощь в решении задачи! решить поэтому 2KClO3=2KCl=3O2
- нужна помощь в решении задачи по физике срочно
- Нужна помощь в решении задач по теории вероятностей (самые простые вроде как)
- Нужна помощь с решением задач по физике, подробно))
- СРОЧНО! Нужна помощь в геодезическов задачи
- Нужна помощь в решении уравнений
- Нужна помощь в решении казусов по истории
- Нужна помощь в решение дифференциальное уравнение
- СРОЧНО НУЖНА ПОМОЩЬ ПО РУССКОМУ!!!!Синтаксические нормы!!!Исправьте ошибки в предложениях или выберите нужный вариант!!!