Пользовательские функции

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

При написании функций-процедур для использования в качестве UDF в рабочих листах Excel необходимо знать несколько фактов, помимо общих требований для определенных пользователем функций:

• Определенные пользователем функции, которые будут использоваться в Excel, не должны иметь имена, похожие на записи ссылок на ячейку (например, А2; С1В5);

• Любые строковые данные, возвращаемые из VBA в Excel, не должны иметь более 255 символов в длину. Если UDF возвращает строку, имеющую больше 255 символов в длину, в ячейку рабочего листа, Excel укорачивает строку до максимальной длины 255 символов перед вставкой в ячейку;

• При написании UDF, возвращающей значение даты для Excel убедитесь, что задаете тип результата функции как Date. Excel применяет формат Date для результата функции в ячейке рабочего листа только, если результат имеет VBA-тип Date.

Задание

Создать новую книгу Функции. Набрать и отладить функции Vozr и ИНИЦИАЛЫ/

Функция, вычисляющая возраст по дате рождения.

Функция получения фамилии и инициалов

Ветвления

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

Управляющие конструкции ветвления позволяют проверить некоторое условие, а затем, в зависи­мости от результатов этой проверки, выполнить ту или иную группу операторов Для организации ветвлений в VBA используются различные формы оператора ветвления if и оператор выбора Select Case

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

If <условие> Then

<блокОператоров1>

[Else

<блокОператоров2>]

End If

В качестве условия можно использовать логическое выражение, возвращающее значение True (ИСТИНА) или False (ЛОЖЬ). Если условие истинно, выполняется первый блок операторов, заключенный между ключевыми сло­вами Then и Else, а в противном случае — второй блок, заключенный между ключевыми словами Else и End If.

Условия, которые записываются в условном операторе после слова If, бывают простые и сложные. Простые условия имеют следующую структуру:

Выражение

Операция отношения

Выражение

Операции отношения

=	равно
<>	неравно
>	Больше
<	Меньше
>=	Больше или равно
<=	Меньше или равно

Например: a+b>6, Sin(x)<=0, f*h<>k+d

Оператор if может иметь краткую и полную форму. В краткой форме, если условие возвращает значение False, оператор или блок операторов, заключенных между ключевыми словами Then и End if, составляю­щих тело краткого оператора ветвления, не будет выполняться.

Пример краткой формы оператора if:

If a<0 Then

a=-a

End If

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

Пример полной формы оператора if:

If x=0 Then

x=1

Else

z=y/x

End If

Для того чтобы текст вашей процедуры был понятным и удобным для восприятия, рекомендуется делать отступы для групп операторов так, как это указано при описании их синтаксиса. В VBA предусмотрено удобное средство изменения отступов — нажатие на клавишу <Таb> увеличивает отступ вправо, нажатие комбинации клавиш <Shift>+<Tab> уменьшает этот отступ.

Использование оператора if делает функции, позволяющие избежать некоторых ошибок. Например, использование функции ИНИЦИАЛЫ предполагает, что исходная строка обязательно содержит фамилию, имя и отчество. А если отчество отсутствует, то возникнет ошибка. Поэтому в коде программы надо проверить значение переменной n2_pr – положение второго пробела. Если эта переменная равна нулю, то отчество в строке отсутствует. Функция будет иметь вид:

Задание 1

Набрать и отладить код функции ИНИЦИАЛЫ.

Еще один пример необходимости использования оператора If.

Задание 2

По году определить день недели для 1 января данного года.

Существует стандартная функция для определения номера для недели. Но эта функция дана для американского стандарта, в котором первым днем недели является воскресенье. Для русого стандарта, если день недели не воскресенье, то из него достаточно вычесть единицу. Но тогда воскресенье будет нулевым днем. Здесь требуется использовать оператор If. Функция будет иметь вид:

Блочный оператор if

Иногда приходится делать выбор одного из целой группы альтернативных действий на основе про­верки нескольких различных условий. Для этого можно использовать цепочку операторов ветвления If...Then...ElseIf.

If <условие1> Then

<блокОператоров1>

Elself <условие2> Then

<блокОператоров2>

Elself <условие3> Then

<блокОператоров3>

. . .

Elself <условиеN> Then

<блокОператоровN>

Else

<блокОператоров_Еlsе>

End If

Пример использования блочного оператора if:

If n=1 Then

текст=”год”

ElseIf n<5 Then

текст =”года”

Else

текст =”лет”

End If

В данном примере для числа n, обозначающем срок обучения от 1 до 6, определяется текст комментария.

Задание 3

Написать функцию определяющую по заданному весу (в килограммах) и росту (в метрах) ИНДЕКС МАССЫ ТЕЛА (Индекс Кетле) по формуле: рост/(вес*вес) и вывести комментарии согласно таблице

ИМТ	Комментарии
<18,5	Излишняя худоба
>=18,5 и <=22,9	Нормальный вес
>=23 и <=27,4	Избыточный вес
>27,5	Ожирение

Данная функция будет иметь вид:

Набрать и отладить данную функцию.