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

FileName: = 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. Va...