кредитні операції, потім вводимо необхідні дані:
сума кредиту-5000000
термін кредиту-15років
В
Рис 1. UserForm2
Результати:
В
Рис 2. Лист1 з результатами розрахунку
Графік:
В
Рис 3. Графік платежів кредиту
. Приклад розрахунку депозиту зі складним відсотком
У формі 1 зображеної на малюнку 6.1 вибираємо депозитні операції, потім вводимо необхідні дані:
сума депозиту-5000000
термін депозиту-15мес
В
Рис 4. UserForm3
Результати:
В
Рис 5. Лист1 з результатами розрахунку
Графік:
В
Рис 6. Графік платежів депозиту
Додаток 2. "Лістинг програми"
'перехід до першої формі відразу при відкритті робочої книги
Private Sub Workbook_Open ()
'перехід до першої формі
UserForm1. Show
End Sub
UserForm1
'Перехід до форми розрахунку кредиту
Private Sub CommandButton1_Click ()
'створення нової книги
Workbooks. Add. Hide. ShowSub
'Перехід до форми розрахунку депозиту
Private Sub CommandButton2_Click ()
'створення нової книги
Workbooks. Add
UserForm1. Hide. ShowSub
'процедура виходу
Private Sub vix _Click ()
'запит у користувача на підтвердження виходу
Ex = MsgBox ("Ви дійсно хочете вийти?", vbYesNo + vbQuestion, Zagl)
If Ex = vbNo Then Exit Sub
'закриття робочих книг
ActiveWorkbook. Close False. CloseSub
UserForm2
'підпрограма рассчета кредитів
Private Sub rascred _Click () [2] Pz, Summ, Sroc As Singleost, osn, proc, plat , Sum1, Sum2, Sum3 As Singlei As IntegerZaglav As String...
