2313

количество элементов которых при описании не фиксируются, но могут быть определены непосредственно при выполнении программы. Синтаксис объявления динамического массива отличается от объявления статического тем, что после имени массива в нем стоят лишь пустые скобки. Однако перед тем как использовать массив, нужно выполнить оператор ReDim, который задаст размерность и диапазоны изменения индексов динамического массива.

ReDim имяМассива (размер1 [, размер2 . . . ])

Более того, вы можете неоднократно использовать оператор ReDim для изменения размерности одного и того же массива. Но данная возможность требует небольшого пояснения. Дело в том, что при изменении размеров массива ему заново выделяется память, и текущие значения его элементов теряются. Чтобы их не потерять при переопределении размерности, используется ключевое слово Preserve. Но учтите, что при использовании ключевого слова preserve вы можете поменять только последний аргумент, задающий размерность массива.

В приведенном ниже примере мы рассматриваем массив прошлого примера, только в этом случае мы объявили его как динамический и проинициализировали элемент authorList(7,2). А затем представили, будто количество полей увеличилось до 10, и добавили эти параметры к уже существующему массиву. Причем, заметьте, без потери информации, благодаря ключевому слову Preserve. Это проверяется посредством функции

MsgBox.

Листинг. Объявление динамических массивов

Sub examples()

Dim authorList() As String

ReDim authorList(1 To 100, 1 To 2) authorList(7, 2) = "Усаров"

ReDim Preserve authorList(1 To 100, 1 To 10)

53

MsgBox(authorList(7, 2))

End Sub

3.6. Перечисляемый тип

При всем обилии встроенных типов данных часто возникает желание ввести новый тип данных, содержащий некоторые определенные значения. Такой тип называется в VBA перечисляемым типом. Синтаксис довольно прост:

[Private | Public] Enum имяТипа имяЗначения [ = Константа] имяЗначения [ = Константа] ….

End Enum

Ключевые слова Private и Public объявляют область видимости для типа (кстати, перечисляемые типы могут описываться только на уровне модуля, т. е. нельзя описать перечисляемый тип внутри процедуры). Затем следует ключевое слово Enum и имяТипа. После этого идет перечисление значений типа (по одному на строчке). По умолчанию все значения типа пронумеровываются целыми числами, начиная с 0, но вы можете самостоятельно указать константное целое число для значений типа.

Поясним сказанное на типичном примере. Мы хотим ввести тип "неделя". Элементами данного типа будут только обозначения дней недели, и, соответственно, область значений будет изменяться от понедельника до воскресенья.

Листинг. Перечисляемый тип

Private Enum Week Monday

Tuesday Wednesday Thursday Friday

54

Saturday

Sunday

End Enum

Sub Weekend()

Dim day As Week day = Saturday

End Sub

3.7. Тип, определяемый пользователем

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

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

[Private | Public] Type имяТипа

имя Поля [ ([<размер>]) ] Аs типДанных [имяПоля [ ([<размер>])] As типДанных ] ….

End Type

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

Для тех, кого последнее предложение заставило задуматься - небольшое пояснение. Определение записи можно рассматривать как дерево. Корень - это имя типа, а вершины - имена полей, которые могут являться корнями подобного же дерева. Не допускается использование рекурсивных определений, т. е. нельзя объявить тип следующим образом:

55

Туре Заяц Волк Аs Заяц

End Type

3.8. Преобразование данных VBA

Зависимость преобразований, выполняемых VBA, от типа данных и оператора представлена в табл.3.7.

56

Продолжение табл. 3.7

Num & Str Всегда выполняет строковую конкатенацию, независимо от типов переменных; результатом является тип String. Это выражение никогда не вызывает ошибки несовпадения типов

Преобразования численных типов. VBA обычно пре-

образует все численные типы данных в выражении в тип наибольшей точности, а затем дает этот тип результату выражения. Например, если выражение содержит численные значения с типами Integer и Single, результат выражения является типом Single — тип наибольшей точности в этом выражении.

Если вы присваиваете результат численного выражения переменной с наименьшей точностью, чем фактический тип результата выражения, VBA округляет результат выражения до тех пор, пока его точность не совпадет с ожидаемым типом. Например, если вы присваиваете численное выражение, имеющее результатом число типа Double, переменной типа Integer, VBA округляет число двойной точности до типа Integer.

Преобразования строк и чисел. При преобразовании числа в строку VBA создает строку, содержащую все цифры этого числа и десятичный знак (если число имеет его). Число 3413.72, например, преобразуется в строку «3413,72». Если число очень большое или очень маленькое, VBA может создать строковое представление числа в экспоненциальной записи; например, число 0.0000000004927 преобразуется в строку

«4,927Е-11».

VBA может преобразовывать строку в число, если только эта строка содержит символьное представление числа в десятичном формате или экспоненциальном. Строки «988,б», «812», «-186,7», «1,ЗЕ10» представляют числа, и VBA может преобразовать их в числа. Строки «1.045», «$74.550» и «С добрым утром!» не могут быть преобразованы в числа.

Преобразования значений типа Boolean. Когда VBA

преобразует значения типа Boolean в числа, значение True преобразуется в 1, а значение False — в 0. Когда VBA преобра-

57

зует число в тип Boolean, нуль преобразуется в False, а любое другое значение преобразуется в True. Когда VBA преобразует значения типа Boolean в строки, VBA использует строку

«True» для True и «False» — для False.

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

Преобразования значений типа Date. Когда VBA пре-

образует тип данных Date в число, результатом является численное значение — число типа Double, которое содержит количество дней от 30 декабря 1899 (отрицательное число представляет дату, более раннюю, чем 12/30/1899). Десятичная часть числа (если имеется) выражает время дня как часть дня; 0 — это полночь, а 0.5 — это полдень. В VBA преобразование численных типов данных в типы Date является просто обратным преобразованию типа Date в число.

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

58

59

60

4. ОПЕРАТОРЫ

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

4.1. Операторы присваивания

Операторы присваивания служат для изменения значения переменных. В VBA существует четыре вида оператора присваивания:

Let (прямое присваивание), LSet (левое присваивание), RSet (правое присваивание), set (объектное присваивание).

Оператор Let

С оператором прямого присваивания мы уже встречались (=), правда, в несколько укороченном виде.

[Let] имяПеременной = <выражение>

Ключевое слово Let является наследием предшествующих версий языка Basic, его употребление ничего не дает.С помощью оператора = происходит обычное присвоение значения выражения, стоящего справа от знака =, переменной, имя которой стоит слева от знака =. Причем тип присваиваемого значения должен соответствовать типу переменной.

VBA допускает прямое присваивание не только простых, но и структурных значений (массивов и записей), при условии совпадения типов левой и правой частей оператора присваивания.

61

Оператор LSet

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

LSet имяСтроковойПеременной = СтроковоеВыражение LSet имяПеременной1 = имяПеременной2

Оператор RSet

Оператор RSet аналогичен оператору LSet, только в данном случае выравнивание происходит справа. Помимо этого, оператор RSet нельзя использовать для присваивания запи-

сей.RSet имяСтроковойПеременной = <СтроковоеВыраже-

ние>Результатом присваивания является строка той же длины что и значение имяСтроковойПеременной. Если при этом значение СтроковоеВыражение длиннее, то лишние символы из него удаляются слева, если короче - заполняются пробелами слева.

4.2. Условные операторы

Как и во многих языках программирования, в VBA имеются различные управляющие конструкции, позволяющие изменять порядок выполнения операторов программы. При отсутствии управляющих конструкций операторы программы выполняются последовательно, начиная с первого и кончая последним. В некоторых простых случаях этого бывает достаточно, но обычно все-таки требуется изменить порядок выполнения операторов при выполнении определенных условий - либо пропуская выполнение некоторых операторов, либо, наоборот, многократно повторяя их. Оказывается, для реализации любых алгоритмов достаточно иметь только два вида управляющих конструкций - ветвления и циклы. В данном разделе мы рассмотрим ветвления, в следующем - циклы.

Оператор If...Then...Else

62