Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Макросы.doc
Скачиваний:
26
Добавлен:
21.11.2018
Размер:
16.91 Mб
Скачать

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

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

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

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

Свойство Offset.

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

Оператор For Each.

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

Свойство CurrentRegion.

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

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

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

Метод Clear.

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

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

Упражнение

Откройте новую рабочую книгу. Введите следующие значения в первый лист рабочей книги.

Ячейки

Значения

А1

Товар

А2:А6

Названия каких-либо товаров

В1

Цеха

B2

15

B3

5

В4

3

В5

7

B6

9

Создайте процедуру с именем СнижениеЦен. Процедура должна уменьшить значения всех ячеек из диапазона В2:В6 на 5. Если цена будет меньше или равна нулю, выделите ее и название товара красным полужирным шрифтом. Также в этом случае (цена меньше или равна нулю) процедура должна вывести окно сообщения с соответствующим текстом предупреждения.

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

Sub СнижениеЦен()

 Dim х As Range

 Dim bProblems As Boolean

 For Each x In Range("B2:B6")

  x.Value = x.Value - 5

  If x.Value <= 0 Then

   x.Offset(0, -1).Select

   Selection.Resize(1, 2).Select

   With Selection

    .Font.Bold = True

    .Font.Color = vbRed

   End With

   bProblems = True

  End If

 Next

 If bProblems = True Then

  MsgBox "Некоторые цены получились меньше 0!"

 End If

End Sub

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

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

Посредством окна просмотра объектов Object Browser, с помощью клавиши <F5> в окне кода, через меню Help.

  1. Окно Object Browser можно использовать для просмотра списков объектов, событий, свойств и ___________.

методов

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

<Ctrl+Home>

  1. __________ - маленькое окно с информацией о синтаксисе вводимой функции и ее аргументах.

Экранная подсказка

  1. Где находятся опции, управляющие такими средствами редактора Visual Basic, как экранная подсказка и автоматическая проверка синтаксиса?

В диалоговом окне Options.

  1. Истинно или ложно следующее утверждение: справочная система Visual Basic позволяет только просматривать приведенные там примеры кода, не разрешая их копирование и вставку в свои процедуры?

Ложно.