ется после того, как пользователь выбрал диапазон ячеек. В данном случае объект S e­ le c tio n выступает в качестве коллекции, которая состоит из объектов Range, по­ скольку каждая ячейка в выделенной области представляет собой объект Range. Проце­ дура проверяет каждую ячейку, а затем использует функцию VBA UCase для преобразования ее содержимого в символы верхнего регистра. (При этом числовые ячейки не изменяются.)

В VBA существует способ выхода из цикла For-N ext до того, как будут проверены все элементы коллекции. Для этого используется оператор E x it For. В приведенном ни­ же примере выбирается первое отрицательное значение в первой строке активного листа.

В рассматриваемом примере используется конструкция If-T h e n для проверки зна­ чения каждой ячейки. Если ячейка содержит отрицательную величину, она выбирается, причем завершение цикла происходит после выполнения оператора E x it For.

Контроль за выполнением кода

Некоторые процедуры VBA начинают выполняться с первых строк кода. Этот про­ цесс происходит построчно до самого конца процедуры (например, так всегда работают макросы, записанные при выполнении действий). Однако иногда необходимо контроли­ ровать последовательность операций, пропуская отдельные операторы, повторно выпол­ няя некоторые команды и проверяя условия для определения следующего действия, вы­ полняемого процедурой.

В предыдущем разделе описана конструкция For Each-N ext, которая является циклической структурой. В настоящем разделе речь пойдет о дополнительных способах контроля за выполнением процедур, написанных на VBA:

•оператор GoTo;

•конструкция I f - Then;

•цикл F o r - N e x t;

Оператор GO T O

Самый простой способ изменить последовательность операций в коде — использо­ вать оператор GoTo. Он перенаправляет ход выполнения программы на новую инструк­ цию, которая помечена специальным образом (текстовая строка, заканчивающаяся двое­ точием, или число, заканчивающееся пробелом, указанные перед инструкцией). Проце­ дуры VBA могут содержать любое количество меток, а оператор GoTo не определяет переход за пределы процедуры.

В приведенной ниже процедуре применена функция VBA In p u tB o x для получения имени пользователя. Если имя пользователя отличается от Ховард, то процедура пере­ ходит к метке WrongName, на чем заканчивает свою работу. В противном случае проце­ дура выполняет дополнительные операции. Оператор E x it Sub заканчивает выполне­ ние процедуры.

Представленная процедура работает, но оператор GoTo, как правило, используется, если другого способа выполнить действие просто не существует. Единственной ситуаци­ ей, когда оператор GoTo в VBA действительно необходим, является перехват ошибок (см. главу 9).

Вряд ли представленный выше пример следует рассматривать в качестве эффектив­ ной меры защиты!

Конструкция I£-Then

Вероятно, конструкция If-T h e n чаще остальных используется для группирования инструкций VBA. Эта популярная конструкция наделяет приложения способностью при­ нимать решения. Такая способность является ключевой при создании эффективных про­ грамм. Удачное приложение Excel, по сути, сводится к принятию правильного решения

Конструкция I f - T h e n используется для выполнения одного или более операторов при справедливости заданного условия. Оператор E ls e необязателен. Он позволяет вы­ полнять одну или более инструкций в случае несправедливости условия.

В описанной ниже процедуре применена структура If-T h e n без оператора E lse . Пример связан с управлением временными данными. VBA использует систему дат ивремени, похожую на задействованную в Excel. Время дня выражается дробным чис­ лом, например полдень представлен как 0 .5 . Функция VBA Time возвращает значение, представляющее время в формате системных часов. В следующем примере сообщение отображается, если текущее время меньше полудня. Если текущее системное время больше или равно 0 . 5, то процедура заканчивается, и ничего не происходит.

Sub G reetM elO

I f Time < 0 .5 Then MsgBox "Доброе утро "

End Sub

Можно переписать этот код, воспользовавшись несколькими операторами, как пока­ зано ниже.

Sub G reetM elaO

End Sub

Обратите внимание, что оператору I f соответствует оператор End I f . В этом при­ мере вызывается на выполнение только один оператор, если условие равно True. Между операторами I f и End I f можно поместить любое количество операторов.

Если нужно отобразить другое приветствие, когда наступает вторая половина дня, добавьте еще один оператор I f - Then, как показано ниже.

End Sub

Обратите внимание, что для второй конструкции If-T h e n использован оператор >= (больше или равно). Таким образом учитывается случай, когда время на часах точно равно 12.00.

Другой подход — использовать оператор E lse конструкции If-T h en .

Обратите внимание, что был использован символ продолжения строки; If- T h e n - Else является фактически одним оператором.

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

1 Здесь вводятся другие операторы End I f

End Sub

Если вам необходимо расширить процедуру до обработки трех условий (например, утро, день и вечер), то можете использовать либо три оператора If-T h en , либо вложен­ ную структуру I f -T h en -E lse . Первый вариант значительно проще.

Значение 0 . 75 представляет время 18:00— три четверти суток и тот момент, когда день переходит в вечер.

В предыдущих примерах каждая инструкция в процедуре выполняется даже утром. Для эффективности следует включить структуру, заканчивающую процедуру, когда одно из условий выполняется. Если, например, отображается сообщение Доброе утро, то процедура заканчивается без проверки других, излишних условий. Конечно, разница в скорости выполнения обеих процедур несущественна, если вы разрабатываете такую крохотную процедуру, как рассматриваемая. Но в более сложных приложениях все же рекомендуется учесть следующий синтаксис.

I f условие Then

[и н ст рукци и_и ст ин а ]

[E ls e If у с л о в и е -п Then

[а л ь терна т ивны е_инст рукции] ]

[E lse

[операт оры _по_ум олчанию ] ]

End I f

Этот же синтаксис можно использовать для введения кода процедуры GreetMe5.

Если в представленном синтаксисе условие выполняется, то выполняются соответст­ вующие операторы, после чего конструкция If-T h e n заканчивается. Другими словами, при этом не оцениваются дополнительные условия. Такой синтаксис наиболее эффекти­ вен, однако многим эта программа может показаться сложной для понимания.

Далее представлен еще один способ реализовать рассматриваемый пример. В нем ис­ пользуются вложенные конструкции If - T h e n - E ls e (без E ls e lf ) . Данная процедура также эффективна, и ее легко понять. Обратите внимание, что для каждого оператора If существует свой оператор End I f .

End I f

End I f

End I f

End Sub

Ниже продемонстрирован еще один пример, использующий простую форму конст­ рукции If - T h e n . Процедура запрашивает у пользователя значение переменной Q uan­ t i t y и отображает скидку на основе полученного значения. Если в окне In p u tB o x пользователь щелкнет на кнопке Отмена, то переменная Q u a n tity приравняется к пус­ той строке, в результате чего процедура будет завершена. Следует отметить, что эта про­ цедура не выполняет других проверок (например, мы не проверяем в данном случае вве­ денное числовое значение на отрицательность).

всегда выполняется, а значение D is c o u n t может изменяться. Однако в результате все­ гдаотображается нужное значение.

Следующая процедура — это вариант предыдущей, переписанной с использованием альтернативного синтаксиса. Процедура будет окончена после выполнения блока

Вложенные структуры I f - T h e n достаточно громоздкие. Поэтому рекомендуется ис­ пользовать их только для принятия простых бинарных решений. Если же необходимо выбрать между тремя и более вариантами, то целесообразно обратиться к конструкции Select Case, которая рассматривается далее.