е процентної ставки залежно від терміну кредитування
If Sroc> = 1 And Sroc <= 3 Then Ps = 0.1Sroc> 3 And Sroc <= 5 Then Ps = 0.09Sroc> 5 Then Ps = 0.08
. Clear 'очищення осередків
'висновок підказки для запуску програми ("C2"). Value = "Запуск програми:"' визначення властивостей осередків; введення значень
Range ("D2"). Value = "Ctrl + Z" ("A1"). Value = "П.І.Б. клієнта: "(" A2 "). Value =" Тип операції "(" A3 "). Value =" Тип платежу: "
Range ("A4"). Value = "Сума кредиту, руб:" ("A5"). Value = "Термін кредитування, років:" ("A6" ). Value = "Процентна ставка:" ("A7"). Value = "Початковий внесок,%:" ("A8"). Value = "Початковий внесок, руб:"
Range ("A10: D10"). Font.Bold = True
Range ("A10"). Value = "№ місяця" ("B10"). Value = "Оплата за основним боргом, руб" ("C10"). Value = "Оплата за відсотками, руб" ("D10"). Value = "Щомісячні платежі, руб"
Range ("E9"). Value = "Разом:" ("E9"). Font.Bold = True
Range ("F9"). Value = "Плата за основним боргом" ("G9"). Value = "Плата за відсотками" ("H9"). Value = " ; Загальна плата: "
Range ("B1"). NumberFormat = "general" 'визначення формату осередків
Range ("B2"). NumberFormat = "Кредит" ("B3"). NumberFormat = "general" 'загальний ("B4"). NumberFormat = "0.00 $ "'грошовий (" B5 "). NumberFormat =" 0год (а) "(" B6 "). NumberFormat =" 0.00% "(" B7 "). NumberFormat =" 0.00% " ; ("B8"). NumberFormat = "0.00 $" ("B10: D500"). NumberFormat = "0.00 $" ("E10: H10"). NumberFormat = "0.00 $"
("A: D"). ColumnWidth = 30 'визначення ширини колонок ("E"). ColumnWidth = 10 ("F: H"). ColumnWidth = 25
Range ("B1"). Value = FIO 'введення вихідних значень в робочий лист
Range ("B2"). Value = "Кредит" ("B4"). Value = Sum ("B5"). Value = Sroc ("B6"). Value = Ps ("B7"). Value = 0.5 ("B8"). Value = Sum * 0.5
Sum = Sum - Sum * 0.5
'обнулення змінних
ostatok = 0 = 0 = 0 = 0 = 0
Sum2 = 0 = 0
'розрахунок кредиту диференційованим методом
If difkr.Value = True Thendifferen_kr
End If
'розрахунок кредитів аннуітентним методом
If ankr.Value = True Thenannyitent_krIf
'висновок підсумків ("F10"). Value = Sum1 ("G10"). Value = Sum2 ("H10"). Value = Sum3
кредіт.Hide ("Кредит"). Activate ActiveChart.Name
End Sub
Підпрограма розрахунку кредитів диференційованим методом: