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

Задание № 10 (Excel).    Пользовательские функции.

Создадим всего 5 пользовательских функций. Для выполнения задания добавьте рабочий лист в  книгу Задания Excel. Образец оформления работы на рабочем листе, представлен на рис. 1.

 

Пользовательские функции создаются в стандартном модуле редактора VBA.. Для того чтобы попасть в редактор VBA выберите команду Сервис ]Макрос ] Редактор VisualBasicили нажмите ком­бинацию клавиш <Alt> + <F11>.

В результате вы попадете в интегрируемую среду разработки приложений IDE редактора Visual Basic. Она имеет стан­дартный вид для Windows-приложений: строка меню, панель инструментов (в данном случае Standard) и два окна Project — VBAProjectи Properties.

Пока нас интересует только окно Project — VBAProject. В нем отображается реестр модулей и форм, входящих в создаваемый проект. Значок активного модуля слева в окне Project — VBAProjectвыделяется серым цветом. Единственный модуль, который нас интересует – это стандартный модуль. Для того чтобы его добавить в проект, выберите команду Insert]Module.

А. Функция Pi() (Вычисление числа π)

1.  Перейдите в окно Project — VBAProject, нажав клавиши <Alt>+<F11>.

2.  Выполните команду Insert]Procedure… В появившемся диалоговом окне AddProcedure

     введите Name (Имя) процедуры Pi, отметьте переключатель Functionи нажмите кнопку ОК.

3.  Появится начальная и последняя строка функции Function:

     Public Function Pi()
     End Function
Между ними необходимо ввести текст (тело) самой процедуры. В данном случае тело процедуры будет состоять из одной строки. Следует исправить также первую строку процедуры. После дополнений и исправлений процедура должна иметь вид:
        Public Function Pi() As Single

             Pi = 4 * Atn(1)       ‘  Atn(1)  – это Arctg1, равный π/4

       End Function

Сделаем пояснения. После названия функции в круглых скобках задаются формальные параметры (аргументы) функции. Эта функция – без аргументов. После апострофа следует примечание. При создании пользовательской функции результат вычислений всегда присваивается названию функции.

4.  Для проверки работы функции Piвведите в А2 число 2, в В2 – формулу = А2*Pi(). Функцию Pi() можно набрать на клавиатуре или найти в диалоговом окне Мастер функций. В этом окне  в поле Категории представлены в списке не только категории стандартных функций, созданных Microsoft, но под категорией Определенные пользователем  ниже в поле будут находиться и функции, созданные пользователем. Если в пользовательской  функции будут аргументы, порядок их ввода будет такой же, как и для стандартных функций.

Б. Возраста человека

1.  Повторив операции п.п. 1, 2, 3 раздела А  (нозадайте имя функции Возраст), введитеследующий код (в VB и VBA переменные и названия функций можно задавать по-русски):