Упражнение

Создайте следующую процедуру:

Sub ПроцСОшибкой()

Workbooks.Open "С:\неттакогофайла.wkb"

End Sub

Добавьте в эту процедуру код обработчика ошибок, который отображал бы окно с соответствующим сообщением и передавал управление оператору, следующему за оператором, вызывающим ошибку.

Полный код процедуры:

Sub ПроцСОшибкой()

On Error GoTo MyErrorHandler

Workbooks.Open "С: \неттакогофайла.wkb"

Exit Sub

MyErrorHandler:

MsgBox "Такого файла не существует."

Resume Next

End Sub

Ответы к 14-му часу

Тесты

1. Истинно или ложно следующее утверждение: сетка на экранной форме отображается и в редакторе Visual Basic, и при выполнении формы?

Ложно. Сетка на экранной форме отображается только в редакторе Visual Basic в режиме конструктора.

1. Какое свойство применяется для назначения быстрых клавиш элементу управления?

Свойство Accelerator.

1. Как указать, какая командная кнопка должна "сработать" при нажатии клавиши <Enter>?

Задав свойству Default значение True.

1. Какое значение какому свойству надо задать, чтобы переключатель был выбран по умолчанию?

Надо задать значение True свойству Value.

1. Истинно или ложно следующее утверждение: выравнивание элементов управления требует задания значений свойств?

Ложно. Элементы управления можно выровнять с помощью команд из меню Format или инструментов Align панели UserForm.

1. Что произойдет, если для командной кнопки вы установите значение True свойства Cancel?

Процедура, назначенная этой командной кнопке, будет выполнена при нажатии пользователем клавиши <Esc>.

1. Как задать порядок обхода элементов формы при нажатии клавиши <Tab>?

Простейший способ: создавать элементы формы в той последовательности, каков запланированный порядок обхода элементов формы при нажатии клавиши <Tab>.