Реферат Використання Visual Basic for Applications в автоматизації банківських операцій

зки для запуску програми ("C2"). Value = "Запуск програми:"' визначення властивостей осередків; введення значень

Range ("D2"). Value = "Ctrl + Z" ("A1"). Value = "П.І.Б. клієнта: "(" A2 "). Value =" Тип операції: "(" A3 "). Value =" Метод розрахунку: "

Range ("A4"). Value = "Сума депозиту, руб:" ("A5"). Value = "Термін депозиту, міс:" ("A6" ). Value = "Процентна ставка:" ("A7"). Value = "Мінімальна сума:, руб:" ("A10"). Value = "№ місяця" ("B10") . Value = "Основний депозит, руб" ("C10"). Value = "Відсотки, руб"

Range ("D10"). Value = "Сума, руб"

("B1"). NumberFormat = "general" 'визначення формату комірок ("B2"). 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 $ "(" E11: H11 "). NumberFormat =" 0.00 $ "

Columns ("A: D"). ColumnWidth = 25 'визначення ширини колонок

Columns ("E"). ColumnWidth = 10 ("F: H"). ColumnWidth = 15

Range ("B1"). Value = FIO 'введення вихідних значень в робочий лист ("B2"). Value = "Депозит" ("B3"). Value = " Простий відсоток "

Range ("B4"). Value = Sum ("B5"). Value = Sroc ("B6"). Value = Ps ("B7"). Value = 250

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

'розрахунок депозиту

'розрахунок простого відсотка

If prostpr.Value = True Thenprostoi_prIf

'розрахунок складного процентаslozhpr.Value = True Thenslozhniu_prIf

'висновок підсумків ("e7: h9"). NumberFormat = "#, # # 0.00 $" ("e7"). Value = "Разом:" (" e7 "). Font.Bold = True (" f8 "). Value =" Депозит "(" g8 "). Value =" Відсотки "(" h8 "). Value =" Всього "(" ; f9 "). Value = osn (" g9 "). Value = Sum1 (" h9 "). Value = Sum1 + osn

депозіт.Hide ("Депозит"). Activate 'активізація діаграми ActiveChart.Name

End Sub

Підпрограма розрахунку депозиту по простому відсотку:

Sub prostoi_pr ()

'розрахунок простого відсотка

proc = Sum * Ps/12 = Sumi = 1 To Sroc = proc * i = osn + Sum1 (i + 10, 1). Value = i (i + 10, 2). Value = osn (i + 10, 3). Value = Sum1 (i + 10, 4). Value = plat i

End Sub

Підпрограма розрахунку депозиту по складному відсотку:

Sub slozhniu_pr ()

'розрахунок складного відсотка

proc = Sum * Ps/12 = Sumi = 1 To Sroc = proc * i = Sum * i = osn + Sum1 (i + 10, 1). V...