Операторы vba excel. Методические указания и задания. Синтаксис и семантика языка программирования VBA

Программа на VBA – это последовательность операторов.

При составлении программ следует придерживаться ряда соглашений. Так, на одной строке можно разместить несколько операторов. Между операторами в одной строке ставится двоеточие.

Любую строку можно разбить на две, расположив в конце первой знаки символов «Пробел» + «Знак подчеркивания» (_), в этом случае вторая строка будет считаться продолжением первой.

Для того, чтобы сделать программу легко читаемой используют комментарии. В языке VBA существуют два способа ввода комментариев: применение апострофа (‘), который можно поставить в любом месте строки, и зарезервированное слово Rem вместо апострофа.

1. Оператор Dim предназначен для объявления типов переменных.

· Dim A As Integer – переменная A объявляется как целое, т.е. в ней будут храниться только целые величины .

· Dim D As Date – объявляется переменная D для хранения дат.

· Dim Фамилия, Наименование As String – объявлютсяпеременные. Фамилия и Наименование, предназначеные для хранения текста.

· Dim B(12) As Integer – объявляется одномерный массив (вектор), состоящий из 12 целых чисел, причем по умолчанию первый элемент массива будет B(0), а последний B(12).

· Dim B(3,3) As Single – объявляется двумерный массив 3х3 (матрица), состоящий из действительных чисел.

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

Если размер массива M заранее не известен и определяется в ходе программы, то при описании массива число элементов не указывается, и массив определяется так:

Dim M() As Integer

После определения числа элементов массива, например, N, необходимо записать оператор

2. Оператор присваивания предназначен для присваивания переменной какого-либо значения.

Синтаксис:

Переменная (или свойство объекта) = выражение.

· а=5 – переменной А присвоить значение 5 ;

· b=«Менеджер» – переменной b присвоить значение «Менеджер» ;

· Адрес=Sheets("Организации").Cells(2,2) – переменной Адрес присвоить содержимое ячейки B2, которая находится на листе Организации в текущей рабочей книге;

· Фамилия=UserForm1.TextBox1.Text – переменнойФамилия присвоить содержимое поля TextBox1 пользовательской формы UserForm1.

3. Оператор With/End with избавляет программиста от большого количества повторений имени одного и того же объекта.

Синтаксис:

With объект

оператор1

оператор2

операторN

Например, вместо последовательности операторов

UserForm1.TextBox1.Text = Date

UserForm1.TextBox2.Text = “ “

UserForm1.ComboBox1.Text = “ “

можно записать так

TextBox1.Text = Date

. TextBox2.Text = “ “

. ComboBox1.Text = “ “

REM На листе Лист1 в столбце А, начиная со второй строки, записаны ‘тарифы сотрудников. Заполним поле со списком ComboBox1 в ‘пользовательской форме UserForm1

‘Первая строка программы – на листе Лист1 в столбце А ‘подсчитывается количество заполненных ячеек, результат ‘присваивается переменной N

N=Application.CountA(Sheets(“Лист1”).Range(“A:A”)).

D=”A2:A”&Cint(N)

Sheets(“Лист1”).Range(D).Name=”Тарифы”

TextBox1.Text = Date

. TextBox2.Text = “ “

. ComboBox1.Text = “ “

. ComboBox1.Rowsource = “Тарифы “

4. Условный оператор If/Then/Else – позволяет проверить некоторое условие и в зависимости от результатов проверки выполнить то или иное действие

Синтаксис:

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

Если условие истинно, то выполняются операторы1, в противном случае выполняются операторы2.

Допускается также использование сложного условного оператора, который записывается в виде блока:

If условие1 Then

операторы1

ElseIf условие2 Then

Заметки

Синтаксис VBA позволяет «цепочки» операторов сравнения, но в целом эти конструкции следует избегать. Сравнение всегда выполняется слева направо только на 2 операндах за раз, и каждое сравнение приводит к Boolean . Например, выражение...

A = 2: b = 1: c = 0 expr = a > b > c

Может быть прочитан в некоторых контекстах как проверка того, является ли b между a и c . В VBA это оценивается следующим образом:

A = 2: b = 1: c = 0 expr = a > b > c expr = (2 > 1) > 0 expr = True > 0 expr = -1 > 0 "CInt(True) = -1 expr = False

Любой оператор сравнения, кроме Is использоваться с Object в качестве операнда будет выполняться на возвращаемом значении Object «s члена по умолчанию . Если объект не имеет члена по умолчанию, сравнение приведет к ошибке времени выполнения 438 - «Объект не поддерживает его свойство или метод».

Если Object не инициализирован, сравнение приведет к ошибке времени выполнения 91 - «Объектная переменная или С заблокированной переменной блока».

Если литерал Nothing используется с любым оператором сравнения, отличным от Is , это приведет к ошибке компиляции - «Недопустимое использование объекта».

Если Object по умолчанию Object является другой Object , VBA будет постоянно вызывать элемент по умолчанию каждого последующего возвращаемого значения до тех пор, пока не будет возвращен примитивный тип или не будет поднята ошибка. Например, предположим, что у SomeClass есть член по умолчанию Value , который является экземпляром ChildClass с членом ChildValue по ChildValue . Сравнение...

Set x = New SomeClass Debug.Print x > 42

Будет оцениваться как:

Set x = New SomeClass Debug.Print x.Value.ChildValue > 42

Если либо операнд является числовым, а другой операндом является String или Variant подтипа String , будет выполнено числовое сравнение. В этом случае, если String не может быть отнесено к числу, результатом сравнения будет ошибка времени выполнения 13 - «Несоответствие типа».

Если оба операнда представляют собой String или Variant подтипа String , сравнение строк будет выполняться на основе параметра сравнения параметров модуля кода. Эти сравнения выполняются по характеру по характеру. Обратите внимание, что символьное представление String содержащей число, не совпадает с сопоставлением числовых значений:

Public Sub Example() Dim left As Variant Dim right As Variant left = "42" right = "5" Debug.Print left > right "Prints False Debug.Print Val(left) > Val(right) "Prints True End Sub

По этой причине убедитесь, что переменные String или Variant передаются в числа перед выполнением численных сравнений неравенства.

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

Если другой операнд представляет собой String или Variant подтипа String который может быть перенесен в Date с использованием текущего языкового стандарта, String будет передана в Date . Если он не может быть применен к Date в текущей локали, результатом сравнения будет ошибка времени выполнения 13 - «Несоответствие типа».

Следует соблюдать осторожность при сравнении значений Double или Single и Booleans . В отличие от других числовых типов ненулевые значения нельзя считать True из-за поведения VBA в продвижении типа данных сравнения с использованием числа с плавающей точкой в Double:

Public Sub Example() Dim Test As Double Test = 42 Debug.Print CBool(Test) "Prints True. "True is promoted to Double - Test is not cast to Boolean Debug.Print Test = True "Prints False "With explicit casts: Debug.Print CBool(Test) = True "Prints True Debug.Print CDbl(-1) = CDbl(True) "Prints True End Sub

Краткие теоретические сведения

1. Синтаксис и семантика языка программирования VBA

Синтаксис языка программирования - набор правил, описывающий комбинации символов алфавита, считающиеся правильно структурированной программой (документом) или её фрагментом.

Основные синтаксические принципы этого языка следующие:

• VBA нечувствителен к регистру;
• чтобы закомментировать код до конца строки, используется одинарная кавычка (") или команда REM;
• символьные значения должны заключаться в двойные кавычки (");
• максимальная длина любого имени в VBA (переменные, константы, процедуры) - 255 символов;
• начало нового оператора - перевод на новую строку (точка с запятой, как в C, Java, JavaScript, для этого не используется);
• ограничений на максимальную длину строки нет (хотя в редакторе в строке помещается только 308 символов). Несколько операторов в одной строке разделяются двоеточиями:
  MsgBox "Проверка 1" : MsgBox "Проверка 2"
• для удобства чтения можно объединить несколько физических строк в одну логическую при помощи пробела и знака подчеркивания после него:
  MsgBox "Сообщение пользователю" _
  & vUserName

Семантика языка - это смысловое значение слов. В программировании - начальное смысловое значение операторов, основных конструкций языка и т. п.

Оператор - это наименьшая способная выполняться единица кода VBA. Оператор может объявлять или определять переменную, устанавливать параметр компилятора VBA или выполнять какое-либо действие в программе.

Арифметических операторов в VBA всего 7.

Четыре стандартных: сложение (+), вычитание (−), умножение (*), деление (/), и еще три:

• возведение в степень (^). Например, 2^3 = 8;
• целочисленное деление (\). Делит первое число на второе, отбрасывая (не округляя) дробную часть. Например, 5\2 = 2;
• деление по модулю (Mod). Делит первое число на второе, возвращая только остаток от деления. Например, 5 Mod 2 = 1.

Оператор присваивания в VBA - это знак равенства. Можно записывать так:

Let nVar = 10
а можно еще проще:
nVar = 10

Здесь не путайте знак равенства с оператором равенства. Последнее выражение означает "присвоить переменной nVar значение 10", а если строка выглядит так: If (nVar = 10) , то это значит "если значение переменной nVar равно 10".

Операторов сравнения в VBA всего 8:

• равенство (=). Например, If (nVar = 10);
• больше, чем (>) и меньше, чем (10);
• больше или равно (>=) и меньше или равно (= 10);
• не равно (). Например, If (nVar10);
• сравнение объектов (Is). Определяет, ссылаются объектные переменные на один и тот же объект или на разные. Например, If (obj1 is obj2);
• подобие (Like). Сравнивает строковый объект с шаблоном и определяет, подходит ли шаблон.

Операторы сравнения всегда возвращают True (если утверждение истинно) или False (если утверждение ложно).

Очень часто при проверке нескольких условий используются логические операторы :

• And - логическое И. Должны быть истинными оба условия;
• Or - логическое ИЛИ. Должно быть истинным хотя бы одно из условий;
• Not - логическое отрицание. Возвращает True, если условие ложно;
• Xor - логическое исключение. В выражении E1 Xor E2 возвращает True, если только E1 = True или только E2 = True, иначе - False;
• Eqv - эквивалентность двух выражений, возвращает True, если они имеют одинаковое значение;
• Imp - импликация, E1 Imp E2 возвращает False, если E1 = True и E2 = False, иначе - True.

Помнить нужно про And, Or, Not , остальные логические операторы используются редко.

Переменные - это контейнеры для хранения изменяемых данных. Без них не обходится практически ни одна программа. Для простоты переменную можно сравнить с номерком в гардеробе - вы сдаете в гардероб какие-то данные, в ответ вам выдается номерок. Когда вам опять потребовались эти данные, вы "предъявляете номерок" и получаете их.

Каждая переменная имеет имя. Обращение к переменной происходит по имени. Правила выбора имен в VBA едины для многих элементов (переменные, константы, функции, процедуры и т. п.):

• имя должно начинаться с буквы;
• не должно содержать пробелов и символов пунктуации (исключение - символ подчеркивания);
• максимальная длина - 255 символов;
• должно быть уникальным в текущей области видимости
• зарезервированные слова (те, которые подсвечиваются синим цветом в окне редактора кода) использовать нельзя.

При создании программ VBA рекомендуется определиться с правилами, по которым будут присваиваться имена объектам - соглашение об именовании. Чаще всего используется так называемое венгерское соглашение (в честь одного из программистов Microsoft, Charles Simonyi, венгра по национальности):

• имя переменной должно начинаться с префикса, записанного строчными буквами. Префикс указывает, что именно будет храниться в этой переменной:
  str (или s) - String, символьное значение;
  fn (или f) - функция;
  sub - процедура;
  c (или все буквы имени заглавные) - константа (контейнер для хранения данных, которые, в отличие от переменных, не изменяются в ходе выполнения VBA-программы);
  b - Boolean, логическое значение (True или False);
  d - дата;
  obj (или o) - ссылка на объект;
  n - числовое значение;
• имена функций, методов и каждое слово в составном слове должно начинаться с заглавной буквы:
  MsgBox objMyDocument.Name
  Sub CheckDateSub()

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

2. Основные типы данных VBA

В VBA предусмотрены следующие типы данных:

• числовые:
  Byte - целое число от 0 до 255, для хранения нужен 1 байт памяти ;
  Integer - целое число от −32 768 до 32 767, 2 байта ;
  Long - большое целое число от −2 147 483 648 до 2 147 483 647, 4 байта ;
  Currency (денежный) - большое десятичное число с 19 позициями, включая 4 позиции после запятой
  (от –922337203685477,5808 до 922337203685477,5807), 4 байта ,
  используется для хранения чисел, когда точность крайне важна, что бывает при вычислениях с денежными единицами;
  Decimal - еще большее десятичное число с 29 позициями (после запятой можно использовать от 0 до 28 позиций), 8 байт ;
  Single и Double - значения с плавающей запятой (4 и 8 байт )
  (от -3.402823·10 38 до -1.401298·10 -45 для отрицательных значений и
  от 1.401298·10 -45 до 3.402823·10 38 для положительных значений для Single, и
  от -1.79769313486232·10 308 до -4.94065645841247·10 -324 для отрицательных значений и
  от 4.94065645841247·10 -324 до 1.79769313486232·10 308 для положительных значений для Double);
• строковые (String переменной длины (примерно до 2 млрд символов) и фиксированной длины (примерно до 65 400 символов));
• дата и время (Date - от 01.01.100 до 31.12.9999), 8 байт ;
• логический (Boolean - может хранить только значения True и False), 2 байта ;
• объектный (Object - хранит ссылку на любой объект в памяти);
• Variant - специальный тип данных, который может хранить любые типы данных, 16 байт +1

• математические, выполняются над числами, их результатом являются числа;
• операции отношения, могут применяться не только к числам, их результатом является значения логического типа;
• логические, используются в логических выражениях и их результатом являются логические значения.

3. Приоритеты операций

4. Математические функции