Пусть необходимо рассчитать уровень загрязнения придорожной полосы токсичными выбросами свинца

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

2. Сохраните её на диске как «Расчёт уровня загрязнения» командой Файл | Сохранить.

3. Переименуйте текущий лист командой Формат | Лист | Переименовать (или двойным щелчком мыши на ярлычке рабочего листа).

4. Заполните ячейки электронной таблицы исходными данными как показано на рис. 1.

Рис. 1 Исходные данные

Ввод любой формулы нужно начинать со знака равенства «=» и указывать адреса ячеек, содержимое которых используется в вычислениях.

1. Для перевода угла из градусов в радианы:

· Активизируйте ячейку F2 таблицы.

· Щёлкните по кнопке Вставка функции слева от строки формул (или сочетание клавиш < Shift >+< F3 >).

· В диалоговом окне первого шага Мастера функций (рис. 5) выберите категорию Математические, в списке Имя функции функцию РАДИАНЫ().

Рис. 5 Мастер функций: первый шаг.

· В диалоговом окне Аргументы функции в поле Число введите 45 (рис. 6).

Рис. 6 Ввод аргументов функции РАДИАНЫ()

2. Для вычисления составляющей :

· В ячейку G2 таблицы введите формулу =С2*D2*E$2 (рис. 7).

· Используя маркер заполнения, внесите эту же формулу в ячейку G3.

· В ячейку G4 таблицы введите формулу =С4*D4*E$4.

· Используя маркер заполнения, внесите эту же формулу в ячейку G5.

· Вычислите сумму полученных значений в диапазоне G2:G5 с помощью функции АВТОСУММА() (рис. 8).

Рис. 7 Ввод формулы в ячейку G2 с использованием абсолютной ссылки

3. Для расчёта мощности эмиссии (q) в ячейку H2 введите формулу
=1Е-07*0,4944*G6 (рис. 9).

При расчётах многократное использование формулы (1) приводит к необходимости создания пользовательской функции с помощью Visual Basic. Visual Basic for Applications (VBA) - объектно-ориентированный язык программирования, специально разработанный для записи макросов в приложениях. Макрос - именованная последовательность команд (операторов VBA), которую пользователь может записать и затем вызвать для исполнения.

Рис. 8 Использование функции АВТОСУММА()

Рис. 9 Расчёт мощности эмиссии (q)

4. Для расчёта концентрации (С) создайте пользовательскую функцию

· Нажмите кнопку Редактор Visual Basic на панели инструментов Стандартная.

· В главном меню появившегося окна редактора выберите пункт
Вставка | Модуль.

· В поле листа-модуля введите следующий текст функции (рис. 10):

Function Conc ()

Conc = 0.4714*

End function

· Для сохранения функции нажмите клавишу F2.

В появившемся окне Просмотр объектов в поле Методы выберите функцию Conc (рис. 11).

Рис. 10 Лист-модуль с функцией для расчёта формулы (1).

· Щёлчком правой кнопкой мыши вызовите контекстное меню, в котором выберите пункт Свойства (рис. 12).

· В поле Описание диалогового окна (рис. 13) введите следующий текст: «Вычисляет концентрацию вредных веществ». Затем нажмите кнопку < Ok>.

· Закройте окно редактора VB (сочетанием клавиш < Alt >+< F4 >).

5. Используя пользовательскую функцию, выполните расчёт формулы (1).

· Активизируйте ячейку I2, в которую будет помещён результат расчёта концентрации С для случая удаления от кромки проезжей части на 10 м.

Рис. 11 Окно Просмотр объектов

Рис. 12 Контекстное меню

Рис. 13 Окно Свойства функции Conc

· Щёлкните на кнопке Вставка функции слева от строки формул (или сочетание клавиш < Shift >+< F3 >).

В диалоговом окне первого шага Мастерафункцийв поле категорий установите Определенные пользователем, в списке Имя функции - Conc и щёлкните < Ok>.

В диалоговом окне Аргументы функции в полях укажите адреса ячеек H2, B2, F2 соответственно.

Аналогично заполняются ячейки I3:I7 в зависимости от расстояний.