Конструкция Select Case

В операторе Case можно использовать запятую, разделяющую несколько значений для одного варианта. В следующей процедуре используется функция VBA WeekDay, с помощью которой определяется, является ли текущий день субботой либо воскресень­ ем (функция Weekday возвращает значение 1 либо 7). Затем отображается соответст­ вующее сообщение.

Следующий пример демонстрирует еще один способ кодирования предыдущей про­ цедуры.

Под каждым оператором Case может указываться любое количество инструкций, и они выполняются при условии Case, имеющем значение True. Если вы используете в каждом случае Case только одну инструкцию (как в предыдущем примере), то можете поместить ее в той же строке, что и ключевое слово Case (но не забудьте о символе раз­ деления операторов в VBА — двоеточии). Этот прием сделает текст программы более компактным.

Совет

Интерпретатор VBA осуществляет выход из конструкции S e le c t Case, как только найдено условие True. Следовательно, для максимальной эффек­ тивности, в первую очередь, следует выполнить проверку наиболее вероят­ ного случая.

Структуры S e le c t Case можно вкладывать друг в друга. Например, следующая процедура использует процедуру VBA TypeName для определения того, что выделено в настоящий момент (диапазон ячеек, ничего или что-либо еще). Если выделен диапазон, процедура вызывает на выполнение вложенный оператор S e le c t Case, а также прове­ ряет количество ячеек в диапазоне. Если выделена одна ячейка, отображается сообщение Выделена одна ячейка. В противном случае отображается сообщение, в котором указывается количество выделенных строк.

Можно создавать конструкции S e le c t Case любой степени вложенности, но убедитесь, что каждому оператору S e le c t Case соответствует свой оператор End S e le c t.

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

End S e le c t

End Sub

В таком представлении мало что понятно даже опытному программисту!

Циклическая обработка инструкций

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

Следующий код, в котором в диапазон вводятся последовательные числа, является примером того, что называют плохим циклом. Процедура использует две переменные для хранения начального значения ( S ta r t V a l) и общего количества ячеек, которые не­ обходимо заполнить (N u m T o F ill). В этом цикле для управления порядком выполнения операций используется оператор GoTo. Если переменная C nt, отвечающая за то, сколь­ ко ячеек заполнено, меньше числа, заданного пользователем, то выполняется переход назад, к метке D o A n o th e r.

End Sub

Описанная процедура выполняется правильно. Почему же она является примером пло­ хого цикла? Настоящие программисты не используют оператор GoTo, если можно обой­ тись без него. Применение операторов GoTo в цикле противоречит концепции структурно­ го программирования (см. врезку “Несколько слов о структурном программировании”). Этот оператор значительно усложняет восприятие кода, поскольку в данном случае прак­ тически невозможно структурировать цикл с помощью отступов. Кроме того, такой тип не­ структурированного цикла делает процедуру подверженной частым ошибкам. Также исполь­ зование большого количества меток приводит к получению программы с плохой структу­ рой (или без структуры вообще) и бессистемным порядком следования операций.

Поскольку в VBA встроено несколько структурированных команд циклов, в процессе принятия решений практически никогда не требуется прибегать к операторам GoTo.

Несколько слов о структурном программировании

Пообщайтесь с профессиональными программистами, и рано или поздно вы услы­ шите термин “структурное программирование”. Кроме того, вы обнаружите, что струк­ турные программы лучше иных типов программ.

Чтоже представляет собой структурное программирование и как его применить к VBA?

Основное условие заключается в том, что процедура (или сегмент программы) должна иметь только одну точку входа и одну точку выхода. Другими словами, тело кода является независимым элементом, а контроль за выполнением программы не должен

выходить за рамки этого элемента. Поэтому в структурной программе не допускается применение оператора GO T O . В подобной программе выполнение кода происходит в определенном порядке, который легко отслеживается (в отличие от кода, в котором программа “перескакивает” с места на место).

Структурную программу проще воспринимать и анализировать, чем неструктурную. И что более важно, ее легче изменять.

VBA— структурированный язык. Он предлагает стандартные структурные конструкции, такие как If-T h e n -E ls e и S e le ct Case, а также циклы For-N ext, Do U n t il и Do W hile.

Более того, VBA полностью поддерживает модульный подход к созданию программ.

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

Циклы F o r -N e x t

Простейший пример хорошего цикла — F or-N ext (он уже применялся в нескольких предыдущих примерах). Этот оператор имеет следующий синтаксис.

Ниже приведен пример цикла F or-N ext, в котором не используется значение шаг

Вданном примере Count (переменная-счетчик цикла) имеет начальное значение 1

иувеличивается на 1 при каждом повторении цикла. Переменная Sum суммирует квад­ ратные корни каждого значения Count.

Предупреждение

Используя циклы F o r-N e xt, важно понимать, что в качестве счетчика цикла используется обычная переменная, и ничего больше. В результате значение счетчика цикла можно изменять в блоке программы, который выполняется между операторами For и Next. Однако это очень неудачный прием, посколь­ ку он может привести к непредсказуемым результатам. Необходимо принять специальные меры предосторожности, чтобы удостовериться в том, что про­ грамма не изменяет счетчик цикла.

Можно также указать значение ш аг для переменной S tep, чтобы пропустить отдель­ ные итерации цикла. Ниже рассмотрена исходная процедура, переписанная так, что сум­ мируются квадратные корни всех нечетных чисел в диапазоне от 1 до 100.

MsgBox Sum

End Sub

В этой процедуре исходное значение Count равно 1, затем счетчик принимает значе­ ния 3, 5, 7 и т.д. Последнее значение Count, используемое в цикле, равно 99. Когда цикл заканчивается, значение Count равно 101.

Значение переменной S tep в цикле F or-N ext может быть также отрицательным. Приведенная ниже процедура удаляет строки 2, 4, 6, 8 и 10 в активном листе.

Sub DeleteRowsO

Dim RowNum As Long

For RowNum = 10 To 2 Step -2

Rows(RowNum).Delete

Next RowNum

End Sub

На первый взгляд, вызывает удивление использование отрицательного значения пере­ менной S tep в процедуре DeleteRows. Если же использовать положительные значения переменной Step, как показано в следующей процедуре, будут удалены не те строки. Это связано с тем, что строки, находящиеся под удаленными строками, получают новые номе­ ра. Например, если удалена 2-я строка, 3-я строка получает номер 2. Эту проблему можно устранить путем использования отрицательных значений переменной Step.

Sub D eleteR ows2()

Dim RowNum As Long

For RowNum = 2 To 10 Step 2

Rows(RowNum).Delete

Next RowNum

End Sub

Следующая процедура выполняет ту же задачу, что и пример цикла BadLoop, кото­ рый приводился в начале раздела “Циклическая обработка инструкций”. В данном слу­ чае был устранен оператор GoTo, благодаря чему “плохой цикл” был превращен в “хороший цикл”, в котором используется структура F or-N ext.

Циклы F or-N ext могут также содержать один или более операторов E x it For. Когда программа встречает этот оператор, то сразу же выходит из цикла, как показано в следующем примере. Эта процедура определяет, какая ячейка столбца А на активном рабочем листе имеет наибольшее значение.

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

Loop

или

Do

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

[E x it Do]

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

Loop [W hile условие]

Как видите, VBA позволяет проверять условие W hile в начале или в конце цикла. Разница между этими двумя синтаксисами связана с моментом, когда оценивается усло­ вие. В первом синтаксисе содержимое цикла может вообще не выполняться. Во втором содержимое цикла всегда выполняется (как минимум один раз).

Вследующих примерах в активный рабочий лист вставляется набор дат. Эти даты со­ ответствуют дням текущего месяца, а их ввод в столбец осуществляется, начиная с ак­ тивной ячейки.

Вэтих примерах используются некоторые функции VBA, обрабатывающие даты:

•D ate возвращает текущую дату;

•Month возвращает номер месяца для даты, являющейся аргументом;

• D a te S e ria l конструирует дату на основе значений дня, месяца и года, указан­ ных в качестве аргументов.

В первом примере демонстрируется цикл Do W hile, в котором реализована провер­ ка условия в начале цикла: процедура E n te rD a te sl вводит даты текущего месяца в столбец рабочего листа, начиная с активной ячейки.

A c tiv e C e ll = TheDate

TheDate = TheDate + 1

A c t iv e C e ll. O ff s e t(1, 0 ) .A c tiv a te

Loop

End Sub

В этой процедуре используется переменная TheDate, которая хранит даты, записан­ ные в рабочем листе. Для инициализации переменной используется первый день текуще­ го месяца. В процессе выполнения цикла значение переменной TheD ate было введено в активную ячейку, затем это значение было увеличено на единицу, после чего активизи­ руется следующая ячейка. Цикл выполняется до тех пор, пока значение месяца, присво­ енное переменной TheD ate, совпадет со значением месяца текущей даты.

Результат выполнения следующей процедуры будет таким же, что и результат выпол­ нения процедуры E n te rD a te sl, но в данном случае используется вторая форма син­ таксиса цикла Do W hile, предусматривающая проверку условия в конце цикла.

TheDate = D a te S e ria l(Y e a r(D a te ), M o n th (D a te ), 1)

Do

A c tiv e C e ll = TheDate

Следующий пример сначала использовал цикл Do W hile, но позднее был переписан с учетом применения цикла Unt i 1. В результате изменилась единственная строка, в ко­ торой находится оператор Do. Получился более “прозрачный” код, не требующий отри­

Примечание

В VBA используется еще один вид цикла, w h ile Wend. Эта циклическая структура была включена в целях обеспечения совместимости и вряд ли вы