End Sub. 1.10. Создайте в рабочем листе произвольный графический объект и назначьте ему процедуру, активизирующую созданную экранную форму

1.10. Создайте в рабочем листе произвольный графический объект и назначьте ему процедуру, активизирующую созданную экранную форму.

1.11. Проверьте работоспособность процедуры.

Задание № 15 (Часть 3). Диалоговые окна.

Цель: Знакомство со стандартными диалоговыми окнами.

Темы: Использование функции MsgBox для сообщений и управления приложением.

1. Создайте окно сообщений, приведенное на рис.15.4.

Рис.15.4

1.1. На листе модуля создайте процедуру "Выход", один из вариантов текста которой приведен далее.

Sub Выход()

msg= MsgBox ("Завершить работу? ", vbYesNo+vbQuestion+vbDefaultButton2, "Выход")

If msg = vbYes Then

ActiveWorkbook.Save

ActiveWindow.Close

Else

Exit Sub

End If