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

1. Как задать значение свойству?

С помощью оператора Объект.имя_свойства = значение

2. Как вызвать на исполнение метод?

С помощью оператора Объект.метод

3. Какой оператор назначает объект переменной объекту?

Оператор Set.

4. Истинно или ложно следующее утверждение: только объекты имеют свойства и методы, но не коллекции?

Ложно. Коллекции также имеют свойства и методы. Например, все коллекции имеют метод Addи свойство Count.

5. Как создать новый элемент коллекции?

С помощью метода Add.

Упражнение

Используя окно просмотра объектов Object Browser или справочную систему Visual Basic, найдите следующие свойства.

Для объекта Application:

• каталог, где инсталлирована программа Excel;

• используемую операционную систему;

• зарегистрированное имя пользователя программы Excel.

Для объекта Workbook:

• где сохранена рабочая книга.

Используйте эту информацию для создания процедуры. В текущую рабочую книгу вставьте новый модуль. Создайте новую процедуру с именем СкажиМне. Эта процедура должна использовать найденные вами свойства для вывода последовательности окон сообщений со значениями этих свойств.

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

Sub СкажиМне()

 MsgBox "Excel инсталлирована в каталоге " & Application.Path

 MsgBox "Excel работает под управлением операционной системы " _

  & Application.OperatingSystem

 MsgBox Application.UserName & " - зарегистрированный пользователь."

 MsgBox "Эта рабочая книга имеет " & Worksheets.Count & " листа(ов)."

 MsgBox "Рабочая книга сохранена? " & ThisWorkbook.Saved

End Sub

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

1. Как в VBA применить функцию МАХ для нахождения максимального значения из диапазона ячеек А1:С5?

Используйте оператор

sngResult = Application.Max(Range("A1:C5"))

2. Какой объект находится на высшем уровне иерархии объектов?

Объект Application.

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

Метод Add.

4. Как в VBA удалить рабочий лист из рабочей книги?

Надо применить метод Delete объекта Worksheet.

5. Истинно или ложно следующее утверждение: из процедуры VBA нельзя вызывать на исполнение макросы, записанные в стиле Excel 4.0?

Ложно. Макросы, записанные в стиле Excel 4.0, можно выполнить с помощью метода Run объекта Application.

Упражнение

Создайте новую процедуру УпрЧас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