Рассчитать сумму вклада VBA

Пользователь

Сообщений: 524 Регистрация: 19.10.2016

05.03.2020 08:04:54

Добрый день! Коллеги, прошу помощи в решении задачи на VBA. Есть сумма вклада, которая каждый месяц увеличивается на определенный процент. Каждый следующий месяц процент начисляется не на первоначальную сумму вклада, а на сумму предыдущего месяца. Как с помощью VBA получить итоговую сумму вклада?

Прикрепленные файлы

Книга1.xlsb (12.96 КБ)

Murderface_

Пользователь

Сообщений: 524 Регистрация: 19.10.2016

05.03.2020 08:39:45

Вроде разобрался

Код
Sub vklad() вклад = [b1]: процент = [b2]: период = [b3] For i = 1 To период: вклад = вклад + вклад * процент: Next MsgBox вклад End Sub

Изменено: Murderface_ - 05.03.2020 09:06:59

aequit

Пользователь

Сообщений: 209 Регистрация: 13.01.2020

05.03.2020 09:11:19

Murderface_, вариант:

Код

Sub vklad()
    Dim S As Double 'Наращенная сумма вклада.
    Dim i As Double 'Процентная ставка.
    Dim n As Long 'Срок наращения.
    Dim P As Double 'Первоначальная сумма вклада.
    P = [B1]
    i = [B2]
    n = [B3]
    S = P * (1 + i) ^ n
End Sub