Лабораторная работа №16
Создание пользовательских функций с условными выражениями на языке Visual Basic в MS Excel.
Цель работы: ознакомление с алгоритмами, использующими условные выражения на примере создания пользовательских функций на языке Visual Basic в MS Excel. Ознакомиться с принципами визуального проектирования.
Порядок выполнения задания.
1. Для создания пользовательской функции в книге Excel необходимо выполнить следующее:
1.1.перейти в редактор Visual Basic (Сервис/ Макрос/Редактор Visual Basic);
1.2.В меню редактора выбрать команду Вставка/ Модуль.
1.3.В окне Свойства в поле Nаme ввести имя модуля.
1.4.Ввести в модуль инструкции на языке Visual Basic.
- Применять созданную функцию следует, также как другие встроенные функции Excel. Находятся все пользовательские функции в категории «определённые пользователем».
Задание №1
Фирма предлагает торговую скидку 10%, если заказано более 100 изделий одного сорта.
1. Лист книги Excel содержит бланк заказа следующего вида:
Код | Товар | Количество | Цена | Скидка | Сумма |
Клён | |||||
Клён |
- Функция Скидка (Количество, Цена) на языке Visual Basic:
Function Скидка (Количество, Цена)
If Количество >=100 Then
Скидка = Количество * Цена * 0,1
Else
Скидка = 0
End If
End Function
- Введём формулы в ячейки вычисляемых полей Скидка и Сумма:
A | B | C | D | E | F | |
Код | Товар | Количество | Цена | Скидка | Сумма | |
Клён | =Скидка(С2:D2) | =D2*C2-E2 | ||||
Клён | =Скидка(С3:D3) | =D3*C3-E3 | ||||
Задание №2
На языке VBA создать пользовательскую функцию, принимающую следующие значения:
-1 при х >0
1 при x<0
Построить график данной функции.