Читать интересную книгу Excel. Трюки и эффекты - Алексей Гладкий

a = 5

b = 4

GoSub Calculate

' Другие действия

…

Calculate:

' Подпрограмма

c2 = a ^ 2 + b ^ 2

Return

Следует отметить, что при процедурном, а тем более объектно-ориентированном программировании необходимость использования подпрограмм полностью отпала. Роль подпрограмм выполняют функции и процедуры.

Процедуры и функции

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

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

Далее в этом разделе будут рассмотрены особенности создания и использования процедур и функций в программах на VBA.

Объявление процедур

Для объявления процедуры в VBA используется следующая конструкция:

[Private | Public] [Static] Sub Имя_процедуры [(Список_аргументов)]

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

[Exit Sub]

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

End Sub

Ключевые слова Private и Public данной конструкции задают область видимости процедуры.

• Public – применяется по умолчанию, позволяет создать процедуру, которую можно вызывать из любого места проекта VBA. При использовании в модуле класса она дает возможность создавать общую процедуру (метод) этого класса.

• Private – позволяет создать процедуру, которую можно вызывать только в том модуле VBA, где данная процедура объявлена. При использовании в модуле класса дает возможность создавать личную процедуру (метод) этого класса.

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

Имя_процедуры – это любой корректный идентификатор VBA, который будет употребляться в программе в случае необходимости вызова данной процедуры.

Список_аргументов – содержит описания аргументов, которые принимаются процедурой. Описания аргументов разделяются запятой и имеют следующий формат:

[Optional] [ByVal | ByRef] [ParamArray] Имя_аргумента[()] [As Имя_типа] _

[= Значение_по_умолчанию]

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

Таблица 1.7. Элементы описания аргумента процедуры

Для выхода из процедуры предусмотрена инструкция Exit Sub. При ее достижении выполнение программы немедленно переходит к инструкции, следующей за вызвавшей процедуру инструкцией.

Ниже приведен пример процедуры, имеющей два аргумента, при этом второй аргумент необязательный и передается по ссылке:

Sub ProcedureExample(ByVal intNumber As Integer, Optional fFlag = True)

' Инструкции процедуры

…

End Sub

Проведенную процедуру можно модифицировать так, чтобы вместо необязательного второго параметра процедура принимала произвольное количество аргументов, из которых формируется массив:

Sub ProcedureExample(ByVal intNumber As Integer, ParamArray varArray())

' Инструкции процедуры

…

End Sub

Внимание!

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

Вызов процедур

Для вызова процедуры в программе на VBA предусмотрена инструкция Call, формат которой приведен ниже:

[Call] Имя_процедуры [Список_аргументов]

Здесь элемент Имя_процедуры представляет собой идентификатор вызываемой процедуры. Если процедура принимает аргументы, то они должны быть указаны на месте элемента Список_аргументов через запятую. В качестве аргументов в вызывающей процедуре или функции используются константные значения или идентификаторы переменных соответствующих типов.

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

Примечание

Интересной особенностью инструкции Call является то, что само ключевое слово Call можно опускать. Если ключевое слово Call используется, то список аргументов процедуры необходимо заключать в скобки. В противном случае скобок быть не должно.

Пусть имеется процедура:

Sub ProcedureExample(ByVal intNumber As Integer, ParamArray varArray())

' Инструкции процедуры

…

End Sub

Пусть также имеется процедура TestExample, в которой необходимо вызывать процедуру ProcedureExample. Процедуру TestExample можно реализовать следующим образом:

Sub TestExample()

' Инструкции процедуры

…

' Вызов ProcedureExample

Call ProcedureExample(123, «Значение1», «Значение2», «Значение3»)

' Инструкции процедуры

…

End Sub

Если в TestExample не использовать ключевое слово Call, то вызов процедуры будет выглядеть так:

' Вызов ProcedureExample

ProcedureExample 123, «Значение1», «Значение2», «Значение3»

Далее, перед тем как рассматривать особенности передачи значений в процедуры, целесообразно рассмотреть создание и вызов функций. Это связано с тем, что передача параметров в процедуры и функции происходит одинаково.

Объявление функций. Возврат значения

Для объявления функций в VBA используется следующая конструкция:

[Private | Public] [Static] Function Имя_функции [(Список_аргументов)] _

[As Имя_типа]

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

[Имя_функции = Значение]

[Exit Functon]

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

[Имя_функции = Значение]

End Function

Приведенный формат объявления функции отличается от объявления процедуры использованием ключевого слова Function вместо Sub, возможностью указания типа возвращаемого функцией значения (после списка аргументов) и возможностью в теле функции присвоить значение переменной с идентификатором, соответствующим идентификатору этой функции (Имяфункции = Значение). При объявлении функций можно использовать все возможности, доступные при объявлении процедур.

Если тип возвращаемого функцией значения не указан, то подразумевается возвращение значения типа Variant.

Для возврата значения функцией необходимо в нужном ее месте присвоить соответствующее значение переменной с таким же идентификатором, как и идентификатор функции. Часто в функции может быть несколько точек, в которых возвращается значение. Если после получения результата нужно немедленно выходить из функции, то после присвоения Имяфункции = Значение используется инструкция Exit Function. Если на протяжении выполнения функции не было использовано присвоение Имяфункции = Значение, то возвращается значение по умолчанию для соответствующего типа данных (см. подраздел об инициализации переменных).

Ниже приведен пример функции, которая вычисляет квадратный корень из переданного ей аргумента (если аргумент меньше нуля, то возвращается значение -1, сигнализирующее об ошибке):

Function dhSQR(dblValue As Double) As Double

If dblValue < 0 Then

' Недопустимый аргумент функции

dhSQR = -1

Else

' Вычисление квадратного корня

dhSQR = Sqr(dblValue)

End If

End Function

Вызов функций

Для вызова функций допускается также использовать инструкцию Call, например:

Call dhSQR(16.324)

или

dhSQR 16.324

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

dblRes = dhSQR(25)

dblRes = 1 + dhSQR(16)

Точно таким же образом вызываются все встроенные функции VBA, например

IsArray, SQR и Array.

Особенности передачи параметров

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

Позиционная передача параметров

Этот способ передачи параметров наиболее распространен и применяется практически во всех языках программирования. Во всех предыдущих примерах использовался именно позиционный способ передачи параметров в функции и процедуры. Суть данного способа в том, что при вызове процедуры или функции аргументы записываются в том порядке, в котором они указаны при ее объявлении. Пусть, например, необходимо использовать такую процедуру: