Реферат Розробка програми для автоматичного розрахунку кредитних і депозитних операцій за допомогою Visual Basic for Applications

Тема: Курсовые обзорные

= "№ місяця" ("B10"). Value = "Оплата за основним боргом"

Range ("C10"). Value = "Оплата за відсотками"

Range ("D10"). Value = "Щомісячні платежі"

Range ("E10"). Value = "Разом:" ("E10"). Font. Bold = True

Range ("F10"). Value = "Плата за основним боргом"

Range ("G10"). Value = "Плата за відсотками"

Range ("H10"). Value = "Загальна плата:"

'визначення формату осередків

Range ("B1"). NumberFormat = "general" ("B2"). NumberFormat = "Кредит" ("B3"). NumberFormat = "general" 'загальний ("B4"). NumberFormat = "0.00 $" 'грошовий ("B5"). NumberFormat = "0год (а)" ("B6"). NumberFormat = "0.00%" ("B7"). NumberFormat = "0.00%" ("B8"). NumberFormat = "0.00 $" ("B11: D500"). NumberFormat = "0.00 $" ("E11: H11"). NumberFormat = "0.00 $"

'визначення ширини колонок

Columns ("A: H"). ColumnWidth = 20

'введення вихідних значень в робочий лист

Range ("B1"). Value = fio. Value ("B2"). Value = "Кредит" ("B4"). Value = Summ ("B5"). Value = Sroc ("B6"). Value = Pz ("B7"). Value = 0.5 ("B8"). Value = Summ * 0.5 = Summ - Summ * 0.5

'обнулення змінних

ost = 0

osn = 0

proc = 0 = 0 = 0 = 0 = 0

'розрахунок кредиту диференційованим методом

If dif. Value = True Then ("B3"). Value = "Диференційований"

osn = Summ/(12 * Sroc)

'розрахунок виплати по основному боргу, виплати за відсотками, і всього боргу

For i = 1 To Sroc * 12 = Summ - (i - 1) * osn = ost * Pz/12 = proc + osn = Sum1 + osn = Sum2 + proc = Sum3 + plat

'занесення даних в таблицю

Cells (i + 10, 1). Value = i (i + 10,2). Value = osn (i + 10,3). Value = proc (i + 10,4). Value = plati

'висновок підсумків