Умножение
      Оператор умножения (*) перемножает два числа; результатом выражения умножения является произведение двух операндов. Оба операнда в выражении умножения должны быть численными выражениями или строками, которые VBA может преобразовать в число.
       Деление
      Оператор деления (/) называют оператором деления чисел с плавающей точкой или действительных, чтобы отличать от оператора целочисленного деления. Оператор деления с плавающей точкой выполняет обычное арифметическое деление двух операндов. В выражениях деления первый операнд делится на второй операнд; результатом деления является частное. Оба операнда в выражении деления с плавающей точкой должны быть численными выражениями или строками, которые VBA может преобразовать в числа.
       Целочисленное деление
      Выражения, использующие оператор целочисленного деления (\), всегда имеют результатом целое число без дробной части. Оба операнда в выражении целочисленного деления должны быть численными выражениями или строками, которые VBA может преобразовать в числа.
       Деление по модулю
      Деление по модулю (mod) дополняет целочисленное деление. В делении по модулю выражение возвращает только остаток операции деления как целое. Оба операнда в выражении деления по модулю должны быть численными выражениями или строками, которые можно преобразовать в число.
       Возведение в степень
      Оператор возведения в степень (^) возводит число в степень. Оба оператора в выражении возведения в степень должны быть численными выражениями или строками, которые VBA может преобразовать в числа. Операнд слева от оператора возведения в степень может быть отрицательным числом, только если операнд справа является целым. Если какой-либо операнд является равным Null, то результатом выражения возведения в степень также будет Null; иначе результат выражения будет иметь тип Double.
       Оператор Like
      Оператор Likeдает возможность выполнять особый тип операции сравнения строк, и его можно использовать только со строками.
      Оператор Likeтестирует строку для определения того, совпадает ли она с заданным шаблоном.
      Синтаксис:

      выражение1 likeвыражение2,

      где выражение1– любое строковое выражение VBA;
       выражение2 – строковое выражение, специально созданное для задания шаблона, который оператор Likeсравнивает с выражением1.
      Результатом выражения Like является True, если первый операнд ( выражение1) совпадает с шаблоном во втором операнде ( выражение2); иначе результатом выражения будет False. Оба операнда в этом выражении должны быть строковыми выражениями, или VBA отобразит сообщение об ошибке несовпадения типов.
      Шаблон, с которым должна сравниваться строка, задается с использованием различных специальных символов. В табл. 4 содержатся методы и символы для создания образцов совпадения для оператора Like.
 
       Таблица 4

Символы совпадения с образцом для оператора Like

 
       Логические операторы
      Чаще всего логические операторы используются для объединения результатов отдельных выражений сравнения, чтобы создать сложные критерии для принятия решений в процедуре, или для создания условий, при которых группа операторов должна повторяться (табл. 5).
 
       Таблица 5

Логические операторы

 
       Сложное (составное) выражение– это любое выражение, образованное из двух или более выражений. Приоритеты выполнения операций при вычислении сложных выражений такие же, как и в любом языке программирования.

Изменение порядка выполнения операторов

      Рассмотренные операторы выполняются в линейном порядке. При использовании VBA-операторов изменение порядка выполнения операторов определяется условием или набором условий, при которых VBA выполняет ту или иную ветвь кода процедуры.
       Оператор условного перехода– это структура, которая выбирает ту или иную ветвь кода процедуры на основе некоторого предопределенного условия или группы условий.
       Оператор безусловного перехода– это оператор, просто изменяющий последовательность выполнения кода процедуры независимо ни от какого конкретного условия. Условный переход используется гораздо чаще, чем безусловный.
      Простейшими VBA-операторами изменения порядка выполнения кода являются операторы If … Then и If … Then … Else.
      Оператор If … Then позволяет выбрать единственную альтернативную ветвь кода в процедуре или функции.
      Синтаксис:

      If условие Then оператор(ы),

      где условие –любое логическое выражение;
       оператор(ы)– один, несколько или ни одного оператора VBA.
 
      Вторая форма синтаксиса оператора If … Then называется блоком оператора if. В блоке оператора If… Then условие и операторы записываются в отдельных строках, причем заканчивается данный оператор ключевыми словами End If.
      Синтаксис:

      If условие Then
      оператор 1
      оператор 2
      ….
      Оператор n
      End If

      Выбор одной из двух различных ветвей операторов в зависимости от определенного условия обеспечивает оператор

      If … Then … Else
      и If … Then … ElseIf.

      Синтаксис однострочного оператора If … Then … Else:

      If условие Then оператор1 Else оператор2,

      где условие –любое допустимое логическое выражение;
       операторы –один или несколько операторов VBA, которые должны находиться в одной и той же строке.
 
      Блок операторов If … Then … Else легче читать и понимать, и поскольку можно располагать операторы в разных строках внутри блока оператора If … Then … Else, он не имеет ограничения по размеру и числу операторов, которые можно помещать в альтернативные ветви.
      Синтаксис:

      If условие Then
      Оператор1
      Else
      Оператор2
      End If

      VBA, как и многие языки программирования, имеет условный оператор перехода для использования в случаях, когда необходимо выбирать из большего количества различных ветвей кода: оператор Select Case. Данный оператор работает во многом так же, как и оператор If. Ключевые слова Select Case используются со многими операторами Case, где каждый оператор Case проверяет появление другого условия и выполняется только одна из ветвей Case. Ветвь Case может содержать один, несколько или ни одного оператора VBA.
      Синтаксис:

      Select Case выражение
      Case условие_1
      Оператор_ 1
      Case условие_ 2
       Оператор_2
      …..
       Case условие_N
      Оператор_ N
      [Case Else
       Оператор_N+1
      End Select,

      где выражение –любое численное или строковое выражение;
       условие_1, условие_2, условие_N– (каждый) представляет список логических выражений, отделенных запятыми;
       оператор_1, оператор_2, оператор_N, оператор_N+1 –(каждый )представляет один, несколько или ни одного оператора.
 
      В Select Case можно включать столько операторов Case условия, сколько необходимо.
       Примечание.Написание неоднострочных операторов в программах производится именно так (в столбец), либо редактор будет выдавать ошибку написания.
      Оператор безусловного перехода всегда изменяет порядок выполнения операторов в процедуре или функции vba. При этом vba не проверяет никаких условий, а просто переходит к выполнению кода с другого места.
      Оператор GoTo имеет следующий синтаксис:

      GoTo метка

      Метка – любое обозначение или номер строки в той же процедуре или функции, которая содержит оператор GoTo. При выполнении оператора GoTo VBA немедленно переходит к выполнению оператора в строке, определенной с помощью метки.
       Пример 3. Создать программу, которая, используя инструкцию if … then, выполняет следующие действия: если переменной а присваивается значение больше нуля, то находится сумма чисел а и b, если меньше нуля, то находится произведение. Результат выводится в стандартное диалоговое окно msgbox.
       Технология выполнения
      1. В документе Операции(пример 2) выделите правой кнопкой мыши папку Modulesи выполните команду: Insert + Module(рис. 6).
      2. В появившемся модуле пропишите программу и запустите на выполнение.

      Dim a, b, c As Integer
      Sub poradok()
      a = -5
      b = 25
      If a > 0 Then
      c = a + b
      MsgBox (c)
      End If
      If a < 0 Then
      с = a * b
      MsgBox (с)
      End If
      End Sub

      В данной программе переменной а присвоено значение меньше нуля, следовательно, должна выполниться нижняя инструкция If (рис. 9).
 
 
       Рис. 9.Результат работы при а < 0
 
      3. Измените программу, поменяв значение ана положительное:

      Dim a, b, c As Integer
      Sub poradok()
      a = 5
      b = 25
      If a > 0 Then
      c = a + b
      MsgBox (c)
      End If
      If a < 0 Then
      c = a * b
      MsgBox (c)
      End If
      End Sub

       Примечание.Данную программу можно составить, используя полный блок инструкции If Then Else (рис. 10).
 
 
       Рис. 10.Результат работы при а > 0

      Dim a, b, c As Integer
      Sub poradok()
      a = 5
      b = 25
      If a > 0 Then
      c = a + b
      MsgBox (c)
      Else
      c = a * b
      MsgBox (c)
      End If
      End Sub

Повторение действий: циклы

      Процесс выполнения всех операторов, заключенных в структуру цикла, один раз называется итерацией (iteration)цикла. Некоторые структуры цикла организуются так, что они всегда выполняются заданное количество раз. Структуры цикла, всегда выполняющиеся заданное количество раз, называются циклами с фиксированным числом итераций (fixed iteration).Другие типы структур цикла повторяются переменное количество раз в зависимости от некоторого набора условий. Поскольку количество раз повторений этих гибких структур цикла является неопределенным, такие циклы называются неопределенными циклами (indefinite loops).
      Существуют два основных способа создания неопределенного цикла. Можно построить цикл так, что VBA будет тестировать некоторое условие (детерминант цикла) передвыполнением цикла. Если условие для повторения цикла не равно True, VBA пропускает все операторы в цикле. Можно также построить цикл таким образом, что VBA будет тестировать условие детерминанта цикла послевыполнения операторов в цикле.
      Самой простой структурой цикла является фиксированный цикл. VBA предоставляет две различные структуры фиксированного цикла: For… Next и For Each … Next. Обе структуры фиксированного цикла называются циклами For, потому что они всегда выполняются для (for)заданного количества раз.
 
       Использование цикла For… Next
      Цикл For…Next используется, когда необходимо повторить действие или ряд действий заданное количество раз, известное до начала выполнения цикла.
      Цикл For…Next имеет следующий синтаксис:

      For а = StartTo End[Step StepSize]
      операторы
      Next [а],

      где а – любая численная переменная VBA, обычно переменная типа Integer или Long;
       Start –любое численное выражение, определяет начальное значение для переменной а ;
       End –это также численное выражение, определяет конечное значение для переменной а .
 
      По умолчанию VBA увеличивает переменную а на 1 каждый раз при выполнении операторов в цикле (считает количество циклов). Можно задавать другое значение (StepSize),на которое будет изменяться а , включая необязательное ключевое слово Step. При включении ключевого слова Step необходимо задавать значение для изменения переменной а .
       Операторыпредставляют один, несколько или ни одного оператора VBA. Эти операторы составляют тело цикла For; VBA выполняет каждый из этих операторов каждый раз при выполнении цикла.
      Ключевое слово Next сообщает VBA о том, что достигнут конец цикла; необязательная переменная а после ключевого слова next должна быть той же самой переменной а , которая была задана после ключевого слова For в начале структуры цикла.
      Включайте необязательную переменную а после ключевого слова next для улучшения читабельности программного кода (особенно при использовании вложенных циклов for next) и для повышения скорости выполнения кода (иначе vba придется потратить время на определение того, какая переменная является правильной, для ее изменения после достижения ключевого слова next).
 
       Цикл For Each … Next
      Второй цикл For, который имеется в VBA, – это цикл For Each … Next. В отличие от цикла For…Next, цикл For Each … Next не использует счетчик цикла. Циклы For Each … Next выполняются столько раз, сколько имеется элементов в определенной группе, такой как коллекция объектов или массив. Другими словами, цикл For Each … Next выполняется один раз для каждого элемента в группе.
      Цикл For Each … Next имеет следующий синтаксис:

      For each а in группа
       операторы
      Next [ а],

      где а – это переменная, используемая для итерации по всем элементам в определенной группе;
       группа –это объект коллекции или массив. Если группа –это объект коллекции, то а должна быть переменной типа variant, object или заданным объектным типом, таким как range, worksheet, document, paragraph и т. д.
      Если группа –это массив, то а должна быть переменной типа variant;
       операторы –один, несколько или ни одного оператора VBA, составляющих тело цикла.
 
       Примечание.Примеры на использование циклов будут рассмотрены в части II.

Глава 2
Объект UserForm