Заполни ячейки A2, B2, C2
Sub Calculate() 'Начало процедуры
Dim deposit As Integer 'величина вклада
Dim period As Integer 'срок вклада
Dim percent As Integer 'годовая процентная ставка
Dim day_percent As Double 'ежедневная процентная ставка
Dim profit As Double 'доход
Dim result As Double 'итог
deposit = Cells(2, 1).Value 'присваиваем величине вклада значение ячейки А2
period = Cells(2, 2).Value 'присваиваем сроку вклада значение ячейки B2
percent = Cells(2, 3).Value 'присваиваем годовой процентной ставке значение ячейки C2
day_percent = period * percent / 365 'ежедневная процентная ставка = срок вклада (умножаем) на годовую процентную ставку и (делим) на 365 дней
profit = deposit * day_percent / 100 'доход = величина вклада (умножаем) на ежедневную процентную ставку и (делим) на 100%
result = deposit + profit 'Итог = величина начального вклада (плюс) доход
Cells(6, 3).Value = profit 'заносим доход в ячейку C6
Cells(7, 3).Value = result 'заносим итог в ячейку C7
End Sub 'Конец процедуры