Порядок выполнения работы. 1. Откройте книгу Excel. Сделайте ее настройку:

I. Настройка Excel

1. Откройте книгу Excel. Сделайте ее настройку:

1) выполните команду Сервис / Параметры и в диалоговом окне выберите вкладку Общие, установив следующие параметры:

2) стиль ссылок R1C1: выключено;

3) листов в новой книге: 3;

4) стандартный шрифт: размер 10;

5) выберите рабочий каталог для сохранения новых книг;

6) введите имя пользователя;

7) выберите вкладку Вид, установив флажки следующих параметров:

· отображать: область задач при запуске, строку формул, строку состояния, окна на панели задач;

· примечания: только индикатор;

Рисунок 3 Настройка. Окно «Параметры», вкладка «Общие»

8) объекты: отображать;

9) параметры окна: заголовки строк и столбцов, горизонтальная полоса прокрутки, символы структуры, вертикальная полоса прокрутки, сетка, нулевые значения, ярлычки листов;

Рисунок 4 Настройка. Окно «Параметры», вкладка «Вид»

10) выберите вкладку Вычисления, установив флажки следующих параметров:

· вычисления: автоматически;

· параметры книги: обновлять удаленные ссылки, сохранять значения внешних связей.

2. Переименуйте рабочий лист, выполнив следующие действия:

· установите указатель мыши на вкладку с именем листа (Лист 1) и вызовите контекстное меню, щелкнув правой клавишей мыши;

· выберите в текстовом меню параметр «Переименовать», введите имя в диалоговое меню: «Исследование»

3. Сохраните созданную рабочую книгу с новым именем, выполнив команду Файл / Сохранить как.

II. Запись макроса

По исходным данным рассчитайте возраст пациентов

Рисунок 5 Таблица с исходными данными

Для отображения панели инструментов Visual Basic необходимо открыть пункт меню

Вид->Панели инструментов-> Visual Basic

Для записи макроса на панели инструментов Visual Basic необходимо нажать кнопку запись макроса

Введите имя макроса: ВозрастФормула

С этого момента все действия записываются в макрос.

1. Поставьте курсор в ячейку G4

2. Введите формулу для расчета возраста, формула рассчитывает разность между текущей датой и датой рождения:

=ГОД(СЕГОДНЯ())-ГОД(B4) - ЕСЛИ(ИЛИ(МЕСЯЦ(СЕГОДНЯ())<МЕСЯЦ(B4); И(МЕСЯЦ(СЕГОДНЯ())=МЕСЯЦ(B4);ДЕНЬ(СЕГОДНЯ())<ДЕНЬ(B4)));1;0)

a) функции СЕГОДНЯ: Возвращает текущую дату в числовом формате. Числовой формат даты — это код даты и времени, с помощью которого в Microsoft Excel производятся вычисления над датами и промежутками времени.

b) функции ГОД: Возвращает год, соответствующий заданной дате. Год определяется как целое число в диапазоне от 1900 до 9999.

3. Скопируйте созданную формулу до ячейки G13

4. Остановите запись макроса (кнопка стоп)

=

Рисунок 6 Таблица с результатом выполнения записанного макроса «ВозрастФормула»

Для просмотра результата записи макроса необходимо зайти в пункт меню

Сервис->Макрос->Редактор Visual Basic

Рисунок 7 Путь к Редактору Visual Basic

Командой Сервис / Макрос / Редактор VisualBasic запустите редактор VisualBasic. В окне проектов (Project-VBAProject) раскройте содержимое проекта VBAProject(PERSONAL.XLS) и ветвь Modules. В ее составе должен быть один (например, Module1) или несколько модулей. Дважды щелкните левой кнопкой мыши по имени модуля. В ответ в правом верхнем окне должен появиться его текст. Просмотрите содержимое модулей и найдите записанный вами макрос.