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

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

= 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]