2. Порядок выполнения работы

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Изучите текст макроса.

Листинг макроса ВозрастФормула

Sub ВозрастФормула()

ActiveCell.FormulaR1C1 = _

"=YEAR(TODAY())-YEAR(RC[-5])-IF(OR(MONTH(TODAY())<MONTH(RC[-5]),AND(MONTH(TODAY())=MONTH(RC[-5]),DAY(TODAY())<DAY(RC[-5]))),1,0)"

Selection.AutoFill Destination:=Range("G4:G13"), Type:=xlFillDefault

End Sub

Причем, значение xlFillDefault - приложение Microsoft Office Excel выбирает наиболее подходящий тип заполнения в соответствии с исходным диапазоном.