Объявление типов данных для аргументов функции

End Function

В строке 1 содержится объявление функции LenTrim,которое начинается с обязательного ключевого слова Function. После имени функции открываются круглые скобки, что указывает VBA на начало списка аргументов. Далее следует имя аргумента (tStr). Имя аргумента сообщает VBA, что функции-процедуре при ее вызове должен передаваться один аргумент.

Строка 2 функции LenTrim – это строка, которая выполняет всю работу функции и также содержит аргумент функции для LenTrim. При вычислении выражения Len(Trim(tStr)) VBA принимает строку, полученную посредством аргумента tStr, и передает ее VBA-функции Trim для удаления начальных или конечных пробелов. Результат функции Trim используется как аргумент функции Len. Затем VBA присваивает результат функции Len имени функции LenTrim. LenTrim возвращает длину строки аргумента, исключая начальные или конечные пробелы.

Наконец, в строке 3 функция заканчивается ключевыми словами Еш Function. После выполнения этой строки VBA возвращается к оператору процедуры, вызвавшему функцию LenTrim, и вставляет результат функции LenTrim в этот оператор в том месте, где появляется имя функции.

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

MsgBox LenTrim(" Excel 2000 ")

В этом операторе строка аргумента имеет четыре начальных и четыре ко нечных пробела, и длина строки (как указывает VBA-функция Len) равна 18 символам. Функция LenTrim сообщает длину строки без начальных и конечных пробелов; вышеуказанный оператор отображает число 10.

Аргументы с определенными типами используются по тем же причинам, по каким используются типизированные переменные или результаты функции. Определение типов аргументов для функции-процедуры помогает пользователю при вызове функции вводить аргументы правильного типа в правильном порядке. Синтаксис элемента Arglist:

[Optional] [ByVal | ByRef] [ParamArray] имяПеременной_

[As тип] [= поУмолчанию]

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

Function Name (tstr As String, Optional nChar As Long) As String

ByVal – указывает, что этот аргумент передается по значению;

ByRef – указывает, что этот аргумент передается по ссылке. Описание ByRef используется в VBA по умолчанию;

ParamArray – ключевое слово ParamArray позволяет задавать произвольное количество аргументов. Оно не может быть использовано со словами Byval, ByRef или Optional.

= поУмолчанию – значение аргумента по умолчанию.

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

Пример 2. Определение типа данных аргумента функции LenTrim

Function LenTrim(tStr As String) As Long

'возвращает длину tStr без ведущих и хвостовых пробелов

LenTrim = Len (Trim(tStr))

Дата добавления: 2015-05-10