alue = 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
Додаток 2
Приклад роботи програми
Приклад № 1 . При запуску робочої книги відкривається вікно вибору В«розрахунок банківських операційВ» або В«про програму В»:
В
Рис.1
При виборі В«розрахунок банківських операційВ» далі запускається форма для введення даних:
В
Рис.2
При натисканні кнопки В«ВихідВ», при підтвердженні виходу закривається робоча книга, при скасуванні - повернення до програми
В
Рис.3
Для розрахунку банківської операції вибирається відповідна вкладка, потрібний тип платежу і вводяться необхідні дані. Для прикладу, виберемо депозит, простий відсоток. Введемо дані:
П.І.Б. клієнта - Іванов Іван
Сума депозиту - 250000
Термін д...