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

Динамический массив не имеет предопределенного количества элементов. Он объяв­ ляется с незаполненными значениями в скобках.

Dim M yA rra y() As In te g e r

Тем не менее, прежде чем динамический массив можно будет использовать в програм­ ме, необходимо обратиться к оператору ReDim, указывающему VBA, сколько элементов находится в массиве. Для этого часто применяется переменная, значение которой неизвест­ но до тех пор, пока процедура не будет запущена на выполнение. Например, если перемен­ ной х присвоено число, размер массива определяется с помощью следующего оператора:

ReDim M yArray (1 to х)

Оператор ReDim можно использовать повторно, изменяя размер массива по мере не­ обходимости. При изменении количества размерностей массива имеющиеся значения утрачиваются. Если нужно сохранить эти значения, воспользуйтесь оператором ReDim P re s e rv e .

ReDim P reserve M yArray (1 to y)

Подробнее массивы будут рассмотрены в разделе “Циклическая обработка инструкций”.

Объектные переменные

Объектам переменная — это переменная, представляющая целый объект, например диапазон или рабочий лист. Объектные переменные имеют особое значение по следую­ щим причинам:

•они значительно упрощают программу;

•они ускоряют выполнение программы.

Объектные переменные, как и обычные переменные, объявляются с помощью опера­ тора Dim или P u b lic . Например, в следующем операторе переменная In p u t A re a объяв­ ляется как объект Range:

Dim In p u tA re a As Range

Для присваивания объекта переменной воспользуйтесь ключевым словом Set:

Set In p u tA re a = Range( "C 16: E16")

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

Эта процедура вводит значение в ячейку А1 листа Лист1 активной рабочей книги, а затем применяет некоторое форматирование, изменяя шрифт и размер. В примере вве­ дено много кода для решения такой простой задачи. Чтобы упростить ее, сведите проце­ дуру к использованию объектной переменной.

Sub O bjV arO

Dim M yC ell As Range

End Sub

После объявления переменной M y C e ll как объекта Range оператор S e t присваива­ ет ей сам объект. В результате в следующих операторах используется упрощенная ссыл­ каM y C e ll вместо длинной W o rk s h e e ts ( пЛ и с т 1 " ) . Range ( " A l " ).

Совет

После присвоения объекта переменной VBA получает доступ к нему намного

Обыстрее, чем с помощью непосредственной ссылки на объект. Поэтому, ес­ ли скорость имеет значение, используйте объектные переменные. Удобно рассматривать этот феномен в категориях узлов. Каждый раз, когда VBA встречает новый узел, например sh ee ts (1) .Range (1A l " ) , ему требуется

определенное время на расшифровку ссылки. Чем меньше узлов указано в ссылке, тем быстрее обрабатывается последняя. Другой способ увеличить скорость выполнения программы — воспользоваться конструкцией w ith - End w ith , которая уменьшает количество обрабатываемых узлов. Подроб­ нее эта конструкция будет рассмотрена ниже.

Настоящая ценность объектных переменных станет вам понятной после рассмотре­ ния циклов.

Пользовательские типы данных

VBA позволяет создавать специальные, или пользовательские, типы данных (эта кон­ цепция напоминает записи Паскаля или структуры С). Определенный пользователем тип данных может облегчить управление некоторыми типами данных. Например, если при­ ложение обрабатывает сведения о клиенте, то можно создать пользовательский тип дан­ ных с названием C u sto m erln f о.

Type C usto m e rln fo

Company As S trin g

Contact As S trin g

RegionCode As Long

Sales As Double

End Type

Примечание

Пользовательские типы данных определяются в верхней части модуля перед началом процедур.

Если пользовательский тип данных уже создан, для объявления переменной этого ти­ па примените оператор Dim. Обычно пользовательский тип данных определяется для массивов.

Dim Customers (1 То 100) As C u sto m e rln fo

232 Часть III. Visual Basic for Applications

Bee 100 элементов этого массива состоят из четырех компонентов (как указано в пользовательском типе данных— C u sto m erln f о). Вы можете сослаться на конкрет­ ный компонент элемента следующим образом.

Вам также предоставлена возможность управлять элементом массива как одним це­ лым. Например, чтобы скопировать информацию из C u s to m e rs (1) в C u s to m e rs (2 ), используется следующая инструкция:

C ustom ers(2) = C ustom ers(1)

Предыдущий пример эквивалентен приведенному ниже блоку инструкций.

C ustom ers( 2 ) . RegionCode = C ustom ers( 1 ) .RegionCode

C ustom ers( 2 ) . S ales = C ustom ers( 1 ) . Sales

Встроенные функции

Как и в большинстве других языков программирования, в VBA есть ряд встроенных функций, упрощающих вычисления и операции. Часто функции позволяют выполнить опе­ рации, которые по-другому осуществить сложно или вообще невозможно. Многие функции VBA подобны (или идентичны) функциям Excel. Например, функция VBA UCase, преоб­ разующая строку в верхний регистр, эквивалентна функции Excel ПРОПИСН.

Перекрестная ссылка

ОВ приложении Б находится полный список функций VBA, включающий краткое описание каждой из них. Все эти функции описаны в справочной системе VBA.

Совет

Чтобы получить список функций VBA при написании кода, введите VBA и точку. После этого VBE отобразит список всех вложенных в объект VBA объектов, включая функции (рис. 8.3). Функции обозначаются зеленым значком. Если этот способ вам недоступен, проверьте, включен ли параметр Auto List Members (Автоматическая вставка объектов). Для этого выберите команду Tools^Options (Сервис^Параметры) и щелкните на вкладке Editor (Редактор).

Функции VBA используются в выражениях почти так же, как и функции Excel в фор­ мулах рабочего листа. Например, можно создавать вложенные функции VBA. Ниже при­ ведена простая процедура, которая вычисляет квадратный корень переменной с помо­ щью функции S q r VBA, сохраняет результат в другой переменной и затем отображает результат.

Sub ShowRoot()

Dim MyValue As Double

Dim SquareRoot As Double

MyValue = 25

SquareRoot = Sqr(M yValue)

MsgBox SquareRoot

End Sub