День добрый. Обращаюсь к Вам за помощью еще раз и спасибо всем кто помогал мне в прошлые разы. Вот опять к Вам. Имеется стандартсная выгрузка из 1С по счету кредитов. Там есть и даты предоставления и погашения и остаток по кредиту и все в разных ячейках. Как задать формулу в таблице я знаю, а вот как написать макрос, чтобы в определенной ячейке считались проценты я не знаю. Итак варинат самой простой выгрузки я прилагаю. Процентная ставка 10% годовых, проценты начисляются ежемесячно или за период, допустим 10 дней. Проценты начисляются за фактическое время пользования кредитом, т.е. в расчет берется фактическое количество календарных дней в году (различная ставка процентов в день в зависимости от високосного года и нет). По факту такие движения происходят каждый день, то получаем, по возвращаем в рамках кредитной линии. И если не сложно макрос сделать с пояснениями, я все же учусь и хочется понимать где, что и как...
если у вас всего 1 выплата, зачем макрос если правильно понял, и лишних строк внутри выгрузки нет
Код
Sub get_interest()
Dim arr, i&, r As Double, fRow&, dys&, intSum As Double
fRow = 6 ' строка, с которой начинаются данные отчета
arr = Range(Cells(fRow, 1), Cells(Rows.Count, 14).End(xlUp))
r = [c1].Value ' процентная ставка
For i = 2 To UBound(arr) - 1
dys = arr(i, 1) - arr(i - 1, 1)
If dys = 0 Then dys = 1
intSum = dys * r / 365 * arr(i - 1, 14) + intSum
Next
Cells(Rows.Count, 14).End(xlUp).Offset(0, 1) = intSum ' выгрузит рядом с итоговой суммой
End Sub