2014-02-18
290
Пользовательские функции добавляются к стандартному списку мастера функций (WorkSheetFunction). Эти функции создаются в специальном модуле, сопровождающем объект WorkSheetFunction. Этот модуль добавляется к проекту с помощью команды Insert Þ Module (Вставить ÞМодуль), в окне проекта он отобразится на уровне вашего приложения. Все коды, написанные в этом модуле, появятся в категории «Функции определенные пользователем» мастера функций.
Итак, добавляем модуль в наш проект (Insert Þ Module) и в окне кода этого модуля пишем текст программы:
Function y(x)
y = Cos((x + 2) / 2) ^ 2 + Exp(-2 * x) / (x ^ 2 + 1) ^ 0.5
End Function
Затем переходим на рабочий лист «1 график», в ячейке с2 выполним обращение к новой функции, добавленной в мастер функций - y(x). Работа с этой функцией ничем не отличается от работы с любой другой функцией. На первом шаге надо выбрать y(x) в категории «Функции определенные пользователем», на втором шаге в качестве аргумента x указать ячейку A2. В результате в ячейке С2 будет записана формула =y(A2). Эту формулу протащить на весь диапазон А2:А17 как показано на рис. 3. Разумеется, результат должен совпасть с тем, что вы получили, вычисляя эту функцию обычными средствами рабочего листа.
Рис 3. Функция y(x), рассчитанная обычным образом и с помощью пользовательской функции.
