Разработка программы для автоматического расчета кредитных и депозитных операций при помощи Visual Basic for Applications
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
bIfSroc > 120 Then "Максимальный срок депозита - 10 лет",, Zaglav
Exit Sub
End If
приcваивание процентной ставки в зависимости от срока депозита
If Sroc >= 1 And 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 = Pz
обнуление переменных
osn = 0
proc = 0
plat = 0
Sum1 = 0
Sum2 = 0
рассчет депозита c простым процентом
If pr. Value = True Then("B3"). Value = "Простой процент"
proc = Summ * Pz / 12
osn = Summi = 1 To Sroc= proc * i= osn + Sum1
Занесение данных в таблицу
Cells (i + 10, 1). Value = i(i + 10,2). Value = osn(i + 10,3). Value = Sum1(i + 10,4). Value = plati
вывод итогов
Range ("F11"). Value = osn("G11"). Value = Sum1("H11"). Value = plat If
расчет депозита с сложным процентом
If sl. Value = True Then("B3"). Value = "Сложный процент"= Summ= Summi = 1 To Sroc= Sum2 * Pz / 12= Sum2 + proc= plat= plat - osn
Занесение данных в таблицу
Cells (i + 10, 1). Value = i(i + 10,2). Value = osn(i + 10,3). Value = Sum1(i + 10,4). Value = plati
вывод итогов
Range ("F11"). Value = osn("G11"). Value = Sum1("H11"). Value = platIf
построение графика
Sheets. Add After: =Sheets (Sheets. Count). Shapes. AddChart. Select. ChartType = xlLineMarkers. SetSourceData Source: =Range (Worksheets (1). Cells (10,2), Worksheets (1). Cells (Sroc + 10,4)). SeriesCollection (1). Name = "=Лист1! $B$10". SeriesCollection (2). Name = "=Лист1! $C$10". SeriesCollection (3). Name = "=Лист1! $D$10". Location Where: =xlLocationAsNewSheet
закрывает форму 2 и открывает форму 4
UserForm3. Hide. ShowSub
процедура выхода
Private Sub vix_Click ()
запрос у пользователя на подтверждение выхода
Ex = MsgBox ("Вы действительно хотите выйти?", vbYesNo + vbQuestion, Zaglav)
If Ex = vbNo Then Exit Sub
закрытие рабочих книг
ActiveWorkbook. Close False. CloseSub
UserForm4
Процедура сохранения расчетов
Private Sub sohr_Click () [4]
If UserForm3. fio. Value = "" Then= UserForm2. fio. Value= Application. GetSaveAsFilename (InitialFileName: =i)
при нажатии кнопки "отмена" выходит из процедуры
If SaveName = False Then Exit Sub. SaveAs Filename: =SaveName & "xls"SubIf= UserForm3. fio. Value= Application. GetSaveAsFilename (InitialFileName: =i)
при нажатии кнопки "отмена" выходит из процедуры
If SaveName = False Then Exit Sub. SaveAs Filename: =SaveName & "xls"Sub
процедура выхода
Private Sub vix_Click () [5]
запрос у пользователя на подтверждение выхода
Ex = MsgBox ("Вы действительно хотите выйти?", vbYesNo + vbQuestion, Zaglav)
If Ex = vbNo Then Exit Sub
запрос на подтверждение сохранения
Sv = MsgBox ("Сохранить текущий файл?", vbYesNo + vbQuestion, Zaglav)
If Sv = vbNo Then. Close False. CloseSubIf
сохранение файла
If UserForm3. fio. Value = "" Then= UserForm2. fio. Value= Application. GetSaveAsFilename (InitialFileName: =i)
при нажатии кнопки "отмена" выходит из процедуры
If SaveName = False Then Exit Sub. SaveAs Filename: =SaveName & "xls"
закрытие рабочих книг
ActiveWorkbook. Close False. CloseSubIf= UserForm3. fio. Value= Application. GetSaveAsFilename (InitialFileName: =i)
при нажатии кнопки "отмена" выходит из процедуры
If SaveName = False Then Exit Sub. SaveAs Filename: =SaveName & "xls"
закрытие рабочих книг
ActiveWorkbook. Close False. CloseSub
подпрограмма перерасчета
Private Sub peres_Click () [3]
запрос на подтверждение сохранения
Sv = MsgBox ("Сохранить текущие расчеты?", vbYesNo + vbQuestion, Zaglav)
If Sv = vbNo Then
закрывает созданную книгу и переходит к форме 1
ActiveWorkbook. Close False. Hide. ShowSubIfUserForm3. fio. Value = "" Then= UserForm2. fio. Value= Application. GetSaveAsFilename (InitialFileName: =i)
при нажатии кнопки "отмена" выходит из процедуры
If SaveName = False Then Exit Sub. SaveAs Filename: =SaveName & "xls"SubIf= UserForm3. fio. Value= Application. GetSaveAsFilename (InitialFileName: =i)
при нажатии кнопки "отмена" выходит из процедуры
If SaveName = False Then Exit Sub. SaveAs Filename: =SaveName & "xls"
сохранение файла
SaveName = Application. GetSaveAsFilename (InitialFileName: =fio)
при нажатии кнопки "отмена" выходит из процедуры
If SaveName = False Then Exit Sub. SaveAs Filename: =SaveName & "xls"
закрывает созданную книгу и переходит к форме 1
ActiveWorkbook. Close False. Hide. ShowSub