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

1. Если необходимо выполнение определенной процедуры при импортировании данных с помощью MS Query, какое событие необходимо использовать?

Событие OnData.

2. Истинно или ложно следующее утверждение: в рабочей книге может быть несколько процедур Auto_Open?

Ложно. В любой рабочей книге может быть только по одной процедуре Auto__Open и Auto_Close.

3. Назовите не менее двух свойств событий, которые можно назначить для выполнения процедур проверки корректности вводимых данных.

Для этого можно использовать OnCalculate, OnEntry, OnKey и OnSheetDeactivate.

4. Истинно или ложно следующее утверждение: вы должны при использовании надстройки каждый раз загружать ее вручную?

Ложно.

5. Предположим, что при закрытии рабочей книги необходимо сохранить внешний файл Word. Как это сделать?

Напишите процедуру, которая с помощью средств автоматизации будет сохранять внешний файл Word, и присвойте ей имя Auto_Close.

6. Сформулируйте задачи, которые могут выполнять надстройки.

Надстройки могут использоваться для хранения функций, созданных пользователем, пользовательских диалоговых окон, пользовательских меню, пользовательских панелей инструментов.

Упражнение

Откройте новую рабочую книгу и создайте процедуру Auto Open, которая должна выполнять следующие операции:

• ввести текст Дата:, Имя:, Организация: в ячейки A1, A2 и A3 соответственно;

• с помощью функции Now в ячейку В1 отобразить системное время компьютера;

• использовать свойство UserName объекта Application для вставки имени пользователя в ячейку В2;

• использовать свойство OrganizationName объекта Application для вставки названия организации в ячейку 83;

• подогнать размеры столбцов А и В так, чтобы они полностью отображали введенные данные.

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

Sub Auto_Open()

 With ActiveSheet

  Range("A1").Value = "Дата:"

  Range("B1").FormulaR1C1 - "=NOW()"

  Range("A2").Value = "Имя:"

  Range("B2").FormulaR1C1 = Application.UserName

  Range("A3").Value = "Организация:"

  Range("B3"].FormulaR1C1 = Application.OrganizationName

  Columns("A:B").EntireColumn.AutoFit

 End With

End Sub