Функция с двумя аргументами

Компакт-диск

Все описанные выше процедуры вычисления комиссионных находятся на прилагаемом к книге компакт-диске, в файле c o m is s io n f u n c t i o n s . x ls m .

Функция с аргументом в виде массива

В качестве аргументов функции могут принимать один или несколько массивов, об­ рабатывать этот массив (массивы) и возвращать единственное значение.

Функция, представленная ниже, принимает как аргумент массив и возвращает сумму его элементов.

End F u n c tio n

Функция Excel ЕЧИСЛО (IsNumber) проверяет, является ли каждый элемент числом, прежде чем добавить его к общему целому. Добавление этого простого оператора про­ верки данных устраняет ошибки несоответствия типов при попытке выполнить арифме­ тическую операцию над строкой.

Следующая процедура демонстрирует, как вызвать эту функцию в процедуре. Проце­ дураMakeList создает 100-элементный массив и присваивает каждому элементу мас­ сива случайное число. Функция MsgBox отображает сумму значений массива в резуль­ татевызова функции SumArray.

Так как функция SumArray не объявляет тип данных своего аргумента (и аргумент имеет тип Variant), она работает и в формулах рабочего листа. Например, следующая формула возвращает сумму значений в диапазоне А1:С10.

=SumArray (А1 :С 10)

Возможно, вы заметили, что при использовании в формуле функция SumArray по­ добна функции Excel СУММ. Единственное отличие заключается в том, что функция Su­ mArray принимает только один аргумент. Не стоит забывать, что этот пример приведен только в целях обучения. Функция SumArray в формуле не имеет абсолютно никаких преимуществ перед функцией Excel СУММ.

Компакт-диск

Ц Э Д Этот пример под названием array argument.xlsm находится на прилагаемом к книге компакт-диске.

Функция с необязательными аргументами

Многие встроенные функции Excel имеют необязательные аргументы. Пример — функция ЛЕВСИМВ, возвращающая символы с левого края строки. Она имеет следующий синтаксис:

Л ЕВСИ М В( текст, к о л _ с и м в о л о в )

Первый аргумент — обязательный, в отличие от второго. Если не указан второй ар­ гумент, Excel предполагает значение 1. Следовательно, две формулы, приведенные ниже, возвращают одинаковые результаты.

=ЛЕВСИМ В(A l ,1 )

=ЛЕВСИМ В(А1)

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

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

F u n c t io n U s e r ( O p t io n a l U p p e r c a s e A s V a r ia n t )

E n d F u n c t io n

Если аргумент равен False или опущен, то имя пользователя возвращается без ка­ ких-либо изменений. Если же аргумент функции True, то имя пользователя возвращает­ ся в символах верхнего регистра (с помощью VBA-функции Ucase). Обратите внимание на первый оператор функции — он содержит VBA-функцию IsMissing, которая опре­ деляет наличие аргумента. Если аргумент отсутствует, оператор присваивает переменной Uppercase значение False (задано по умолчанию).

Приведенные ниже формулы справедливы, а первые две возвращают одинаковые ре­ зультаты.

=U s e r ()

=U s e r ( F a ls e )

=U s e r( T ru e )

Примечание

Если нужно определить, подставляется ли необязательный аргумент в функ­ цию, объявите его с типом данных V a r ia n t . Затем можно использовать встроенную функцию I s M is s in g , как показано в этом примере.

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

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

Если необходимо сгенерировать вертикальный массив названий месяцев, выделите вертикальный диапазон, введите следующую формулу и нажмите <Ctrl+Shift+Enter>.

{ = ТРАН СП (M o n th N a m e s ( ) ) }

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

Следующий пример — вариация на тему функции MonthNames.

Обратите внимание, что для проверки незаданного аргумента используется функция VBA IsM issin g . В данной ситуации невозможно задать значение по умолчанию для незаданного аргумента в списке аргументов функции, так как значение по умолчанию определяется в функции. Функцию IsM issin g можно использовать, только если необя­ зательный аргумент имеет тип V a ria n t.

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

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

•Если аргумент меньше или равен 0, функция возвращает вертикальный массив

названий месяцев. Для преобразования массива используется функция Excel

Т Р А Н С П (Transpose).

•Если аргумент больше или равен 1, функция возвращает название месяца, соот­ ветствующее значению аргумента.

Примечание

В этой процедуре используется оператор Mod для определения значения месяца. Этот оператор возвращает остаток от деления первого операнда на второй. Учтите, что нумерация индексов в массиве A llN a m e s начинается с нуля, а их диапазон простирается от 0 до 11. Поэтому из аргумента функции вычитается единица. Таким образом, аргумент 13 возвращает 0 (январь), ар­ гумент 24 — 11 (декабрь).

Эту функцию можно использовать разными способами, как показано на рис. 10.6.

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

R e m o v e V o w e ls = R e m o v e V o w e ls & M id ( T x t , i , 1)

E n d I f

N e x t i

E n d F u n c t io n

При использовании в составе формулы рабочего листа эта функция удаляет гласные буквы из аргумента, находящегося в одной ячейке. Если в качестве аргумента использу­ ется числовое значение, возвращается строка. В этом случае предпочтительнее возвра­ щать сообщение об ошибке (#Н/Д).

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

R e m o v e V o w e ls = "# Н /Д "

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

К счастью, в VBA содержатся встроенные константы для обозначения ошибок, кото­ рые должна возвращать пользовательская функция. Эти значения — ошибки выполнения формул Excel, а не ошибки выполнения кода VBA. Ниже перечислены встроенные кон­ станты ошибок:

•xlErrDivO (для ошибки #ДЕЛ/0 !);

•xlErrNA (для ошибки #Н/Д);

•xlErrName (для ошибки #ИМЯ?);

•xlErrNull (для ошибки #ПУСТО !);

•xlErrNum (для ошибки #ЧИСЛО !);

•xlErrRef (для ошибки #ССЫЛ !);

•xlErrValue (для ошибки #ЗНАЧ !).

Чтобы получить ошибку #Н/Д в пользовательской функции, примените следующий оператор:

R e m o v e V o w e ls = C V E r r ( x lE r r N A )

Ниже приведена преобразованная функция RemoveVowels. Конструкция If-Then применяется для выполнения альтернативного действия в случае, когда аргумент не является текстовым. Эта функция вызывает функцию Excel ЕТЕКСТ (IsText), кото­ рая определяет, содержит ли аргумент текст. Если ячейка содержит текст, то функция возвращает нормальный результат. Если же ячейка содержит не текст (или пуста), то функция возвращает ошибку #Н/Д: Если ячейка не содержит текст (или пуста), возвра­ щается ошибка #Н/Д.