На примере пользовательской функции изучить типы переменных, операторы присваивания, условного перехода и др.
пример Функции пользователя ( Y = sin(πx)e-2x )
1. Открыть Excel, свою или новую
2. Выполнить: вставка - модуль
3. В окне модуля набрать программу:
Function Y(x)
Y = Sin(Application.Pi()*x)*Exp(-2*x)
4. Проверьте работу этой Функции пользователя в книге Excel (для одного значения, ряда, построить диаграмму)
5. Можно задать параметры Функции:
¨ Находясь на листе модуля нажмите F2
¨ В диалоговом окне посмотр объекта в поле классы выберите свою рабочую книгу компонент, затем в поле компонент выберите свою функцию Y
¨ В контекстном меню выберите свойства
¨ В В диалоговом окне параметры компонента установите свойства
Создать функцию пользователя с оператором условного перехода If-Then и If-Then-Else
Синтаксис(1 вариант):
if УСЛОВИЕ then ОПЕРАТОР_1 else ОПЕРАТОР_2
для функции:
Для проверки постройте диаграмму (тип: точечная) функции пользователя g(x)
диапазон x от –1,5 до +2 с шагом 0,1 или подробнее
Создать функцию пользователя VBA, вычисляющую комиссионные, начисляемые по следующему правилу:
- Если продукции продано не меньше, чем на 1000000 руб., то комиссионные составляют 2% от стоимости реализованной продукции
- Если продукции продано меньше, чем на 1000000руб., то комиссионные составляют 1% от стоимости реализованной продукции
- Если стаж работы в фирме не меньше 5 лет, то выплачивается доплата в размере 0,5% от стоимости реализованной продукции
(подсказка: надо ввести переменные стаж, продажа, для фунции премия)
Синтаксис (2 вариант):
If УСЛОВИЕ_1 Then
БЛОК_ОПЕРАТОРОВ_1
Elself УСЛОВИЕ_2 Then
БЛОК_ОПЕРАТОРОВ_2
Elself УСЛОВИЕ_3 Then
БЛОК_ОПЕРАТОРОВ_3
Else
БЛОК_ОПЕРАТОРОВ
End If
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.