Задание 2.

1. Выделить несмежные диапазоны A1:D18, E1:E4 и F4 на Листе 1 и скопировать их на Лист 2.

2. Выделить ячейку E5 и приступить к записи макроса, вычисляющего значение цены в рублях, для чего:

1. Вызвать команду Сервис > макрос > начать запись;

2. Установить в диалоговом окне параметры:

   • Имя макроса:"цена"

   • Сочетание клавиш: "А"

   • Сохранить в: "эта книга".

3. Нажать клавишу "ОК" и перейти в режим записи относительных адресов, нажав клавишу "относительная ссылка" на панели "остановить запись".

4. Ввести в ячейку E5 формулу: "=ЕСЛИ($E$1="$";$E$2;$E$3)*D5"

5. По окончании записи, нажав символ "квадрат", остановить макрорекордер.

3. Проверить работу макроса, для чего, выделив следующую ячейку столбца (E6), выполнить команду Сервис > Макрос > Макросы и в появившемся диалоговом окне Макрос выбрать ранее введенное имя макроса ("цена") и нажать кнопку "Выполнить". Проконтролировать правильность расчетов, сравнив их результат с вычислениями на листе 1.

4. Повторно выполнив ту же команду для вызова диалогового окна Макрос, проверить комбинацию "горячих" клавиш вызова макроса цена нажатием кнопки Параметры и с помощью горячих клавиш вычислить оставшиеся значения в столбце E.

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

Задание 3. Создание функций пользователя

1. Выполнить пункт 1 задания 2 для формирования таблицы с исходными данными на Листе 3.

2. Создать функцию пользователя для вычисления по приведенной ранее формуле в зависимости от признака валюты и курсов доллара и евро. Для этого выполнить следующее.

1. Вызвать систему программирования VBA по команде Сервис > Макрос > Редактор Visual Basic.

2. Если в проекте нет модуля, в который предстоит записать функцию пользователя, то создать его, выполнив команду меню VBA Вставка > Модуль.

3. Выполнить команду меню VBA Вставка > Процедура.

4. В открывшемся диалоговом окне "Вставка процедуры" установить переключатели "Функция", а в поле "Имя" задать имя функции "Цена"

5. Щелчком по "ОК" завершить создание прототипа функции и проконтролировать его появление в соответствующем модуле среды VBA.

6. Ввести список параметров, их типы, указать тип возвращаемого значения и записать тело функции по образцу следующего фрагмента (знак "подчеркивание" нужен для переноса текста строки в VBA):

Function ЦЕНА(ЦЕНА_В_УЕ As Double, Признак_валюты As String, _

Курс_Дол As Double, Курс_Евро As Double) As Double)

If Признак_валюты = "$" Then

ЦЕНА = ЦЕНА_В_УЕ * Курс_Дол

Else

ЦЕНА = ЦЕНА_В_УЕ * Курс_Евро

End If

End Function

3. В режиме просмотра объектов в среде VBA (клавиша F2), установив в поле Project /Library имя VBProject, выбрать в соответствующем модуле (столбец "Classes") имя введенной функции и с помощью команды "Свойства" контекстного меню задать в окне "Параметры компонента" краткое описание назначения и аргументов функции.

4. Проверить работу функции для вычисления значений в столбце E. Для этого:

• установив курсор в нужной ячейке, после ввода признака формулы "=" выбрать созданную функцию "Цена" в списке функций Мастера функций, предварительно установив в списке категорию функции в значение "определенные пользователем";

• после нажатия ОК в появившемся окне "Аргументы функции" выбрать обычным для Excel образом нужные аргументы, не забывая в необходимых случаях указывать признак абсолютной адресации.

5. После выполнения вычисления в одной ячейке с помощью автозаполнения вычислить значения во всем столбце E.

6. Вычислить значения в столбце F и итоговые значения в строке 19. Сравнить результат с тем, который был получен ранее.

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