Упражнение

Создайте новую процедуру УпрЧас9, которая должна выполнить следующие действия:

• создать новую рабочую книгу;
• вставить в эту книгу новый рабочий лист;
• дать новому рабочему листу ваше имя;
• сохранить рабочую книгу под именем УпрЧас9.

Выполните процедуру. Откройте рабочую книгу УпрЧас9 и введите несколько значений в рабочий лист с вашим именем. Создайте новую процедуру с именем СохрЧас9. Эта процедура должна определить, сохранена ли рабочая книга после внесения в нее изменений. Если книга была сохранена, то должно выводиться окно с соответствующим сообщением.

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

Sub УпрЧас9()

Dim wbH9Workbook As Workbook

Dim wsH9Worksheet As Worksheet

Set wbH9Workbook = Workbooks.Add

Set wsH9Worksheet = wbH9Workbook.Worksheets.Add

wsH9Worksheet.Name = "Петя"

wbH9Workbook.SaveAs ("УпрЧас9")

End Sub

Sub CoxpЧac9()

If Workbookg("УпрЧас9.xls").Saved = True Then

MsgBox "Эта рабочая книга уже сохранена."

Else

Workbooks("УпрЧас9.xls").Save

MsgBox "Теперь рабочая книга сохранена."

End If

End Sub

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

Тесты

1. Истинно или ложно следующее утверждение: в VBA диапазон всегда состоит из многих ячеек?

Ложно. Одна ячейка также считается диапазоном.

1. Какое свойство объекта Range позволяет определить адрес одного диапазона на основе адреса другого?

Свойство Offset.

1. Если необходимо изменить значения всех ячеек диапазона, то какой оператор, требующий минимального кода, следует применить?

Оператор For Each.

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

Свойство CurrentRegion.

1. Как определить, какое количество ячеек составляют диапазон?

С помощью свойства Count.

1. Какой метод применяется для удаления содержимого диапазона?

Метод Clear.

1. Необходимо установить значения нескольких свойств определенного объекта. Как наиболее эффективно это сделать?

С помощью оператора With.