Варианты к пункту 2 задания

1. Шрифт слова ИТОГО должен иметь размер 16 пт и быть красного цвета. Все результаты расчетов в таблице должны быть выделены синим цветом.

2. Шрифт заголовков столбцов таблицы должен быть синим полужирным. Все результаты расчетов в таблице должны быть выделены красным цветом.

3. Шрифт заголовков столбцов таблицы должен быть синим полужирным. Шрифт слова ИТОГО должен иметь размер 14 пт курсивом красного цвета.

4. Все результаты расчетов в таблице должны быть выделены красным цветом. Шрифт заголовков столбцов таблицы должен быть красным полужирным.

5. Шрифт заголовков столбцов таблицы должен быть зеленым полужирным. Все результаты расчетов в таблице должны быть выделены синим цветом.

6. Шрифт заголовков столбцов таблицы должен быть зеленым полужирным. Шрифт слова ИТОГО должен иметь размер 14 пт и быть курсивом сиреневого цвета.

7. Шрифт заголовков столбцов таблицы должен быть синим полужирным. Шрифт слова ИТОГО должен быть полужирным, размером 16 пт синего цвета.

8. Все результаты расчетов в таблице должны быть выделены красным цветом. Все результаты расчетов в таблице должны быть выделены красным полужирным.

Практическое задание № 3 «Создание пользовательских функций в приложении ms Excel»

Цель работы: научиться создавать пользовательские функции в среде разработки VBA приложения Excel.

Краткие методические сведения

В приложении Excel имеется большое количество встроенных функций, сгруппированных по различным категориям, таким как: математические, логические, дата и время, финансовые и т.д. Кроме того, пользователю дана возможность создавать собственные функции, которые способствуют автоматизации его работы и полностью отражают специфику решаемых им задач. Созданные пользователем функции будут отнесены к категории «Определенные пользователем», или «Пользовательские» функции.

Задание

Требуется разработать пользовательскую функцию в соответствии с вариантом задания. Номера вариантов совпадают с номерами студентов в списке группы.

Методические указания по выполнению работы

Перед выполнением задания рекомендуется ознакомиться с синтаксисом языка VBA и приведенным ниже примером создания пользовательской функции.

Пусть требуется разработать функцию, рассчитывающую стоимость покупки нескольких туристических путевок. Ее величина будет определяться исходной ценой одной путевки, количеством приобретаемых путевок и наличием скидки постоянного клиента у покупателя. Предположим, при приобретении 2-3 путевок предоставляется скидка 3%, при приобретении 4-5 путевок – скидка 5%, при большем количестве одновременно приобретаемых путевок величина скидки равна 10%. Кроме этого, постоянные клиенты имеют дополнительную скидку в 5%.

Сначала на листе рабочей книги приложения Excel создадим таблицу, приведенную на рис.1.

ФИО клиента	Общая стоимость покупки
Иванов И.И.

Рис. 1

Далее перейдем к созданию пользовательской функции, которую назовем ОбщаяСтоимость. Аргументы этой функции назовем: ЦенаПутевки, Количество, СкидкаПостКлиента. Для последнего аргумента предусмотрим два допустимых значения: 1, если покупатель имеет право на скидку постоянного клиента, и 0 в противном случае. Эти значения и будем вводить при заполнении таблицы.

Для того чтобы открыть окно редактора Visual Basic, на вкладке Разработчик нажмем на расположенную слева кнопку Visual Basic. С целью создания листа модуля выполним команду Вставка>Модуль. Далее на листе модуля требуется активизировать окно редактора кода. Для этого выберем значок модуля в окне Проект.

Наберем на листе модуля следующий код (он интуитивно понятен и не требует разъяснений):

Function ОбщаяСтоимость(ЦенаПутевки, Количество,

СкидкаПостКлиента)

If Количество < 2 Then

Стоимость = ЦенаПутевки * Количество

Else

If Количество < 4 Then

Стоимость = ЦенаПутевки * Количество * 0.97

Else

If Количество < 6 Then

Стоимость = ЦенаПутевки * Количество * 0.95

Else

Стоимость = ЦенаПутевки * Количество * 0.9

End If

End If

End If

If СкидкаПостКлиента = 0 Then

ОбщаяСтоимость = Стоимость

Else

ОбщаяСтоимость = Стоимость * 0.95

End If

End Function

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