If IsNumeric (summdep. Value) = False Then "Неправильно введена сума депозиту",, Zaglav
Exit Sub
End If
'показати помилку, якщо неправильно введений термін депозиту
If IsNumeric (srocdep. Value) = False Then "Неправильно введений термін депозиту",, Zaglav
Exit Sub
End If
'привласнення змінним значень, що вводяться користувачем
Summ = CDbl (summdep. Value) = CInt (srocdep. Value)
'перевірка на правильність введення терміну депозиту
If Sroc <1 Then
MsgBox "Мінімальний термін депозиту - 1 місяць",, Zaglav
Exit SubIfSroc> 120 Then "Максимальний термін депозиту - 10 років",, Zaglav
Exit Sub
End If
'пріcваіваніе процентної ставки залежно від терміну депозиту
If Sroc> = 1 And Sroc <= 24 Then Pz = 0.04Sroc> 24 And Sroc <= 60 Then Pz = 0.08 Sroc> 60 Then Pz = 0.09
'перевірка введеної суми депозиту
If Summ <650 Then
MsgBox "Мінімальна сума депозиту - 650 рублів",, Zaglav
Exit SubIf
'очищення осередків
Cells. Clear ("A1"). Value = "Ф. І.О. клієнта: "(" A2 "). Value = "Тип операції:" ("A3"). Value = "Метод розрахунку:" ("A4"). Value = "Сума депозиту, руб:"
Range ("A5"). Value = "Термін депозиту, міс:"
Range ("A6"). Value = "Процентна ставка:"
Range ("A10"). Value = "№ місяця" ("B10"). Value = "Основний депозит, руб"
Range ("C10"). Value = "Відсотки, руб"
Range ("D10"). Value = "Сума, руб" ("E11"). Value = "Разом:" ("F10"). Value = "Депозит" ("G10"). Value = "Відсотки" ("H10"). Value = "Усього"
'визначення формату осередків
Range ("B1"). NumberFormat = "general" ("B2"). NumberFormat = "general" ("B3"). NumberFormat = "general" ("B4"). NumberFormat = "0.00 $" ("B5"). NumberFormat = "0мес" ("B6"). NumberFormat = "0.00%" ("B7"). NumberFormat = "0.00 $" ("A10: D10"). Font. Bold = True ("B9: D140"). NumberFormat = "0.00 $" ("F11: H11"). NumberFormat = "0.00 $"
'визначення ширини колонок
Columns ("A: H"). ColumnWidth = 25
'введення вихідних значень в робочий лист
Range ("B1"). Value = fio. Value ("B2"). Value = "Депозит" ("B4"). Value = Summ ("B5"). Value = Sroc ("B6"). Value ...
