Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

ISS / Лабораторная работа 7

.doc
Скачиваний:
12
Добавлен:
21.03.2015
Размер:
78.34 Кб
Скачать

Лабораторная работа 7

Создание пользовательских функций в MS Office

Цель работы: научиться использовать встроенный в пакет MS Office язык программирования VBA для автоматизации операций

Задание лабораторной работы № 7:

1. Изучить краткие сведения об особенностях создания пользовательских функций на языке VBA.

2. Написать и провести тестирование программы по своему варианту.

Представляемые к защите материалы

1. Текст задачи.

2. Файл с программой на VBA.

3. Результаты тестирования программы.

Варианты заданий

Используя MS Excel создать на языке VBA модуль вычисления функции y = f(x), заданной в таблице. Проверить работу пользовательской функции на рабочем листе таблицы.

Вариант

f(x)

1

2

3

4

5

6

Теоретические сведения

Если в программе Microsoft Excel часто используются одни и те же сложные расчеты, необязательно повторно вводить длинные и сложные формулы. Вместо этого можно создать пользовательскую функцию для выполнения нужных расчетов. В дальнейшем использование этой функции позволит упростить процесс ввода и обновления вновь создаваемых формул. Пользовательские функции создаются в среде Microsoft Visual Basic.

Ниже описан порядок создания и применения пользовательской функции:

  • В меню Сервис выберите команду Макрос, а затем – команду Редактор Visual Basic.

  • В окне Microsoft Visual Basic в меню Insert выберите команду Module.

  • В окне Module введите программу, реализующую нужную функцию. Например:

Function test(x As Double) As Double

test = x ^ 2

End Function

  • В меню File выберите команду Close and Return to Microsoft Excel.

Созданная функция может использоваться в формулах на листе так же, как и любая другая функция. Например, если ввести в ячейку таблицы формулу = test(2), то Excel выведет в данной ячейке результат вычисления – число 4.

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

Application.Volatile True

Соседние файлы в папке ISS