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

ня даних в таблицю

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

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

Range ("F11"). Value = Sum1 ("G11"). Value = Sum2 ("H11"). Value = Sum3 If

'побудова графіка

Sheets. Add After: = Sheets (Sheets. Count). Shapes. AddChart. Select. ChartType = xlLineMarkers. SetSourceData Source: = Range (Worksheets (1). Cells (10,2), Worksheets (1). Cells (Sroc * 12 + 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

UserForm2. Hide. ShowSub

'процедура виходу

Private Sub vix _Click ()

'запит у користувача на підтвердження виходу

Ex = MsgBox ("Ви дійсно хочете вийти?", vbYesNo + vbQuestion, Zaglav)

If Ex = vbNo Then Exit Sub

'закриття робочих книг

ActiveWorkbook. Close False. CloseSub

UserForm3

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

Private Sub rasdep _Click () [1]

Dim Pz, Summ, Sroc As Singleosn, proc, plat, Sum1, Sum2 As Singlei As IntegerZaglav As String = "Кредитні та депозитні операції"

'показати помилку, якщо не введена ПІБ клієнта

If fio. Value = "" Then

MsgBox "Введіть ПІБ клієнта",, Zaglav

Exit Sub

End If

'показати помилку, якщо не обраний вид депозиту

If pr. Value = False And sl. Value = False Then "виберіть вид депозиту",, Zaglav Sub

End If

'показати помилку, якщо не введена сума депозиту

If summdep. Value = "" Then

MsgBox "Введіть суму депозиту",, Zaglav

Exit Sub

End If

'показати помилку, якщо не введена сума депозиту

If srocdep. Value = "" Then

MsgBox "Введіть термін депозиту",, Zaglav

Exit Sub

End If

'показати помилку, якщо неправильно введена сума депозиту...