Использование Visual Basic for Applications в автоматизации банковских операций
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
= 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
Подпрограмма расчета кредитов дифференцированным методом:
Sub differen_kr()
рассчет кредита дифференцированным методом("B3").Value = "Дифференцированный"= Sum / (12 * Sroc)
расчет выплаты по основному долгу, выплаты по процентам, и всего долга
For i = 1 To Sroc * 12= Sum - (i - 1) * osn= ostatok * Ps / 12= proc + osn= Sum1 + osn= Sum2 + proc= Sum3 + plat(i + 10, 1).Value = i(i + 10, 2).Value = osn(i + 10, 3).Value = proc(i + 10, 4).Value = plati
Sub
Подпрограмма расчета кредитов аннуитентным методом:
Sub annyitent_kr()
рассчет кредитов аннуитентным методом
Range("B3").Value = "Аннуитентный"= (Sum * Ps / 12) / (1 - (1 + Ps / 12) ^ (-Sroc * 12))
расчет выплаты по основному долгу, выплаты по процентам, и всего долга
For i = 1 To Sroc * 12= Sum - Sum1= ostatok * Ps / 12= plat - proc= Sum1 + osn= Sum2 + proc= Sum3 + plat(i + 10, 1).Value = i(i + 10, 2).Value = osn(i + 10, 3).Value = proc(i + 10, 4).Value = plati
Sub
Подпрограмма расчёта депозита:
Private Sub RaschetDEP_Click()
sumdep.Value = "" Then показать ошибку, если не введена сумма депозита"Введите сумму депозита",,ZaglSubIf
srokdep.Value = "" Then показать ошибку, если не введена сумма депозита"Введите срок депозита",,ZaglSubIf
IsNumeric(sumdep.Value) = False Then показать ошибку, если неправильно введена сумма депозита"Неправильно введена сумма депозита",,ZaglSubIf
IsNumeric(srokdep.Value) = False Then показать ошибку, если неправильно введен срок депозита"Неправильно введен срок депозита",,ZaglSubIf
присвоение переменным значений, вводимых пользователем
Sum = CDbl(sumdep.Value)= CInt(srokdep.Value)
проверка на правильность ввода срока депозитаSroc < 1 Then"Минимальный срок депозита - 1 месяц"
Exit SubIf
Sroc > 120 Then
MsgBox "Максимальный срок депозита - 10 лет"SubIf
приcваивание процентной ставки в зависимости от срока депозита
If Sroc >= 1 And Sroc 24 And Sroc <= 60 Then Ps = 0.06
If Sroc > 60 Then Ps = 0.08
проверка вводимой суммы депозитаSum < 250 Then"Минимальная сумма депозита - 250 рублей"
Exit SubIf
.Clear очистка ячеек
вывод подсказки для запуска программы("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).Value = i(i + 10, 2).Value = osn(i + 10, 3).Value = Sum1(i + 10, 4).Value = platiSub
Sub CommandButton3_Click() переход к окну запускаUserForm1.ShowSub
Sub кредит()
кредит Макрос
построение графиков
.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range(Sheets("Лист1").Cells(10, 2), Sheets("Лист1").Cells(Sroc * 12 + 9, 4)).ChartType = xlLine.Location Where:=xlLocationAsNewSheet, Name:="Кредит"("Кредит").Select
Sub
депозит()
депозит Макрос
построение графиков
.Shapes.AddChart.Select.SetSourceData Source:=Range(Sheets("Лист1").Cells(10, 2), Sheets("Лист1").Cells(Sroc + 9, 4)).ChartType = xlLine.Location Where:=xlLocationAsNewSheet, Name:="Депозит"("Депозит").Select
Sub
Sub CommandButton4_Click()
запрос у пользователя на подтверждение выхода= MsgBox("Вы действительно хотите выйти?", vbYesNo + vbQuestion, Zagl)
If Ex = vbNo Then Exit Sub.DisplayAlerts = False.Close.DisplayAlerts = True
End Sub
(UserForm4)
Процедура сохранения файла
Private Sub CommandButton1_Click()
Сохранение= Application.GetSaveAsFilename(InitialFileName:=Range("B1"))SaveName = False Then GoTo Vihod.SaveAs Filename:=SaveName & "xls":SubSub CommandButton2_Click() удаление графиков.DisplayAlerts = False.Charts.Delete.DisplayAlerts = TrueUserForm4.Show Sub
П?/p>