Упражнение

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

Создайте процедуру с именем СнижениеЦен. Процедура должна уменьшить значения всех ячеек из диапазона В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 позволяет только просматривать приведенные там примеры кода, не разрешая их копирование и вставку в свои процедуры?

Ложно.