Определение последнего четверга каждого месяца. Даты текущего месяца.

В каждом учреждении существуют особые дни (например, санитарные), когда допуск в это учреждение запрещен. Необходимо определить, на какие числа месяцев будут приходиться эти дни. Для определенности – четверги. Создадим лист СанДень (санитарный день). Введем в ячейку D1 год, в ячейку А2 – 1 (единицу) и размножим ее вниз при нажатой клавише Ctrl до 13 строки – получим номера месяцев. В ячейки B2, C2 и D2 с помощью Мастера функций введем формулы, как показано на рисунке ниже, и размножим их вниз.

Получим таблицу, в которой указаны последние четверги нужного нам года (рисунок слева).

Можно изменить формулы в столбце D так, что будут отмечаться любые нужные нам последние дни недели месяца в году (например, среды или пятницы).

К ячейке D1 до­бавлено примечание: для этого из контекстного меню данной ячейки надо выбрать пункт Добавить при­мечание и заполнить поле необходимыми данными, нажать Enter. При наведении курсора на ячейку это примечание будет появляться рядом с ячейкой.

Изменение режима отражения данных (формулы или результаты) задается следующим путем: Файл Параметры  Дополнительно  Показывать формулы, а не их значения (поставить или снять «галочку»).

Функцию КОНМЕСЯЦА() можно использовать также для построения перечня дней текущего месяца.

Перейдем на титульный лист. В ячейку О1 запишем формулу:

=КОНМЕСЯЦА(СЕГОДНЯ();-1) + 1

Функция КОНМЕСЯЦА() имеет первым аргументом дату текущего месяца (возвращается функцией СЕГОДНЯ()), а вторым – отсчет на 1 месяц назад (-1. Если поставить значение 0, то будет возвращаться последний день текущего месяца).

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

В ячейку О2 введем формулу: =О1+1 и размножим ее на 30 ячеек вниз. В итоге получим все дни текущего месяца. Справа в столбцах можно рассчитать номера недель, самим ячейкам условным форматированием задать цвета дней недели, еще правее ячейки О1 записать формулу:

=ЕСЛИ(О1=СЕГОДНЯ();"Это сегодняшний день!";"") и размножить ее вниз. И тогда эта надпись будет автоматически сопровождать текущий день месяца.

Использование макросов для создания интерфейса.

Макрос – это именованная последовательность команд, выполняемых автоматически в от­вет на какое-нибудь событие. Макросы всегда выполняются в активном документе. События для макросов будем создавать щелчками по кнопке (Click).

Макрос можно создать путем протоколирования действий пользователя. Это производится с помощью встроенного Мастера (макрорекордера).

Откроем созданный ранее лист Титул. Вызовем панель Формы: вкладка РазработчикВставить Элементы управления формы. Вкладка Разработчик имеется в последних версиях Excel. Она вызывается в строку вкладок командами:

Excel-2010:ФайлПараметрыНастройкаЛентыОсновныеВкладкиРазработчик(поставить птичку).

Excel-2007: ФайлПараметрыОсновныеПоказывать вкладку Разработчик на ленте (поставить птичку)

В панели Формы выберем объект Кнопка, щелкнем по нему левой кнопкой мыши. Появится тоненький крестик, ориентируясь на который нарисуем на титульном листе кнопку. Сразу появится окно Назначить макрос объекту. Поскольку макрос мы еще не создали, щелкнем в этом окне кнопку Отмена. На кнопке вместо "Кнопка №..." напишем "Открыть лист Данные".

С оздадим макрос для этой кнопки. Запись макроса вызывается через вкладку Разработчик (рис. слева) или кнопкой в строке состояния.

Кнопку Запись макроса можно зафиксировать (или убрать) в строке состояния через контекстное меню

Щ елкнем кнопку Записать макрос.

В окне Запись макроса (см.рисунок справа) дадим ему имя "ОткрЛистДанные" (пробелы не допус­каются), в окне Сохранить в: выберем Эта книга, нажмем кнопку ОК. Вместо кнопки Записать макрос появляется кнопка Остановить запись (синий квадратик).

Записываем макрос: щелкаем по корешку листа Данные, щелкаем по какой-нибудь ячейке на листе (А1), нажимаем кнопку Остановить за­пись.

Присвоим этот макрос кнопке на титульном листе: щелкаем по ней правой кнопкой мыши, из контекстного меню выбираем Назначить макрос, и в окне Назначить макрос объ­екту щелкаем по имени макроса ОткрЛистДанные, нажимаем кнопку ОК.

Щелкнем теперь по кнопке "Открыть лист Данные" левой кнопкой мыши – откроется этот лист.

Для закрытия любого листа книги напишем макрос Возврат. Находясь на листе Данные, вызовем окно записи макроса, дадим ему имя и после нажатия кнопки ОК щелкнем по вкладке листа Титул и по ячейке A1, прекратим запись макроса. Теперь, присвоив новой кнопке макрос Возврат на любом листе книги (кроме титульного листа), щелчком по кнопке будем возвращаться на титульный лист. А вот для открытия других листов книги из титульного листа надо создавать свой макрос.

Создав группу макросов, каждый из которых открывает свой лист, наносим на титуль­ный лист кнопку и сразу присваиваем ей соответствующий макрос. А на каждом листе кноп­кам закрытия листов присваиваем один и тот же макрос Возврат.

Чтобы просмотреть все макросы, можно воспользоваться вкладкой Разработчик-Макросы или нажать сочетание клавиш Alt+F8. В Excel 2007-2010 макросы можно присваивать не только кнопкам, как элементам форм, но и любым другим графическим объектам (фигуры, рисунки, картинки и т.п.).

Можно создать макросы, которые будут выполнять более сложные операции, причем количество таких операций в одном макросе может быть любое (некоторые примеры будут в ПЗ-9). Можно организовать какие-нибудь вычисления по определенной команде или при наступлении какого-нибудь события, можно открывать листы в другой книге и т.д. Таким образом, может быть создан простей­ший интерфейс для работы в книге Excel.

Ниже приведен фрагмент титульного листа книги с необходимыми для имеемых листов управляющими кнопками. Кроме того, в ячейках J1 и K1 имеются дата и день недели. Видно, какая формула введена в ячейку K1, и что отображается в этой ячейке. Установленный формат даты описан в ПЗ-2.

Для справки: после ПЗ №4 в книге д.б. листы: Данные, График, 13пт, Титул, ТабУмн, Вклады, СанДень.