Excel шаблоны расписание занятий - Word и Excel - помощь в работе с программами

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

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

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

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

Настраиваемые и удобные бесплатные шаблоны расписаний избавят вас от ненужного стресса.

Источник

Расписание – важная часть нашей жизни. С помощью расписаний мы не только распределяем наше время, но и уменьшаем стресс, оцениваем наш прогресс в выполнении работы и готовим себя к непредвиденным событиям.

Не важно, создаете ли вы список дел или планируете мероприятие. Чем бы вы ни занимались, расписание поможет следовать намеченным целям и не упускать ничего из виду.

Шаблон – самый простой способ создания расписания. В этой статье вы найдёте описание самых лучших шаблонов расписания на день, неделю и месяц в Excel, а также пошаговые инструкции по поиску подходящих для ваших задач шаблонов и их индивидуальной настройки.

Вы также узнаете, как использовать шаблон расписания в Smartsheet, инструменте для управления работой на основе электронных таблиц, который позволяет создавать расписания быстрее, чем в Excel, предлагая при этом больше параметров форматирования и возможностей сотрудничества.

Загрузите шаблон расписания на день, неделю или месяц в Excel

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

Как же узнать, какой из доступных шаблонов расписаний самый простой в использовании? Мы уже просмотрели существующие шаблоны и нашли самые лучшие шаблоны расписания на день, неделю и месяц в Excel.

Шаблон расписания на неделю в Excel

В шаблоне расписания на неделю в Excel каждый день разбит на утро, день и вечер, поэтому вы сможете настроить размеры необходимого для каждой из этих частей места.

Основные способы использования:

Расписание занятий в школе/университете: расписание занятий представляет собой высокий уровень просмотра всех ваших занятий. Вы можете быстро заполнять расписание сведениями о предметах, такими как название предмета, номер аудитории и время проведения занятий, и таким образом лучше управлять своим временем в течение недели.
Расписание домашних работ: организуйте список ваших дел по хозяйству. Для этого распечатайте шаблон расписания на неделю, заполните его ежедневными задачами, например, уборка пылесосом, влажная уборка, уборка пыли, а затем назначьте ответственного за выполнение каждой задачи члена семьи.
Расписание смен работников: с помощью расписания смен работников вы всегда будете уверены, что работники выходят на работу по правильному расписанию. Назначайте рабочие часы для каждого работника и определяйте их рабочее место или должность (менеджер, кассир, техническая поддержка, работа в приёмной). Вы даже сможете добавить столбец с выработкой часов за неделю для каждого работника.
Маршрут путешествия: с маршрутом путешествий на неделю вы никогда не пропустите самолёт, поезд или автобус. Отслеживайте места отправления и прибытия, номера рейсов, местоположения аэропортов, бронь гостиничных номеров и многое другое. Все важные данные будут находиться в одном месте, а вы никуда не будете опаздывать.
Расписание проекта: координируйте задачи, конечные результаты, сроки выполнения, исполнителей и другие элементы проекта при помощи расписания проекта. Будьте уверены, что ваш проект будет выполнен в срок и управляйте распределением ресурсов.

 Загрузить бесплатный шаблон на неделю в Excel (Пн-Пт)

 Загрузить бесплатный шаблон на неделю в Excel (Сб-Вс)

Шаблон расписания на день в Excel

Шаблон расписания на день обычно охватывает также субботу и воскресенье и включает длительность в часах с 30-минутными интервалами. Такой тип расписания предлагает наиболее детализированное представление, позволяя вам отслеживать даже самые мелкие задачи в течение дня.

Основные способы использования:

Личный планировщик встреч/совещаний: управляйте всеми вашими ежедневными личными встречами и совещаниями. Расписание на день можно распечатать и носить с собой, чтобы оно всегда было под рукой.
Планировщик списка задач: вместо того, чтобы записывать все ваши задачи в нескончаемый список, разбейте их на части и распределите по дням недели, чтобы вы каждый день точно знали, что нужно сделать. Назначайте задачи на разное время дня и вычёркивайте уже сделанные.
Расписание кормления ребёнка: записывайте точное время кормления вашего малыша в течение дня, чтобы придерживаться правильного графика. Вы также может отслеживать длительность кормления и добавлять общее количество кормлений в день.

 Загрузить бесплатный шаблон на день в Excel

Шаблон расписания на месяц в Excel

Шаблон расписания на месяц предлагает очень подробную детализацию целого месяца. Каждому из 12 месяцев в 2016 году отведена отдельная вкладка файла Excel.

Основные способы использования:

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

Загрузить бесплатный шаблон на месяц в Excel

Шаблоны расписаний на неделю в Smartsheet

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

Все эти шаблоны подчёркивают функции Smartsheet по организации сотрудничества. Например, в расписании занятий на неделю вы можете выбрать цветовой код для занятий, так что вы сможете быстро визуально представить ваше расписание на неделю. В шаблоне планировщика обедов вы можете добавлять ссылки на любимые рецепты для быстроты доступа, а в расписании уборки дома на неделю, вы можете назначать домашние дела определённым людям, чтобы всей семье было чем заняться.

Планировщик обедов на неделю

Шаблоны расписания на день в Smartsheet

Расписания на неделю в Smartsheet разбиты на 30-минутные интервалы в промежутке от 7:00 до 21:00. Если вам нужно расписание, охватывающее больший или меньший промежуток времени, просто кликните правой кнопкой мыши по ячейке и выберите «Удалить строку» или «Вставить строку». Используйте символы (звёзды) в списке дел к выполнению на день, чтобы назначать приоритет и устанавливать напоминания для ежедневных встреч, собраний и рабочих задач, чтобы никогда ничего не упускать из виду.

Рабочее расписание на день

Список дел на день

Расписание встреч и приёмов на день

Шаблоны расписания на месяц в Smartsheet

Эти шаблоны включают в себя все месяцы 2016 года, и вы сможете сами определять, сколько места вы хотите отвести для каждого месяца путём добавления или удаления строк. Если вы хотите изменить какую-либо дату в расписании (например, вам нужно изменить год), просто введите первые несколько дат вручную, затем выделите эти ячейки и перетащите правый нижний угол выделенной группы ячеек вниз для автоматического заполнения.

Добавляйте обсуждения непосредственно в шаблон расписания проекта, чтобы разгрузить ваш ящик электронной почты, автоматически создавайте динамичные диаграммы Ганта и используйте символы, чтобы быстро сообщать о текущем статусе, приоритете и прогрессе.

Расписание мероприятий на месяц

Расписание проекта с диаграммой Ганта на месяц

Спортивный реестр и расписание на неделю

Шаблон расписания проекта

Какой шаблон расписания использовать?

Итак, подходящее вам расписание выбрано. Это может быть расписание на день, неделю или месяц. Теперь вам необходимо определить структуру, тип длительности (понедельник-пятница или суббота-воскресенье), настроить параметры предоставления доступа и печати. Все эти факторы следует принимать во внимание, поэтому выбрать, какой шаблон использовать, может быть не так уж и просто.

При поиске подходящего шаблона обратите внимание на следующее:

1. Временной промежуток или длительность расписания.

В первую очередь, необходимо определить, какое расписание вам требуется: на день, неделю или месяц. Расписание на день – единственный шаблон, который содержит длительность в часах (с интервалами в 30 минут), длительность расписания на неделю представляет собой разбивку на утро, день и вечер, в то время как шаблон на месяц содержит минимальную степень детализации – длительность измеряется в днях.

Выбор подходящего для типа шаблона зависит от событий, задач и проектов, которые нужно будет отслеживать при помощи расписания. Например, если вам нужно структурировать список задач или встречи, лучше всего подойдут расписания на день. Если же необходимо отслеживать более длительные задачи или повторяющиеся события, вам нужен шаблон, охватывающий больший временной промежуток.

2. Кто будет пользоваться этим расписанием?

Подумайте, кто будет иметь доступ к вашему расписанию? Будет ли это документ только для вас, где вы будете отслеживать личные задачи? Или это расписание домашних работ и задач, которое вы планируете распечатать и прикрепить к холодильнику на кухне или отправить по электронной почте членам вашей семьи? Или это будет документ, которым вы будете пользоваться на работе, и который смогут использовать и редактировать ваши коллеги и внештатные сотрудники?

Если вы планируете предоставлять доступ к документу более чем одному человеку, мы рекомендуем найти онлайн версию этого шаблона, чтобы вам было удобнее предоставлять доступ, сотрудничать и редактировать документ в реальном времени. Если же это будет ваш личный документ, убедитесь, что вы нашли шаблон с наиболее подходящими для ваших задач вариантами индивидуальной настройки и возможностями печати.

3. Какие события и проекты необходимо отслеживать?

Вы можете выбирать степень детализации для длительности вашего расписания, но вы также должны определить, какие детали необходимо добавить в ваш шаблон, и количество элементов, которые шаблон должен отображать.

Чтобы понять, насколько сложными и детализированными будут ваши события или проекты, запишите на лист бумаги несколько событий, которые вы планируете добавить в расписание. Укажите все детали, которые вы хотите отметить в расписании (название задачи, подробные сведения, ответственное за исполнение лицо, срок выполнения, местоположение, контактные данные и т.д.). Это упражнение поможет понять, сколько места находимо иметь в вашем расписании. Если достаточно только верхнего уровня детализации, вы можете использовать расписание на месяц. Если же вы отслеживаете несколько задач каждый день, стоит подумать об использовании шаблона расписания на день.

Как индивидуализировать ваш шаблон в Excel

Сделать настройки вашего расписания на день, неделю или месяц индивидуальными в Excel очень просто. Вы можете выбрать цветовой код для определённых элементов, например, для приёмов у доктора или дней рождения, или изменить тип и размер шрифта. Вы также можете добавить логотип в календарь, если вы используете его во время работы с клиентами.

1. Форматирование шрифта

Чтобы изменить размер шрифта заголовков, выделите все заголовки. На вкладке «Главная» вы можете выбрать тип и размер шрифта.
Чтобы форматировать дату или время маркеров, выделите целый столбец или все поля дат. На вкладке «Главная» вы можете изменить тип и размер шрифта.

2. Изменение цвета

Вы можете изменить цвет шрифта или фона вашего расписания. Использование цветового кода может быть полезным для выделения определённых мероприятий или задач.

Чтобы изменить цвет фона целой строки, кликните по иконке в виде ведёрка с краской, а затем выберите цвет заливки.
Чтобы выбрать цветовой код для мероприятия, поместите информацию о задаче или встрече в поле даты. Затем выберите текст, кликните по иконке в виде ведёрка с краской и выберите подходящий цвет заливки.

3. Добавление изображения

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

На вкладке «Вставка» выберите «Иллюстрации». Загрузите изображение, которое вы хотите использовать.

Изображение будет добавлено в вашу таблицу, после чего вы сможете переместить его в нужное место.

Если вы хотите добавить логотип или изображение в верхнюю часть расписания, вам может понадобиться вначале добавить место для размещения этого элемента.

Правой кнопкой мыши кликните по первой строке всей таблицы и выберите «Вставить».

Выберите «Вставить строку».

Повторите эти действия, чтобы добавить нужное количество строк.
Чтобы сделать фон для новых строк белым, выделите новые строки, кликните по иконке в виде ведёрка с краской и выберите белый цвет.
Чтобы удалить линии разметки над строкой названия, выберите строку названия, кликните по иконке «Границы» и выберите опцию «Без границы».

Теперь у вас есть дополнительное пустое место в верхней части, чтобы разместить ваше изображение.

Шаблоны расписаний: доступные для печати или онлайн

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

Многие люди распечатывают свои расписания и потом вешают на стену или холодильник. Если же речь идёт о планировщике списка задач к выполнению или персональных встреч и совещаний, многие хранят их в своём бумажнике или сумочке для удобства доступа и использования.

Распечатанное и доступное всем расписание может быть полезным, но в целом бумажный календарь с большей вероятностью сделает вашу жизнь более хаотичной и неорганизованной. Если вы забудете или потеряете календарь, вам придётся начинать всё с самого начала. Если кто-то захочет отредактировать или добавить данные в календарь, вы не будете знать, кто внёс эти изменения, если только вы не сможете узнать этого человека по почерку. И наконец, место в таком календаре всегда ограничено, он быстро заполнится и будет выглядеть неопрятно, с большим количеством изменений и дополнений.

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

Кроме того, перенеся расписание в облако, вы сможете сэкономить большое количество бумаги. Если вы планируете открывать доступ к этому календарю другим людям, онлайн инструмент поможет эффективнее осуществлять коммуникацию и вносить изменения. Вы сможете видеть, что было отредактировано, а также выбирать уровень предоставляемых прав, назначая пользователям права наблюдателя, редактора или администратора.

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

Создавайте простые и удобные для сотрудничества расписания в Smartsheet

Smartsheet представляет собой инструмент для управления работой на основе электронных таблиц, предлагающий набор эффективных функций для сотрудничества и общения. Smartsheet содержит десятки встроенных шаблонов, а также функции для предоставления доступа, поэтому он идеально подходит как для простого планирования задач к выполнению, так и для более комплексных расписаний проектов. Индивидуализировать шаблоны очень просто: просто кликните правой кнопкой мыши по столбцу, чтобы переименовать заголовок, или дважды кликните по любой ячейке, чтобы добавить необходимые сведения. Вы также можете изменять цвета, шрифты или переключаться между представлениями Ганта, календаря или сетки.

Ниже представлены 14 шаблонов расписаний в Smartsheet:

Самый простой способ создания расписания

Smartsheet помогает улучшить совместную работу и повысить скорость работы для любых типов задач, от простого управления задачами и планирования проектов до комплексного управления ресурсами и портфелями, позволяя вам добиваться большего. Платформа Smartsheet упрощает планирование, сбор, управление и составление отчётов о работе, помогая вашей команде работать более эффективно и добиваться большего, где бы вы ни находились. Создавайте отчёты по ключевым показателям и получайте информацию о работе в режиме реального времени с помощью сводных отчётов, панелей мониторинга и автоматизированных рабочих процессов, специально разработанных для поддержания совместной работы и информированности вашей команды. Когда у команд есть ясность в отношении выполняемой работы, невозможно предсказать, насколько больше они смогут сделать за одно и то же время. Попробуйте Smartsheet бесплатно уже сегодня.

Источник

Содержание

Как составить расписание в Excel
Как создать расписание в Excel
Сохранить расписание как шаблон
Как создать шаблон расписания в Excel за минуты
Загрузите шаблон расписания на день, неделю или месяц в Excel
Узнайте, как повысить производительность с помощью Smartsheet
Шаблон расписания на неделю в Excel
Основные способы использования:
Шаблон расписания на день в Excel
Основные способы использования:
Шаблон расписания на месяц в Excel
Основные способы использования:
Шаблоны расписаний на неделю в Smartsheet
Шаблоны расписания на день в Smartsheet
Шаблоны расписания на месяц в Smartsheet
Какой шаблон расписания использовать?
1. Временной промежуток или длительность расписания.
2. Кто будет пользоваться этим расписанием?
3. Какие события и проекты необходимо отслеживать?
Как индивидуализировать ваш шаблон в Excel
1. Форматирование шрифта
2. Изменение цвета
3. Добавление изображения
Шаблоны расписаний: доступные для печати или онлайн
Создавайте простые и удобные для сотрудничества расписания в Smartsheet
Самый простой способ создания расписания
Не опаздывайте на занятия с этими шаблонами расписания для Excel
Шаблоны расписания в Excel
Простой и практичный график
Расписание занятий
Шаблоны веб-сайтов Microsoft
Расписание занятий
Университетские часы
Как сделать таблицу расписания уроков в excel?
Как создать таблицу в Excel для чайников
Как выделить столбец и строку
Как изменить границы ячеек
Как вставить столбец или строку
Пошаговое создание таблицы с формулами
Как создать таблицу в Excel: пошаговая инструкция
Как работать с таблицей в Excel
Создание различных календарей
Способ 1: создание календаря на год
Способ 2: создание календаря с использованием формулы
Способ 3: использование шаблона

Как составить расписание в Excel

Инструкции в этой статье относятся к Excel 2019, Excel 2016, Excel для Office 365 и Excel 2013.

Как создать расписание в Excel

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

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

Запустите Excel и откройте новую пустую книгу.

Введите » ЕЖЕНЕДЕЛЬНЫЙ РАСПИСАНИЕ » в A1: E2, измените размер шрифта на 18 и выберите Среднее выравнивание в группе выравнивания.

Введите « Ежедневное время начала » в F1; « Интервал времени » в G1; и « Дата начала » в H1. Выберите значок « Выбрать все» (от 1 до A на рабочем листе), затем дважды щелкните линию, разделяющую любые два столбца, чтобы изменить размеры всех ячеек, чтобы они соответствовали содержимому.

Выберите ячейку A3 и введите « ВРЕМЯ ».

Выберите ячейку A4 и введите время, когда вы хотите, чтобы ваше расписание началось. Чтобы следовать этому примеру, введите « 7:00 ».

В ячейке A5 введите следующий интервал, который вы хотите отобразить в расписании. Чтобы следовать этому примеру, введите « 7:30 ». Выберите A4: A5 и перетащите маркер заполнения вниз, чтобы заполнить приращения времени до конца дня.

В ячейке B3 введите день недели, с которого вы хотите начать свое расписание. Чтобы следовать этому примеру, введите « Воскресенье ».

Перетащите маркер заполнения вправо, чтобы автоматически заполнить оставшиеся дни недели в расписании.

Измените размер шрифта в столбце A на 12.

При необходимости выберите значок « Выделить все» (от 1 до A на рабочем листе) и дважды щелкните линию, разделяющую любые два столбца, чтобы изменить размеры всех ячеек, чтобы они снова соответствовали содержимому.

Выберите значок « Выбрать все» или нажмите Ctrl + A и выберите « Центр» в группе «Выравнивание» на вкладке «Главная».

Выберите уникальный цвет заливки для каждой из следующих ячеек или диапазонов:

Пропустите этот шаг, если вы предпочитаете черно-белое расписание.

Сохранить расписание как шаблон

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

Откройте папку « Шаблоны пользовательских офисов ».

Чтобы использовать шаблон в будущем, выберите вкладку « Личные » на экране « Новый» и выберите шаблон расписания. Он откроется как новая рабочая тетрадь.

Если вы хотите использовать печатную версию расписания, настройте область печати перед печатью.

Источник

Как создать шаблон расписания в Excel за минуты

Загрузите шаблон расписания на день, неделю или месяц в Excel

Узнайте, как повысить производительность с помощью Smartsheet

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

Шаблон расписания на неделю в Excel

Основные способы использования:

Шаблон расписания на день в Excel

Основные способы использования:

Шаблон расписания на месяц в Excel

Основные способы использования:

Шаблоны расписаний на неделю в Smartsheet

Шаблоны расписания на день в Smartsheet

Шаблоны расписания на месяц в Smartsheet

Какой шаблон расписания использовать?

При поиске подходящего шаблона обратите внимание на следующее:

1. Временной промежуток или длительность расписания.

2. Кто будет пользоваться этим расписанием?

3. Какие события и проекты необходимо отслеживать?

Как индивидуализировать ваш шаблон в Excel

1. Форматирование шрифта

2. Изменение цвета

3. Добавление изображения

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

Теперь у вас есть дополнительное пустое место в верхней части, чтобы разместить ваше изображение.

Шаблоны расписаний: доступные для печати или онлайн

Создавайте простые и удобные для сотрудничества расписания в Smartsheet

Ниже представлены 14 шаблонов расписаний в Smartsheet:

Самый простой способ создания расписания

Источник

Не опаздывайте на занятия с этими шаблонами расписания для Excel

Возвращение в школу стало реальностью. Прошли каникулы, и пора сосредоточиться на приходе нового учебного года. Нет лучшего способа правильно начать занятия, чем хорошая организация, в чем наш компьютер может быть большим подспорьем. Возможно, самый популярный офис люкс, такой как Microsoft Офисы не отсутствует в наших учебных инструментах. Если это наш случай, одно из его приложений, Excel, может помочь нам создать собственные шаблоны расписания занятий.

Использование Office в качестве учебного пособия может иметь большой успех. С помощью этого инструмента для работы с электронными таблицами мы можем загружать шаблоны, которые помогают нам записывать различные расписания занятий. Прошли те времена, когда они делались бумагой и ручкой, что приводило к непривлекательным результатам. Теперь у нас могут быть хорошо разработанные шаблоны расписания, так что нам нужно только записывать предметы на каждый день.

Шаблоны расписания в Excel

В Excel по умолчанию есть различные типы шаблонов, которые предоставляются нам бесплатно. Чтобы получить к ним доступ, просто откройте электронную таблицу и нажмите «Создать». Мы найдем поисковую систему, где указано «Шаблоны часов поиска». Для примеров достаточно составить расписание.

Простой и практичный график

Этот шаблон имеет очень привлекательный дизайн с разными оттенками. В нем есть каждый день недели, хотя достаточно сосредоточить внимание на днях с понедельника по пятницу, а также столбик с расписанием. Мы просто должны изменить расписание как нам удобно и запишите каждую тему, соответствующую каждому дню недели. Это очень простой шаблон, но в то же время практичный, который значительно упрощает нам жизнь при создании расписания.

Расписание занятий

Шаблоны веб-сайтов Microsoft

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

Расписание занятий

Этот шаблон позволяет нам сохранить все наши ежемесячные расписания занятий до Дата. Настолько просто, что нам нужно будет только написать время начала и временной интервал каждого расписания, чтобы временные диапазоны создавались автоматически. Мы также можем использовать цветовую кодировку по своему вкусу, даже чтобы зарезервировать время для изучения. Мы можем загрузить его, чтобы открыть в Excel или просмотреть прямо в браузере. Мы можем получить доступ к шаблону, нажав на этой ссылке.

Университетские часы

Источник

Как сделать таблицу расписания уроков в excel?

Программа Microsoft Excel удобна для составления таблиц и произведения расчетов. Рабочая область – это множество ячеек, которые можно заполнять данными. Впоследствии – форматировать, использовать для построения графиков, диаграмм, сводных отчетов.

Работа в Экселе с таблицами для начинающих пользователей может на первый взгляд показаться сложной. Она существенно отличается от принципов построения таблиц в Word. Но начнем мы с малого: с создания и форматирования таблицы. И в конце статьи вы уже будете понимать, что лучшего инструмента для создания таблиц, чем Excel не придумаешь.

Как создать таблицу в Excel для чайников

Работа с таблицами в Excel для чайников не терпит спешки. Создать таблицу можно разными способами и для конкретных целей каждый способ обладает своими преимуществами. Поэтому сначала визуально оценим ситуацию.

Посмотрите внимательно на рабочий лист табличного процессора:

Это множество ячеек в столбцах и строках. По сути – таблица. Столбцы обозначены латинскими буквами. Строки – цифрами. Если вывести этот лист на печать, получим чистую страницу. Без всяких границ.

Сначала давайте научимся работать с ячейками, строками и столбцами.

Как выделить столбец и строку

Чтобы выделить весь столбец, щелкаем по его названию (латинской букве) левой кнопкой мыши.

Для выделения строки – по названию строки (по цифре).

Чтобы выделить несколько столбцов или строк, щелкаем левой кнопкой мыши по названию, держим и протаскиваем.

Для выделения столбца с помощью горячих клавиш ставим курсор в любую ячейку нужного столбца – нажимаем Ctrl + пробел. Для выделения строки – Shift + пробел.

Как изменить границы ячеек

Если информация при заполнении таблицы не помещается нужно изменить границы ячеек:

Для изменения ширины столбцов и высоты строк сразу в определенном диапазоне выделяем область, увеличиваем 1 столбец /строку (передвигаем вручную) – автоматически изменится размер всех выделенных столбцов и строк.

Примечание. Чтобы вернуть прежний размер, можно нажать кнопку «Отмена» или комбинацию горячих клавиш CTRL+Z. Но она срабатывает тогда, когда делаешь сразу. Позже – не поможет.

Чтобы вернуть строки в исходные границы, открываем меню инструмента: «Главная»-«Формат» и выбираем «Автоподбор высоты строки»

Для столбцов такой метод не актуален. Нажимаем «Формат» — «Ширина по умолчанию». Запоминаем эту цифру. Выделяем любую ячейку в столбце, границы которого необходимо «вернуть». Снова «Формат» — «Ширина столбца» — вводим заданный программой показатель (как правило это 8,43 — количество символов шрифта Calibri с размером в 11 пунктов). ОК.

Как вставить столбец или строку

Выделяем столбец /строку правее /ниже того места, где нужно вставить новый диапазон. То есть столбец появится слева от выделенной ячейки. А строка – выше.

Нажимаем правой кнопкой мыши – выбираем в выпадающем меню «Вставить» (или жмем комбинацию горячих клавиш CTRL+SHIFT+»=»).

Отмечаем «столбец» и жмем ОК.

Совет. Для быстрой вставки столбца нужно выделить столбец в желаемом месте и нажать CTRL+SHIFT+»=».

Все эти навыки пригодятся при составлении таблицы в программе Excel. Нам придется расширять границы, добавлять строки /столбцы в процессе работы.

Пошаговое создание таблицы с формулами

Теперь при печати границы столбцов и строк будут видны.

С помощью меню «Шрифт» можно форматировать данные таблицы Excel, как в программе Word.

Поменяйте, к примеру, размер шрифта, сделайте шапку «жирным». Можно установить текст по центру, назначить переносы и т.д.

Как создать таблицу в Excel: пошаговая инструкция

Простейший способ создания таблиц уже известен. Но в Excel есть более удобный вариант (в плане последующего форматирования, работы с данными).

Сделаем «умную» (динамическую) таблицу:

Примечание. Можно пойти по другому пути – сначала выделить диапазон ячеек, а потом нажать кнопку «Таблица».

Теперь вносите необходимые данные в готовый каркас. Если потребуется дополнительный столбец, ставим курсор в предназначенную для названия ячейку. Вписываем наименование и нажимаем ВВОД. Диапазон автоматически расширится.

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

Как работать с таблицей в Excel

С выходом новых версий программы работа в Эксель с таблицами стала интересней и динамичней. Когда на листе сформирована умная таблица, становится доступным инструмент «Работа с таблицами» — «Конструктор».

Здесь мы можем дать имя таблице, изменить размер.

Доступны различные стили, возможность преобразовать таблицу в обычный диапазон или сводный отчет.

Возможности динамических электронных таблиц MS Excel огромны. Начнем с элементарных навыков ввода данных и автозаполнения:

Если нажать на стрелочку справа каждого подзаголовка шапки, то мы получим доступ к дополнительным инструментам для работы с данными таблицы.

Иногда пользователю приходится работать с огромными таблицами. Чтобы посмотреть итоги, нужно пролистать не одну тысячу строк. Удалить строки – не вариант (данные впоследствии понадобятся). Но можно скрыть. Для этой цели воспользуйтесь числовыми фильтрами (картинка выше). Убираете галочки напротив тех значений, которые должны быть спрятаны.

prtn papn

Таблицы в Excel представляют собой ряд строк и столбцов со связанными данными, которыми вы управляете независимо друг от друга.

Работая в Excel с таблицами, вы сможете создавать отчеты, делать расчеты, строить графики и диаграммы, сортировать и фильтровать информацию.

Если ваша работа связана с обработкой данных, то навыки работы с таблицами в Эксель помогут вам сильно сэкономить время и повысить эффективность.

Как работать в Excel с таблицами. Пошаговая инструкция

1. Выделите область ячеек для создания таблицы

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

2. Нажмите кнопку “Таблица” на панели быстрого доступа

На вкладке “Вставка” нажмите кнопку “Таблица”.

3. Выберите диапазон ячеек

В всплывающем вы можете скорректировать расположение данных, а также настроить отображение заголовков. Когда все готово, нажмите “ОК”.

4. Таблица готова. Заполняйте данными!

Поздравляю, ваша таблица готова к заполнению! Об основных возможностях в работе с умными таблицами вы узнаете ниже.

Форматирование таблицы в Excel

Для настройки формата таблицы в Экселе доступны предварительно настроенные стили. Все они находятся на вкладке “Конструктор” в разделе “Стили таблиц”:

Если 7-ми стилей вам мало для выбора, тогда, нажав на кнопку, в правом нижнем углу стилей таблиц, раскроются все доступные стили. В дополнении к предустановленным системой стилям, вы можете настроить свой формат.

Помимо цветовой гаммы, в меню “Конструктора” таблиц можно настроить:

Как добавить строку или столбец в таблице Excel

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

Как отсортировать таблицу в Excel

Для сортировки информации при работе с таблицей, нажмите справа от заголовка колонки “стрелочку”, после чего появится всплывающее окно:

В окне выберите по какому принципу отсортировать данные: “по возрастанию”, “по убыванию”, “по цвету”, “числовым фильтрам”.

Как отфильтровать данные в таблице Excel

Для фильтрации информации в таблице нажмите справа от заголовка колонки “стрелочку”, после чего появится всплывающее окно:

Если вы хотите отменить все созданные настройки фильтрации, снова откройте всплывающее окно над нужной колонкой и нажмите “Удалить фильтр из столбца”. После этого таблица вернется в исходный вид.

Как посчитать сумму в таблице Excel

Для того чтобы посчитать сумму колонки в конце таблицы, нажмите правой клавишей мыши на любой ячейке и вызовите всплывающее окно:

В списке окна выберите пункт “Таблица” => “Строка итогов”:

Внизу таблица появится промежуточный итог. Нажмите левой клавишей мыши на ячейке с суммой.

В выпадающем меню выберите принцип промежуточного итога: это может быть сумма значений колонки, “среднее”, “количество”, “количество чисел”, “максимум”, “минимум” и т.д.

Как в Excel закрепить шапку таблицы

Таблицы, с которыми приходится работать, зачастую крупные и содержат в себе десятки строк. Прокручивая таблицу “вниз” сложно ориентироваться в данных, если не видно заголовков столбцов. В Эксель есть возможность закрепить шапку в таблице таким образом, что при прокрутке данных вам будут видны заголовки колонок.

Для того чтобы закрепить заголовки сделайте следующее:

Как перевернуть таблицу в Excel

Представим, что у нас есть готовая таблица с данными продаж по менеджерам:

На таблице сверху в строках указаны фамилии продавцов, в колонках месяцы. Для того чтобы перевернуть таблицу и разместить месяцы в строках, а фамилии продавцов нужно:

В этой статье вы ознакомились с принципами работы в Excel с таблицами, а также основными подходами в их создании. Пишите свои вопросы в комментарии!

При создании таблиц с определенным типом данных иногда нужно применять календарь. Кроме того, некоторые пользователи просто хотят его создать, и использовать в бытовых целях. Программа Microsoft Office позволяет несколькими способами вставить календарь в таблицу или на лист. Давайте выясним, как это можно сделать.

Создание различных календарей

Все календари, созданные в Excel, можно разделить на две большие группы: охватывающие определенный отрезок времени (например, год) и вечные, которые будут сами обновляться на актуальную дату. Соответственно и подходы к их созданию несколько отличаются. Кроме того, можно использовать уже готовый шаблон.

Способ 1: создание календаря на год

Прежде всего, рассмотрим, как создать календарь за определенный год.

Открывается окно, в котором нужно установить требуемую высоту строки. Ели вы впервые делаете подобную операцию и не знаете, какой размер установить, то ставьте 18. Потом жмите на кнопку «OK».

Теперь нужно установить ширину. Кликаем по панели, на которой указаны наименования столбцов буквами латинского алфавита. В появившемся меню выбираем пункт «Ширина столбцов».

В открывшемся окне установите нужный размер. Если не знаете, какой размер установить, можете поставить цифру 3. Жмите на кнопку «OK».

После этого, ячейки на листе приобретут квадратную форму.

После этого, можно считать, что календарь готов, хотя вы можете дополнительно отформатировать его на своё усмотрение.

Урок: Как сделать автозаполнение в Excel

Способ 2: создание календаря с использованием формулы

Но, все-таки у предыдущего способа создания есть один весомый недостаток: его каждый год придется делать заново. В то же время, существует способ вставить календарь в Excel с помощью формулы. Он будет каждый год сам обновляться. Посмотрим, как это можно сделать.

=»Календарь на » & ГОД(СЕГОДНЯ()) & » год» Таким образом, мы создаем заголовок календаря с текущим годом.

Но, как видим, в том месте, где должно отобразиться просто название месяца установилась дата. Для того, чтобы привести формат ячейки к нужному виду, кликаем по ней правой кнопкой мыши. В контекстном меню выбираем пункт «Формат ячеек…».

В открывшемся окне формата ячеек переходим во вкладку «Число» (если окно открылось в другой вкладке). В блоке «Числовые форматы» выделяем пункт «Дата». В блоке «Тип» выбираем значение «Март». Не беспокойтесь, это не значит, что в ячейке будет слово «Март», так как это всего лишь пример. Жмем на кнопку «OK».

=ДАТАМЕС(B4;1) В нашем случае, B4 – это адрес ячейки с наименованием «Январь». Но в каждом конкретном случае координаты могут быть другими. Для следующего элемента уже ссылаемся не на «Январь», а на «Февраль», и т.д. Форматируем ячейки так же, как это было в предыдущем случае. Теперь мы имеем наименования месяцев во всех элементах календаря.

=ДАТА(ГОД(D4);МЕСЯЦ(D4);1-1)-(ДЕНЬНЕД(ДАТА(ГОД(D4);МЕСЯЦ(D4);1-1))-1)+<0:1:2:3:4:5:6>*7+ <1;2;3;4;5;6;7>Жмем сочетание клавиш на клавиатуре Ctrl+Shift+Enter.

Производим в блоке календаря за январь выделение ячеек, в которых содержатся числа. Кликаем по значку «Условное форматирование», размещенному на ленте во вкладке «Главная» в блоке инструментов «Стили». В появившемся перечне выбираем значение «Создать правило».

Открывается окно создания правила условного форматирования. Выбираем тип «Использовать формулу для определения форматируемых ячеек». В соответствующее поле вставляем формулу:

=И(МЕСЯЦ(D6)1+3*(ЧАСТНОЕ(СТРОКА(D6)-5;9))+ЧАСТНОЕ(СТОЛБЕЦ(D6);9)) D6 – это первая ячейка выделяемого массива, который содержит даты. В каждом конкретном случае её адрес может отличаться. Затем кликаем по кнопке «Формат».

В открывшемся окне переходим во вкладку «Шрифт». В блоке «Цвет» выбираем белый или цвет фона, если у вас установлен цветной фон календаря. Жмем на кнопку «OK».

Вернувшись в окно создания правила, жмем на кнопку «OK».

Точно такую же операцию проделываем и с другими элементами календаря.

=СЕГОДНЯ() В формате заливки выбираем любой цвет, отличающийся от общего фона, например зеленый. Жмем на кнопку «OK».

После этого, ячейка, соответствующая текущему числу, будет иметь зеленый цвет.

В целом работа над созданием «вечного» календаря завершена, хотя вы можете ещё долго проводить над ним различные косметические работы, редактируя внешний вид на свой вкус. Кроме того, отдельно можно будет выделить, например, праздничные дни.

Урок: Условное форматирование в Excel

Способ 3: использование шаблона

Те пользователи, которые ещё в недостаточной мере владеют Экселем или просто не хотят тратить время на создание уникального календаря, могут воспользоваться готовым шаблоном, закачанным из интернета. Таких шаблонов в сети довольно много, причем велико не только количество, но и разнообразие. Найти их можно, просто вбив соответствующий запрос в любую поисковую систему. Например, можно задать следующий запрос: «календарь шаблон Excel».

Примечание: В последних версиях пакета Microsoft Office огромный выбор шаблонов (в том числе и календарей) интегрирован в состав программных продуктов. Все они отображаются непосредственно при открытии программы (не конкретного документа) и, для большего удобства пользователя, разделены на тематические категории. Именно здесь можно выбрать подходящий шаблон, а если такового не найдется, его всегда можно скачать с официального сайта Office.com.

По сути, такой шаблон — уже готовый календарь, в котором вам только останется занести праздничные даты, дни рождения или другие важные события. Например, таким календарем является шаблон, который представлен на изображении ниже. Он представляет собой полностью готовую к использованию таблицу.

Вы можете в нем с помощью кнопки заливки во вкладке «Главная» закрасить различными цветами ячейки, в которых содержатся даты, в зависимости от их важности. Собственно, на этом вся работа с подобным календарем может считаться оконченной и им можно начинать пользоваться.

Мы разобрались, что календарь в Экселе можно сделать двумя основными способами. Первый из них предполагает выполнение практически всех действий вручную. Кроме того, календарь, сделанный этим способом, придется каждый год обновлять. Второй способ основан на применении формул. Он позволяет создать календарь, который будет обновляться сам. Но, для применения данного способа на практике нужно иметь больший багаж знаний, чем при использовании первого варианта. Особенно важны будут знания в сфере применения такого инструмента, как условное форматирование. Если же ваши знания в Excel минимальны, то можно воспользоваться готовым шаблоном, скачанным из интернета.

Мы рады, что смогли помочь Вам в решении проблемы.

Задайте свой вопрос в комментариях, подробно расписав суть проблемы. Наши специалисты постараются ответить максимально быстро.

Источник

В этой статье мы рассмотрим достаточно интересную разработку, позволяющую автоматизировать процесс составления расписания занятий в учебном заведении (это может быть вуз, колледж, школа и др.). Фактически мы попробуем построить информационную систему для эффективного управления аудиторным фондом. В понятие управление вкладывается создание разнообразных сервисных функций для пользователя, необходимых ему при составлении расписания учебных занятий. Это будут формы для ввода информации о занятиях и подбора аудитории, возможности просмотра расписания и занятости аудиторного фонда.

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

Функциональные возможности разрабатываемой книги Microsoft Excel рассчитаны на широкую категорию пользователей. В связи с тем, что все читатели знакомы с учебным процессом по школе, колледжу или вузу, перечисленные далее основные сервисные возможности разработки должны быть понятны:

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

Ввод начальной информации

Понятно, что рассматриваемая разработка требует некоторой начальной информации — о группах, аудиторном фонде и т. д. Фактически нам необходимы справочники по группам, аудиториям, преподавателям и еще ряду категорий. Такие данные заносятся на отдельный лист книги; один из вариантов его заполнения представлен на рис. 5.15.

Рис. 5.15. Лист, содержащий справочную информацию

Здесь в столбцы А и В нужно ввести информацию об имеющихся аудиториях (при этом в первый столбец заносится номер аудитории, а во второй — количество мест в ней). В столбец С следует занести номера учебных недель в семестре (нумерация недель достаточно широко распространена в учебных заведениях).

В столбце D располагаются учебные дни в течение недели, а столбец Е отводится для времени начала занятий. Так, во второй строке этого столбца отображается время начала первого занятия, в третьей строке — начало второго занятия, и т. д.

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

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

Таким образом, лист Нач. инф. представляет собой совокупность исходных данных для работы программы составления расписания и должен заполняться в первую очередь. Все рассматриваемые далее процедуры используют эту начальную информацию.

Перейдем к рассмотрению листа Заявки (рис. 5.16), который предназначен для фиксации заявок на проведение занятий, а также для указания аудиторий, где они должны проходить.

Традиционно в большинстве разработок на первом листе рабочей книги располагаются элементы управления, связанные с основными действиями пользователя, и здесь мы поступим таким же образом. В дальнейших программных процедурах учитывается, что лист Заявки является первым в последовательности листов книги, а лист Нач. инф. располагается на втором месте.

Рис. 5.16. Организация листа Заявки

Основное содержание листа Заявки — регистрация заявок на проведение учебных занятий и аудиторий, которые для этих занятий выделяются. Для этого в верхней части листа располагаются два элемента управления. О них мы поговорим позднее, но уже из надписей на кнопках понятны их функции.

Посмотрим теперь на информацию, расположенную начиная с четвертой строки листа (третья строка отводится для заголовков столбцов). Здесь каждая строка в этой области содержит заявку на проведение определенного занятия новая заявка вводится в очередную свободную строку на этом листе. При этом информацию по заявке условно можно разделить на две категории:

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

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

Так, в каждой строке столбцы F и G отводятся для записи информации об обслуживании заявки (подобранной для нее аудитории). И если аудитория подобрана, то в столбец F программно записывается слово «да», а в следующий столбец вписывается номер аудитории. Фактически информация на первом листе представляет собой определенную базу данных.

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

В столбце Е для каждой заявки указывается количество студентов, которые учатся в данной группе. Эта информация вносится автоматически после выбора названия группы (вы уже видели, что на втором листе присутствует два связанных столбца — название группы и число студентов в ней). В столбцах, начиная с J, отмечаются недели, когда должны проводиться занятия по данной заявке. Звездочка в соответствующем столбце говорит о том, что на этой неделе занятие планируется. В дальнейшем для исключения лишних фрагментов мы ограничимся семью неделями учебного процесса.

Нумерация учебных недель является типичной для учебных заведений. Это связано с тем, что количество аудиторных часов для разных дисциплин по учебному плану неодинаково. В связи с этим какие-то дисциплины в семестре ограничены тремя занятиями, а какие-то продолжаются в течение всего семестра.

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

Рассмотрим теперь элементы управления на рис. 5.16. Это две кнопки, которые на листе расположены в области первых двух строк. В табл. 5.1 приведены значения их свойств Name и Caption.

Таблица 5.1. Значения свойств кнопок, расположенных на листе Заявки

Name	Caption
Input_New	Ввод новой заявки
Input_Auditoria	Подбор аудитории

Понятно, что заполнение информации о заявке и тем более подбор для нее подходящей аудитории требуют определенного алгоритма. Так, программа должна обнаруживать возможный ввод некорректных заявок. Например, при вводе очередной заявки преподаватель может быть в указанное время уже занят. Другая возможная ситуация — для указанной в заявке группы уже зафиксировано другое занятие в это время. Все эти и другие подобные ситуации создаваемая разработка должна отслеживать. При этом автоматическая блокировка подобных накладок не требуется, так как, возможно, они закладываются в расписание не случайно.

Форма для ввода заявок

Форма, которую мы здесь рассмотрим, связана с вводом новой заявки на проведение занятий. Пользователю для вызова этой формы нужно просто щелкнуть на кнопке Ввод новой заявки. После этого автоматически выполняется предопределенная процедура, приведенная в листинге 5.20.

' Листинг 5.20. Обработка щелчка на кнопке Ввод новой заявки
Private Sub Input_New_Click()
    Form_Add.Show
End Sub

Здесь Form_Add — значение свойства Name формы, которую мы далее разработаем для ввода информации. Выполняется метод Show этой формы, который загружает ее в память и отображает на экране. Фактически для пользователя щелчок на кнопке ввода новой заявки приводит к появлению формы на экране. На рис. 5.17 представлена рассматриваемая форма ввода.

Рис. 5.17. Форма ввода заявок на занятия

На форме расположено шесть элементов управления типа «Поле со списком» или ComboBox (в табл. 5.2 приведены значения их свойства Name). Для каждого подобного объекта рядом имеется поясняющая надпись. При активизации формы эти элементы автоматически заполняются информацией со второго листа книги. Скажем, при щелчке на поле со списком преподавателей мы увидим фамилии преподавателей, предварительно внесенные нами на второй лист.

Таблица 5.2. Значения свойства Name полей со списками на рис. 5.17

Name	Подпись
Boss	Декан
Prepod	Преподаватель
Day	День
Time	Время
Group	Группа
Disp	Дисциплина

В правой части формы расположено текстовое окно Количество студентов (Name — Col_Stud), в которое автоматически заносится информация о количестве студентов после выбора группы. Это обеспечивает процедура, представленная в листинге 5.21.

' Листинг 5.21. Обработка щелчка в поле со списком групп учащихся
Private Sub Group_Click()
Col_Stud.Text = Worksheets(2).Cells(Group.ListIndex + 2, 2).Value
End Sub

В верхней части формы присутствует набор элементов управления тина «Флажок». Каждый флажок предназначен для указания определенного номера недели, когда должно проводиться занятие. Значения свойства Name флажков формируются как комбинация символов Ch и номера недели: Chi, Ch2 и т. д. Здесь предполагается, что в учебном блоке не больше 7 учебных недель.

В нижней части формы располагаются три важные функциональные кнопки. При щелчке на кнопке Выход (Name — Com_Out) форма просто закрывается, и никакой записи информации в базу данных первого листа не производится. В листинге 5.22 приведен текст предопределенной процедуры для обработки щелчка на кнопке Выход. Метод Hide позволяет закрыть форму и вернуться на рабочий лист.

' Листинг 5.22. Обработка щелчка на кнопке Выход
Private Sub Com_Out_Click()
    Form_Add.Hide
End Sub

Другие две кнопки позволяют перенести на рабочий лист данные, внесенные пользователем в форму. При этом одна из кнопок (Зафиксировать и ввести следующую, Name — Com_Next) после записи оставляет форму активной, а другая (Name — Com_Wr_Out) закрывает ее. При активизации формы автоматически выполняется предопределенная процедура UserForm_Activate, а ее текст приведен в листинге 5.23. Основное ее назначение заключается в заполнении списков преподавателей, групп и т. д. Данные для заполнения берутся со второго листа, о чем уже говорилось.

' Листинг 5.23. Процедура, выполняемая при активизации формы на рис. 5.17
Private Sub UserForm_Activate()
Ch1.Value = False
Ch2.Value = False
Ch3.Value = False
Ch4.Value = False
Ch5.Value = False
Ch6.Value = False
Ch7.Value = False
'Заполнение заявителей
N = 0
While Worksheets(2).Cells(N + 2, 6).Value <> ""
    N = N + 1
Wend
Boss.Clear
For i = 1 To N
Boss.AddItem Worksheets(2).Cells(i + 1, 6).Value
Next
'Заполнение преподавателей
N = 0
While Worksheets(2).Cells(N + 2, 7).Value <> ""
    N = N + 1
Wend
Prepod.Clear
For i = 1 To N
Prepod.AddItem Worksheets(2).Cells(i + 1, 7).Value
Next
' Заполнение учебных дней
N = 0
While Worksheets(2).Cells(N + 2, 4).Value <> ""
    N = N + 1
Wend
Day.Clear
For i = 1 To N
Day.AddItem Worksheets(2).Cells(i + 1, 4).Value
Next
'Заполнение начала пар
N = 0
While Worksheets(2).Cells(N + 2, 5).Value <> ""
    N = N + 1
Wend
Time.Clear
For i = 1 To N
Time.AddItem Worksheets(2).Cells(i + 1, 5).Value
Next
' Заполнение названий групп
N = 0
While Worksheets(2).Cells(N + 2, 8).Value <> ""
    N = N + 1
Wend
Group.Clear
For i = 1 To N
Group.AddItem Worksheets(2).Cells(i + 1, 8).Value
Next
' Заполнение названий дисциплин
N = 0
While Worksheets(2).Cells(N + 2, 10).Value <> ""
    N = N + 1
Wend
Disp.Clear
For i = 1 To N
    Disp.AddItem Worksheets(2).Cells(i + 1, 10).Value
Next
    Col_Stud.Text = ""
End Sub

Выполнение рассмотренной процедуры приводит к тому, что при активизации формы ввода все расположенные на ней списки автоматически заполняются. Теперь от пользователя требуется указать в них параметры заявки. Когда эго будет сделано, требуется щелчком на одной из двух кнопок зафиксировать введенную информацию. В листинге 5.24 приведена процедура обработки щелчка на кнопке Зафиксировать и ввести следующую.

' Листинг 5.24. Процедура щелчка на кнопке Зафиксировать и ввести следующую
Private Sub Com_Next_Click()
' Массивы для фиксации пересечений в занятиях
' по группам и преподавателям
Dim Mass(10) As Integer
Dim Mass2(10) As Integer
' Поле заявителя необходимо заполнить
If Boss.ListIndex = -1 Then
    MsgBox ("Выберите заявителя")
    Exit Sub
End If
' Поле преподавателя необходимо заполнить
If Prepod.ListIndex = -1 Then
    MsgBox ("Выберите преподавателя")
    Exit Sub
End If
' Поле для указания дня недели должно быть заполнено
If Day.ListIndex = -1 Then
    MsgBox ("Выберите день")
    Exit Sub
End If
' Поле для указания начала занятий должно быть заполнено
If Time.ListIndex = -1 Then
MsgBox ("Выберите время")
Exit Sub
End If
' Поле для указания группы должно быть заполнено
If Group.ListIndex = -1 Then
    MsgBox ("Выберите группу")
    Exit Sub
End If
' Необходимо выбрать дисциплину
If Disp.ListIndex = -1 Then
    MsgBox ("Выберите дисциплину")
    Exit Sub
End If
' Необходимо указать количество студентов
If IsNumeric(Col_Stud.Text) = False Then
    MsgBox ("Не указано количество студентов")
    Exit Sub
End If
' Подсчет числа заявок на первом листе
N = 0
While Worksheets(1).Cells(N + 4, 1).Value <> ""
    N = N + 1
Wend
' Запись информации на первый лист
Worksheets(1).Cells(N + 4, 1).Value = Boss.Text
Worksheets(1).Cells(N + 4, 2).Value = Prepod.Text
Worksheets(1).Cells(N + 4, 3).Value = Day.Text
Worksheets(1).Cells(N + 4, 4).Value = Time.Text
Worksheets(1).Cells(N + 4, 5).Value = Col_Stud.Text
Worksheets(1).Cells(N + 4, 8).Value = Group.Text
Worksheets(1).Cells(N + 4, 9).Value = Disp.Text
If Ch1.Value = True Then
    Worksheets(1).Cells(N + 4, 10).Value = "*"
    End If
If Ch2.Value = True Then
    Worksheets(1).Cells(N + 4, 11).Value = "*"
End If
If Ch3.Value = True Then
    Worksheets(1).Cells(N + 4, 12).Value = "*"
End If
If Ch4.Value = True Then
    Worksheets(1).Cells(N + 4, 13).Value = "*"
End If
If Ch5.Value = True Then
    Worksheets(1).Cells(N + 4, 14).Value = "*"
End If
If Ch6.Value = True Then
    Worksheets(1).Cells(N + 4, 15).Value = "*"
End If
If Ch7.Value = True Then
    Worksheets(1).Cells(N + 4, 16).Value = "*"
End If
Key = 0 ' Переменная-индикатор при наличии накладок в расписании
Ch_mass = 0
' Счетчик накладок по группам
Ch_mass2 = 0
' Счетчик накладок по преподавателям
' Цикл по заявкам
For it = 4 To 4 + N - 1
' Проверка преподавателя
    q1 = Worksheets(1).Cells(it, 2).Value 'Преподаватель
    q2 = Worksheets(1).Cells(it, 3).Value 'День
    q3 = Worksheets(1).Cells(it, 4).Value 'Время
    Zan_Pr = 0 ' Сброс индикатора занятости преподавателя
    If q1 = Worksheets(1).Cells(N + 4, 2).Value And _
    q2 = Worksheets(1).Cells(N + 4, 3).Value And _
    q3 = Worksheets(1).Cells(N + 4, 4).Value Then
    For Ned = 10 To 16
    If Worksheets(1).Cells(N + 4, Ned).Value <> "" _
        And Worksheets(1).Cells(it, Ned).Value <> "" Then
    Zan_Pr = 1 ' Преподаватель занят
    Exit For
End If
Next
If Zan_Pr = 1 Then
    Mass(Ch_mass) = it
    Ch_mass = Ch_mass + 1
    Key = 1 ' Отмечается факт противоречия в данных
    End If
    End If
'Проверка группы
    q1 = Worksheets(1).Cells(it, 8).Value
    q2 = Worksheets(1).Cells(it, 3).Value
    q3 = Worksheets(1).Cells(it, 4).Value
    Zan_Gr = 0
    If q1 = Worksheets(1).Cells(N + 4, 8).Value And _
    q2 = Worksheets(1).Cells(N + 4, 3).Value And _
    q3 = Worksheets(1).Cells(N + 4, 4).Value Then
    For Ned = 10 To 16
        If Worksheets(1).Cells(N + 4, Ned).Value <> "" And _
        Worksheets(1).Cells(it, Ned).Value <> "" Then
        Zan_Gr = 1
        Exit For
    End If
    Next
        If Zan_Gr = 1 Then
        Mass2(Ch_mass2) = it
        Ch_mass2 = Ch_mass2 + 1
        Key = 1 ' Отмечается факт противоречия в данных
        End If
        End If
    Next ' Завершение цикла по заявкам
If Key = 1 Then
    If Ch_mass > 0 Then ' Если есть противоречия по преподавателю
    Inform_str = "" ' Формирование информационной строки
    For i = 0 To Ch_mass - 1
    If Inform_str <> "" Then
    Inform_str = Inform_str + ","
    End If
    Inform_str = Inform_str + CStr(Mass(i))
    Next
    Inform_str = "Преподаватель занят. Заявка в стр. " + Inform_str
    MsgBox (Inform_str)
    End If
    If Ch_mass2 > 0 Then ' Накладка по группе
    Inform_str = "" ' Формирование информационной строки
        For i = 0 To Ch_mass2 - 1
            If Inform_str <> "" Then
                Inform_str = Inform_str + ","
                End If
                Inform_str = Inform_str + CStr(Mass2(i))
        Next
        Inform_str = "У группы уже есть занятие. Заявка в стр. " + Inform_str
        MsgBox (Inform_str)
        End If
' Выбор варианта действия пользователя
Inform = MsgBox("Если все равно записать заявку - Да. " + _
        " Если продолжить редактирование - Отмена. " + _
        " Если удалить, то нажмите - Нет. ", _
        vbYesNoCancel)
If Inform = vbNo Or Inform = vbCancel Then
' Удаление только что введенных данных
    For i = 1 To 16
    Worksheets(1).Cells(N + 4, i).Value = ""
    Next
End If
End If
End Sub

В начале процедуры подсчитывается количество уже имеющихся заявок на первом листе:

N = 0
While Worksheets(1).Cells(N + 4, 1).Value <> ""
    N = N + 1
Wend

Это делается для того, чтобы записать новую заявку в очередную свободную строку. Однако до этого проверяется, все ли данные введены: заявитель, преподаватель, группа и т. д. Что касается полей со списками, то для них индикатором выбора элемента в списке является значение свойства ListIndex (номер выбранного элемента): -1 означает, что в списке не выбран ни один элемент. Например, если не указан день, то следующая конструкция выводит соответствующее сообщение и процедура на этом завершается:

If Day.ListIndex = -1 Then
MsgBox ("Выберите день")
Exit Sub
End If

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

If IsNumeric(Col_Stud.Text) = False Then
MsgBox ("Введите число студентов")
Exit Sub
End If

Функция IsNumeric возвращает значение False, если входной параметр не является числом. Таким образом, если вместо количества студентов пользователь введет строку с включением букв или других символов, то процедура воспримет подобную информацию как некорректную.

Итак, мы рассмотрели так называемый блок предварительной проверки данных. Далее в процедуре располагается фрагмент, позволяющий выявить противоречия с уже имеющимися данными. Для этой проверки вводится переменная Key, которая в начале проверки принимает значение 0, а если в процессе просмотра имеющихся заявок обнаруживается накладка (по преподавателю или по группе), программно устанавливается в значение 1. Это является индикатором для вывода информационного сообщения в конце процедуры. Сама проверка технически достаточно проста — проверяется, есть ли в указанное время занятия в выбранной группе и у данного преподавателя. Однако несколько деталей мы все же поясним.

Так, в начале процедуры определены массивы Mass и Mass2. При вводе новой заявки процедура просматривает все предыдущие, проверяя, нет ли накладок в расписании по преподавателю и группе. Допустим, преподаватель может вести занятие для нескольких групп. Тогда при вводе новой заявки, если у преподавателя уже есть заявка на это время, в массиве Mass запоминается ее строка на первом листе книги, а в счетчик заявок Ch_mass добавляется 1. Например, если в результате просмотра всех имеющихся заявок в переменной Ch_mass будет число 5, это говорит о том, что у преподавателя в это время уже есть 5 других занятий (такое возможно при проведении занятия для нескольких групп одновременно). В конце процедуры на экран будет выведено одно сообщение с упоминанием обо всех этих заявках.

Массив Mass2 предназначен для проверки накладок по группе. Если у рассматриваемой группы yжe есть заявка на это время, то в массиве Mass2 запоминается номер строки этой имеющейся заявки, а в счетчик заявок Ch_mass2 добавляется 1. Например, если в результате просмотра всех имеющихся заявок в переменной Ch_mass2 будет число 1, это говорит о том, что у группы в это время уже есть другое занятие. В конце процедуры на экран выводится окно сообщения с упоминанием обо всех этих заявках. Фактически предназначение массивов — служить буфером для хранения информации, который очищается в начале процедуры.

Теперь несколько слов о завершении процедуры. Если накладок нет, то заявка, созданная в форме, просто остается записанной на первом листе. Если обнаруживается противоречие по группе или преподавателю, то предлагается либо удалить заявку, либо продолжить ее корректировать, либо просто ее оставить на листе. Это реализуется с помощью уже известной вам стандартной функции:

1
2
3

Inform = MsgBox("Если все равно записать, то нажмите — Да. " + _
" Если продолжить редактировать, то нажмите — Отмена. " + _
" Если удалить заявку, то нажмите — Нет. ", vbYesNoCancel)

В этом месте процедуры на экран выводится стандартное диалоговое окно с кнопками Да, Нет и Отмена. В случае выбора варианта Отмена либо Нет выполняется очистка только что введенных данных на листе:

If inform = vbNo Or inform = vbCancel Then
For i = 1 To 16
Worksheets(1).Cells(N + 4, i).Value = ""
Next
End If

Таким образом, пользователь может отредактировать имеющуюся заявку в форме либо создать новую. А если накладок нет, то набранная заявка просто остается записанной на первом листе. На рис. 5.18 показан результат ввода одной из заявок на занятие.

Рис. 5.18. Заполненная заявка на проведение занятий

Процедура обработки щелчка на кнопке Зафиксировать и выйти принципиально не отличается от только что рассмотренной. Различия лишь в заключительном фрагменте программного кода, который отдельно приведен в листинге 5.25.

' Листинг 5.25. Фрагмент процедуры щелчка на кнопке Зафиксировать и выйти
Private Sub Com_Wr_Out_Click()
If Key = 1 Then
    If Ch_mass > 0 Then ' Если есть противоречия по преподавателю
    Inform_str = "" ' Формирование информационной строки
    For i = 0 To Ch_mass - 1
    If Inform_str <> "" Then
    Inform_str = Inform_str + ","
    End If
    Inform_str = Inform_str + CStr(Mass(i))
    Next
    Inform_str = "Преподаватель занят. Заявка в стр. " + Inform_str
    MsgBox (Inform_str)
    End If
    If Ch_mass2 > 0 Then
' Накладка по группе
    Inform_str = "" ' Формирование информационной строки
        For i = 0 To Ch_mass2 - 1
            If Inform_str <> "" Then
                Inform_str = Inform_str + ","
            End If
            Inform_str = Inform_str + CStr(Mass2(i))
        Next
    Inform_str = "У группы уже есть занятие. Заявка в стр. " + Inform_str
    MsgBox (Inform_str)
End If
' Выбор варианта действия пользователя
Inform = MsgBox("Если все равно записать заявку - Да. " + _
    " Если продолжить редактирование - Отмена. " + _
    " Если удалить, то нажмите - Нет. ", _
    vbYesNoCancel)
If Inform = vbNo Or Inform = vbCancel Then
' Удаление только что введенных данных
    For i = 1 To 16
    Worksheets(1).Cells(N + 4, i).Value = ""
    Next
Else
Form_Add.Hide
End If
Else
Form_Add.Hide
End If
End Sub

Итак, можно подвести итоги. Мы познакомились с процедурами, связанными с формой для ввода заявок. Однако, несмотря на внешне привлекательный вид электронной формы и некоторые сервисные возможности, подобное заполнение заявок при активной работе пользователя является в некоторых случаях не очень удобным.

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

Форма для подбора аудитории

В этом разделе мы рассмотрим один из наиболее интересных компонентов разработки — форму для подбора аудиторий для заявок на проведение учебных занятий. Сама форма с разнообразными элементами управления приведена на рис. 5.19, а для ее активизации на первом листе имеется кнопка с соответствующей надписью. В листинге 5.26 приведен текст процедуры, с помощью которой рассматриваемую электронную форму можно вывести на экран. Из текста видно, что в качестве значения свойства Name для формы подбора аудитории выбрано Form_Podbor.

' Листинг 5.26. Обработка щелчка на кнопке Подбор аудитории на первом листе
Private Sub Input_Auditoria_Click()
    Form_Podbor.Show
End Sub

Рис. 5.19. Форма подбора аудитории

Рассмотрим последовательно все основные расположенные на форме (рис. 5.19) элементы. В левом верхнем углу находится элемент управления типа ListBox (Name — Num_Str), а чуть выше располагается поясняющая подпись к нему — Номер строки. Этот список при активизации формы автоматически заполняется заявками, для которых еще не подобрана аудитория. Точнее не самими заявками, а номерами строк первого листа, где эти заявки расположены. В дальнейшем, выбрав (выделив) в списке номер заявки, мыс помощью специально разработанного алгоритма будем подбирать для нее подходящую аудиторию.

В левой части рис. 5.19 расположена группа элементов типа Label — они предназначены для отображения параметров заявки, выбранной в списке Num_Str. Эти элементы выделяются светлым цветом на фоне формы и снабжены поясняющими подписями. В табл. 5.3 приведены значения свойства Name элементов типа Label и соответствующие подписи.

Теперь перейдем к элементу управления Frame с подписью Поиск аудитории, который включает в себя несколько объектов. В верхней части этого условного контейнера объектов располагается кнопка Начать (Name — Begin_Poisk), щелчком на которой запускается алгоритм подбора аудитории для указанной в списке Num_Str заявки.

Таблица 5.3. Элементы управления Label для указания параметров заявок

Name	Подпись
Boss	Декан
Prepod	Преподаватель
Day	День
Times	Время
Group	Группа
Disp	Дисциплина
Col_Stud	Количество студентов

Программа обнаруживает совместные заявки на одно занятие для нескольких групп и подбирает им одну (достаточно вместительную) аудиторию. Так, при выборе в списке Num_Str заявки для обслуживания, возможна ситуация, когда у указанного преподавателя аналогичное занятие есть и в других группах. Эту ситуацию программа «видит» (при выделении одной из таких фупповых заявок в списке Num_Str) и запоминает во внутренней структуре данных. В дальнейшем по щелчку на кнопке Начать производится поиск общей аудитории для всех этих групп.

Продолжим обсуждение элементов, находящихся в рамке Поиск аудитории на форме. Элемент управления типа ListBox (Name — SpAyd), куда программная процедура записывает подходящие для заявки аудитории, расположен ниже кнопки Начать. Действия пользователя заключаются в указании конкретной аудитории в этом списке (щелчком мышью следует выделить одну из подходящих аудиторий). Элемент управления типа Label (Name — Inf_vmest), расположенный рядом с подписью Вместимость, используется для отображения вместимости выбранной аудитории в списке SpAyd. Теперь пользователю следует нажать кнопку Записать аудиторию (Name — Com_Write), что позволяет зафиксировать аудиторию, выбранную в списке, в строке заявки на первом листе.

Важно отметить следующую особенность, о которой выше мыуже упоминали. При выборе в списке Num_Str заявки для обслуживания алгоритм автоматически просматривает наличие групповых занятий (одно занятие для нескольких групп). Эта ситуация запоминается во внутренней структуре данных, которая будет использоваться в дальнейшем при подборе аудитории.

В правой нижней части формы расположен элемент «Надпись» (Name — Inf_z), который предназначен для вывода информационных сообщений о наличии групповых заявок. Заполнение этого элемента производится при щелчке на списке Num_Str. В этом случае указывается, какие заявки комбинируются с выбранной. Таким образом, мы рассмотрели основные элементы управления, присутствующие на форме, и теперь можем перейти к описанию программного кода.

По щелчку на кнопке Подобрать аудиторию на первом листе происходит активизация этой формы. В этом случае выполняется предопределенная процедура UserForm_Activate (листинг 5.27).

' Листинг 5.27. Процедура, выполняемая при активизации формы подбора аудиторий
Private Sub UserForm_Activate()
' Подсчет числа заявок на первом листе
N = 0
While Worksheets(1).Cells(N + 4, 1).Value <> ""
N = N + 1
Wend
' Подсчет числа аудиторий
N_Rooms = 0
While Worksheets(2).Cells(N_Rooms + 2, 1).Value <> ""
N_Rooms = N_Rooms + 1
Wend
' Заполнение списка заявок
Num_Str.Clear
For i = 1 To N
Obslz = Worksheets(1).Cells(i + 3, 6).Value
If Obslz = "" Then
Num_Str.AddItem Worksheets(1).Cells(i + 3, 1).Row
End If
Next
'Заполнение списка аудиторий
If Num_Str.ListCount > 0 Then
Num_Str.ListIndex = Num_Str.ListCount - 1
End If
Com_Write.Enabled = False
End Sub

Действия, выполняемые в соответствии с данной процедурой, достаточно несложные, поэтому мы ограничимся комментарием, присутствующим в тексте листинга. Таким образом, пользователь при открытии формы подбора аудитории получил заполненный список заявок, для которых еще не подобрана аудитория. От него далее требуется выделить заявку на занятие, для которой он собирается поставить аудиторию. В этом случае нам понадобится процедура, выполняемая по щелчку на списке Num_Str, текст которой приведен в листинге 5.28. Далее мы прокомментируем ее основные программные конструкции.

' Листинг 5.28. Процедура, выполняемая при щелчке на списке Num_Str
Private Sub Num_Str_Click()
Inf_z.Caption = "" 'Очистка информационного поля
Select_vibor = CInt(Num_Str.Text) 'Номер выделенной заявки
' Перенос информации о параметрах заявки на форму
Boss.Caption = Worksheets(1).Cells(Select_vibor, 1).Value
Prepod.Caption = Worksheets(1).Cells(Select_vibor, 2).Value
Day.Caption = Worksheets(1).Cells(Select_vibor, 3).Value
Times.Caption = Worksheets(1).Cells(Select_vibor, 4).Value
Col_Stud.Caption = Worksheets(1).Cells(Select_vibor, 5).Value
Group.Caption = Worksheets(1).Cells(Select_vibor, 8).Value
Disp.Caption = Worksheets(1).Cells(Select_vibor, 9).Value
Ned.Caption = ""
For i = 10 To 16
    If Worksheets(1).Cells(Select_vibor, i).Value <> "" Then
    Ned.Caption = Ned.Caption + CStr(i - 9) + ","
    End If
Next
' Подсчет числа заявок на первом листе
N = 0
While Worksheets(1).Cells(N + 4, 1).Value <> ""
    N = N + 1
Wend
N_Group = 0 ' Переменная для подсчета разных групп в одной аудитории
For i = 1 To N ' Основной цикл по заявкам
    Num = i + 3
    If Num <> Select_vibor Then ' Пропускаем выбранную заявку
    Prep = Worksheets(1).Cells(Num, 2).Value
    Day_Ned = Worksheets(1).Cells(Num, 3).Value
    Vre = Worksheets(1).Cells(Num, 4).Value
    Ob = Worksheets(1).Cells(Num, 6).Value
' Если у необслуженной заявки совпадают — день, время и преподаватель
    If Prep = Prepod.Caption And Day_Ned = Day.Caption And _
    Vre = Times.Caption And Ob = "" Then
    Zan = 0
    For j = 10 To 16
    If Worksheets(1).Cells(Num, j).Value = "*" And Worksheets(1).Cells(Select_vibor, j).Value = "*" Then
    Zan = 1 ' Если есть пересечение занятий
    Exit For
    End If
Next
If Zan = 1 Then
' Отмечаем информацию о совместных занятиях
    N_Group = N_Group + 1
    Mass_Group(N_Group) = Num
    End If
End If
End If
Next ' Завершение цикла по заявкам
' Выбранная завка сохраняется в элементе с нулевым индексом
Mass_Group(0) = Select_vibor
' Вывод информации о совместных заявках
If N_Group > 0 Then
    Inf_z.Caption = "Совместные заявки в строках "
    For i = 1 To N_Group
' Корректировка числа студентов
        Col_Stud.Caption = CInt(Col_Stud.Caption) + _
        Worksheets(1).Cells(Mass_Group(i), 5).Value
' Перечисление строк групповых занятий на 1-м листе
        Inf_z.Caption = Inf_z.Caption + Str(Mass_Group(i)) + ","
    Next
End If
End Sub

В начале процедуры в совокупность надписей на форме записывается информация о параметрах выбранной заявки. Например, строка Boss.Caption = Worksheets(1).Cells(Select_vibor, 2).Value заполняет поле заявителя на форме — элемент Label с именем Boss. Далее в цикле

For i = 10 To 16
    If Worksheets(1).Cells(Select_vibor, i).Value <> "" Then
    Ned.Caption = Ned.Caption + CStr(i - 9) + ","
    End If
Next

в надпись с именем Ned записываются номера недель, когда занятия будут проводиться. Как уже говорилось, если на первом листе в соответствующей ячейке присутствует символ звездочка, то, следовательно, запятые на этой неделе есть.

Для отслеживания групповых занятий в разделе General определяется счетчик количества групповых занятий (N_Group). Еще один массив предназначен для запоминания номеров строк заявок с общим одновременным занятием в одной аудитории (Mass_Group). На рис. 5.20 показана область описания общих переменных для рассматриваемой формы.

Рис. 5.20. Общие переменные формы подбора аудитории

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

В процедуре Num_Str_Click основной цикл заключается в переборе всех необслуженных заявок на первом листе. В начале этой процедуры переменная N_Group устанавливается в 0, а при обнаружении такого же занятия (у того же преподавателя) в другой группе увеличивается на 1.

В результате, если у выбранной в списке Num_Str заявки находятся совместные, то информация о них выводится в элемент надпись, расположенный в нижней части формы:

If N_Group > 0 Then
Inf_z.Caption = "Совместные заявки в строках "
For i = 1 To N_Group
Col_Stud.Caption = CInt(Col_Stud.Caption) + _
Worksheets(1).Cells(Mass_Group(i), 5).Value
Inf_z.Caption = Inf_z.Caption + Str(Mass_Group(i)) + ","
Next
End If

Здесь производится суммирование количества студентов во всех объединяемых группах в надписи Col_Stud.

Таким образом, когда мы выделяем мышью в списке одну из заявок, то с помощью предопределенной процедуры, выполняемой по щелчку в списке Num_Str (с подписью Номер строки), выполняются следующие действия:

Заполняются информационные надписи на форме параметрами заявки.
Просматривается наличие групповых заявок, и если они есть, то в массив Mass_Group записываются номера строк, в которых эти заявки расположены на первом листе. Количество групповых заявок отображается в переменной N_Group.
Информация об имеющихся групповых занятиях выводится в информационную надпись в нижней части экрана.

Таким образом, в результате описанных действий мы подготовились к процедуре , выполняемой по кнопке Начать, которая запускает алгоритм поиска подходящих аудиторий для указанной заявки. Эта процедура Begin_Poisk_Click приведена в листинге 5.29, а далее мы прокомментируем ее основные моменты.

' Листинг 5.29. Процедура, выполняемая при щелчке на кнопке Начать
Private Sub Begin_Poisk_Click()
Inf_vmest.Caption = ""
SpAyd.Clear
If Num_Str.ListIndex = -1 Then
    MsgBox ("Не выбрана заявка на занятие")
    Exit Sub
End If
' Подсчет числа аудиторий
Nom = 0
While Worksheets(2).Cells(Nom + 2, 1).Value <> ""
    Nom = Nom + 1
Wend
' Подсчет числа заявок
N = 0
While Worksheets(1).Cells(N + 4, 1).Value <> ""
    N = N + 1
Wend
For i = 1 To Nom ' Цикл по аудиториям
    Ayd = Worksheets(2).Cells(i + 1, 1).Value
' Проверка вместимости
    If Worksheets(2).Cells(i + 1, 2).Value >= CInt(Col_Stud.Caption)
Then
    SpAyd.AddItem Ayd
    End If
Next
End Sub

Например, на рис. 5.21 показано, что вместе с текущей заявкой есть еще одна — совместная (одно занятие для нескольких групп). В списке аудиторий приведен перечень подходящих для указанного занятия аудиторий (результат щелчка на кнопке Начать — в этом случае подбираются аудитории подходящие по вместимости для двух групп).

Рис. 5.21. Форма подбора аудиторий

Так, в начале процедуры в листинге 5.28 проверяется, сделан ли выбор заявки, и если нет, то процедура завершается, так как обслуживать нечего:

If Num_Str.ListIndex.ListIndex = -1 Then
MsgBox ("Не выбран номер строки заявки")
Exit Sub
End If

После этого сравнивается количество мест в аудитории с числом студентов и если аудитория мала, то она также не рассматривается. Это реализуется с помощью следующей конструкции:

1	If Worksheets(2).Cells(i + 1, 2).Value >= CInt(Col_Stud.Caption) Then,

где учитывается, что во втором столбце на втором листе указано количество мест в аудитории.

На рис. 5.21 была показана форма с подбором возможных аудиторий для указанной заявки. Далее пользователь должен гцелчком мыши в списке с отобранными аудиториями указать, какую конкретно он намеревается записать для обслуживаемой заявки.

При щелчке на списке выполняется предопределенная процедура SpAyd_Click. Основное ее назначение — фиксация (для процедуры, выполняемой по щелчку на кнопке Записать аудиторию) конкретной аудитории для заявки, а также вывод информации о ее вместимости. Сама процедура приведена в листинге 5.30.

' Листинг 5.30. Процедура, выполняемая при щелчке на списке SpAyd
Private Sub SpAyd_Click()
' Подсчет числа аудиторий на втором листе
N = 0
While Worksheets(2).Cells(N + 2, 1).Value <> ""
    N = N + 1
Wend
For i = 2 To N + 1
    If SpAyd.Text = Worksheets(2).Cells(i, 1).Value Then
' При нахождении выбранной аудитории на втором листе
    Inf_vmest.Caption = Worksheets(2).Cells(i, 2).Value
    Exit For
    End If
Next
Com_Write.Enabled = True
End Sub

Для рассматриваемой формы осталось рассмотреть процедуру записи информации на лист Заявки (листинг 5.31).

' Листинг 5.31. Процедура, выполняемая при щелчке на кнопке Записать
Private Sub Com_Write_Click()
If SpAyd.ListIndex = -1 Then
    MsgBox ("Не выбрана аудитория")
    Exit Sub
End If
Select_vibor = CInt(Num_Str.Text)
Inf_vmest.Caption = "" ' Очистка информационного поля
' Запись информации на первый лист
For i = 0 To N_Group
    Worksheets(1).Cells(Mass_Group(i), 6).Value = "да"
    Worksheets(1).Cells(Mass_Group(i), 7).Value = SpAyd.Text
Next
Com_Write.Enabled = False ' Запрет доступа для записи
Num_Str.Clear ' Очистка списков
SpAyd.Clear
' Заполнение списка заявок
N = 0
While Worksheets(1).Cells(N + 4, 1).Value <> ""
    N = N + 1
Wend
For i = 1 To N
If CStr(Worksheets(1).Cells(i + 3, 6).Value) = "" Then
    Num_Str.AddItem Worksheets(1).Cells(i + 3, 1).Row
End If
Next
End Sub

Лист Расписание

В этом разделе разберем одну из основных возможностей программы составление расписания. Для этого в программе используются два листа Расписание и Потоки.

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

Лист Потоки является вспомогательным и используется для задания потоков и групп, для которых мы намереваемся построить расписание занятий. Поэтому созданные нами ранее две группы объединим в общий поток и внесем в лист Потоки (рис. 5.22). Структура листа Потоки следующая: в первом столбце располагаются потоки, а последующих столбцах соответствующей строки — группы, входящие в поток.

Рис. 5.22. Организация листа Потоки

Далее необходимо создать лист Расписание (рис. 5.23). Здесь три элемента управления: одна кнопка и два поля со списком. В полях со списком пользователю следует выбрать интервалы недель и затем щелкнуть на кнопке Заполнить. В результате на листе отобразится расписание для групп, указанных на листе Потоки.

Рис. 5.23. Организация листа Расписание

На рис. 5.24 показан результат заполнения листа Расписание. И теперь разберем необходимые технические шаги для этого. Для работы с расписанием нам необходимо иметь заполненные списки недель. Данное заполнение мы выполним при активизации листа Расписание (листинг 5.32).

' Листинг 5.32. Процедура, выполняемая при активизации листа Расписание
Private Sub Worksheet_Activate()
N = 0
While Worksheets(2).Cells(N + 2, 3).Value <> ""
    N = N + 1
Wend
L1.Clear
L2.Clear
For i = 1 To N
    L1.AddItem Worksheets(2).Cells(i + 1, 3).Value
    L2.AddItem Worksheets(2).Cells(i + 1, 3).Value
Next
End Sub

Рис. 5.24. Формирование листа Расписание

Значения свойства Name элементов типа «Поле со списком» выберем L1 и L2 соответственно, а для кнопки Заполнить установим у аналогичного свойства значение Zapolnit. В листинге 5.33 приведена ключевая процедура, которая формирует заполнение листа Расписание.

' Листинг 5.33. Процедура, выполняемая при щелчке на кнопке Заполнить
Private Sub Com_Start_Click()
Dim Mass(10) As Integer
' Очистка предыдущего расписания
Range("a5:AZ100").Select
Selection.ClearContents
Selection.Interior.ColorIndex = 0
' Подсчет числа потоков
NP = 0
While Worksheets("Потоки").Cells(NP + 2, 1).Value <> _
"" Or Worksheets("Потоки").Cells(NP + 2, 2).Value <> ""
NP = NP + 1
Wend
' Подсчет количества групп, входящих в поток
For i = 1 To NP
    Mass(i) = 0
    j = 0
    While Worksheets("Потоки").Cells(i + 1, j + 2).Value <> ""
    j = j + 1
    Wend
    Mass(i) = j
Next
' Подсчет числа аудиторий
N_Rooms = 0
While Worksheets("Нач. инф.").Cells(N_Rooms + 2, 1).Value <> ""
    N_Rooms = N_Rooms + 1
Wend
Sct = 0 ' Счетчик столбцов
'Заполнение названий групп и потоков
For i = 1 To NP
    Potok = Worksheets("Потоки").Cells(i + 1, 1).Value
    For j = 1 To Mass(i)
    Cells(5, Sct + 3).Value = Potok
    Cells(6, Sct + 3).Value = Worksheets("Потоки").Cells(i + 1, 1).Value
    Sct = Sct + 1
    Next
Next
' Подсчет числа дней
N_Days = 0
While Worksheets("Нач. инф.").Cells(N_Days + 2, 4).Value <> ""
N_Days = N_Days + 1
Wend
'Подсчет числа занятий в течение дня
N_Times = 0
While Worksheets("Нач. инф.").Cells(N_Times + 2, 5).Value <> ""
    N_Times = N_Times + 1
Wend
' Количество строк в расписании
DayTimes = N_Times * N_Days
' Заполнение первых двух столбцов
Stroka = 7
For i = 1 To N_Days
    For j = 1 To N_Times
    Cells(Stroka, 1).Value = Worksheets("Нач. инф.").Cells(i + 1, 4).Value
    Cells(Stroka, 2).Value = Worksheets("Нач. инф.").Cells(j + 1, 5).Value
    Stroka = Stroka + 1
    Next
Next
' Вычисление числа записей на первом листе
N = 0
While Worksheets("Заявки").Cells(N + 4, 1).Value <> ""
    N = N + 1
Wend
' Цикл по строкам первого листа
For i = 1 To N
    Days = CStr(Worksheets("Заявки").Cells(i + 3, 3).Value)
    Times = CStr(Worksheets("Заявки").Cells(i + 3, 4).Value)
    Group = CStr(Worksheets("Заявки").Cells(i + 3, 8).Value)
    Prepod = CStr(Worksheets("Заявки").Cells(i + 3, 2).Value)
    Disp = CStr(Worksheets("Заявки").Cells(i + 3, 9).Value)
    Aud = CStr(Worksheets("Заявки").Cells(i + 3, 7).Value)
    Obs = CStr(Worksheets("Заявки").Cells(i + 3, 6).Value)
    Indic = 0
' Попадает ли заявка в указанный интервал недель?
    For j = CInt(L1.Text) To CInt(L2.Text)
If CStr(Worksheets(1).Cells(i + 3, 9 + j).Value) = "*" Then
Indic = 1
    Exit For
    End If
Next
' Если заявка попадает в указанный интервал недель
If Indic = 1 Then
' Цикл по столбцам
For im = 1 To Sct
If Group = CStr(Cells(5, im + 2).Value) Or Group = CStr(Cells(6, im + 2).Value) Then
Stolbec = im + 2
For j = 1 To DayTimes
If CStr(Cells(6 + j, 1).Value) = Days And CStr(Cells(6 + j, 2).Value) = Times Then
    If Cells(6 + j, Stolbec).Value <> "" Then
    Cells(6 + j, Stolbec).Value = _
    Cells(6 + j, Stolbec).Value + Chr(10)
    End If
    Cells(6 + j, Stolbec).Value = Cells(6 + j, Stolbec).Value + Disp + " "
    Cells(6 + j, Stolbec).Value = Cells(6 + j, Stolbec).Value + Prepod
    Cells(6 + j, Stolbec).Value = Cells(6 + j, Stolbec).Value + " Ауд." + Aud + Chr(10)
    For jj = CInt(L1.Text) To CInt(L2.Text)
    ask = CStr(Worksheets(1).Cells(i + 3, jj + 9).Value)
    If ask = "*" Then
    Cells(6 + j, Stolbec).Value = Cells(6 + j, Stolbec).Value + " " + Str(jj) + ","
    End If
    Next
    End If
    Next
    End If
    Next
    End If
Next
Cvet1 = 35 ' Оформление цветом
Cvet2 = 40
Cell1= Cells(7, 1).Value
For i = 7 To 100
    Cel12= Cells(i, 1).Value
    If Cell1 <> Cell2 Then
    Vr_cvet = Cvet1
    Cvet1 = Cvet2
    Cvet2 = Vr_cvet
    End If
        Cel11= Cel12
    Rows(i).Select
    Selection.Interior.ColorIndex = Cvet1
Next
Range("A7").Select
End Sub

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

1 2	Range("A5:Z100").Select Selection.ClearContents

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

NP = 0
While Worksheets("Потоки").Cells(NP + 2, 1).Value <> _
"" Or Worksheets("Потоки").Cells(NP + 2, 2).Value <> ""
NP = NP + 1
Wend

Затем в массиве Mass вычисляется, сколько групп в каждом потоке. Так, в элементе Mass (1) подсчитывается количество групп в первом выводимом в расписании потоке, в Mass (2) — во втором, и т. д. Процесс заполнения массива Mass выполняется следующим образом:

For i = 1 To NP
Mass(i) = 0
j = 0
While Worksheets("Потоки").Cells(i + 1, j + 2).Value <> ""
j = j + 1
Wend
Mass(i) = j
Next

Далее в пятую и шестую строки листа Расписание выводятся названия потоков и групп, для которых мы его составляем. Аналогичным образом в первые два столбца листа программно заносятся учебные дни и время начала занятий. После этого выполняется цикл но всем строкам на первом листе, и если при этом очередная заявка относится к одной из рассматриваемых групп, то она выводится в соответствующей ячейке (которая определяется днем, временем, группой либо потоком).

Если подвести некий промежуточный итог, то можно сказать следующее: мы имеем почти готовую версию расписания. На рис. 5.24 поля со списками позволяют выбрать интервал недель, для которого мы хотим составить расписание. Фактически на этом функциональные возможности листа можно было бы считать исчерпанными. Однако мы реализуем дополнительные сервисные возможности по вводу заявок. В большой доли случаев приходится копировать занятие по определенной дисциплине. Часто также приходится какие-то заявки удалять. Реализуем это с помощью дополнительных элементов управления. На рис. 5.25 добавлены:

кнопка Копировать (Name — Com_Copy);
кнопка Вставить (Name — Com_Paste);
кнопка Удалить (Name — Com_Delete);
текстовое окно (Name — Inform).

Рис. 5.25. Добавление элементов управления на лист Расписание

Начнем рассмотрение с кнопки Копировать. В этом случае необходимо выделить заполненную ячейку расписания. Далее с помощью кнопки Копировать выделенная (или выделенные) заявка копируется во внутренний буфер. В листинге 5.34 показана процедура, которую необходимо выполнить но щелчку на кнопке.

' Листинг 5.34. Процедура, выполняемая при щелчке на кнопке Копировать
Private Sub CommandButton4_Click()
NumRow = ActiveCell.Row
NumCol = ActiveCell.Column
Group = CStr(Cells(6, NumCol))
Days = CStr(Cells(NumRow, 1))
Times = CStr(Cells(NumRow, 2))
ColZaavok = 0
' Переменная для подсчета выделенных заявок
N = 0 ' Расчет числа заявок на 1-м листе
While Worksheets(1).Cells(N + 4, 1).Value <> ""
    N = N + 1
Wend
For i = 1 To N
    Day1 = CStr(Worksheets(1).Cells(i + 3, 3).Value)
    Time1 = CStr(Worksheets(1).Cells(i + 3, 4).Value)
    Group1 = CStr(Worksheets(1).Cells(i + 3, 8).Value)
' Если параметры заявки совпадают
    If Time1 = Times And Day1 = Days And Group = Group1 Then
    For j = CInt(L1.Text) To CInt(L2.Text)
        Zan = Worksheets("Заявки").Cells(i + 3, 9 + j).Value
        If Zan = "*" Then
            ColZaavok = ColZaavok + 1
            MassZaavok(ColZaavok) = i + 3
            Exit For
        End If
        Next
    End If
Next
Inform.Text = ""
' Очистка текстового окна для сообщений
If ColZaavok > 0 Then
' Вывод номеров строк заявок в окно сообщений
    For i = 1 To ColZaavok
    Number.Text = Number.Text + Str(MassZaavok(i)) + ","
    Next
Else
    Number.Text = ""
End If
End Sub

Данная процедура фиксирует в переменной ColZaavok количество заявок в выделенной ячейке (как правило, эго одна заявка, однако может быть две или три). Также в массиве MassZaavok запоминаются номера строк первого листа, в которых размещаются отмеченные заявки. Разместить эти переменную и массив необходимо в общей области (рис. 5.26)

Рис. 5.26. Описание переменной и массива в общей области

Теперь необходимо разместить процедуру обработки щелчка на кнопке Вставить. Она представлена в листинге 5.35.

' Листинг 5.35. Процедура, выполняемая при щелчке на кнопке Вставить
Private Sub Com_Paste_Click()
NewRow = ActiveCell.Row
NewCol = ActiveCell.Column
If Inform.Text = "" Then
    Exit Sub
End If
Ngroup = 0
While Worksheets(2).Cells(Ngroup + 2, 8).Value <> ""
    Ngroup = Ngroup + 1
Wend
For i = 1 To ColZaavok ' Цикл по числу скопированных заявок
    N = 0
    While Worksheets("Заявки").Cells(N + 4, 1).Value <> ""
    N = N + 1
    Wend
    Worksheets(1).Cells(N + 4, 1).Value = _
    Worksheets(1).Cells(MassZaavok(i), 1).Value
    Worksheets(1).Cells(N + 4, 2).Value = _
    Worksheets(1).Cells(MassZaavok(i), 2).Value
    Worksheets(1).Cells(N + 4, 3).Value = CStr(Cells(NewRow, 1))
    Worksheets(1).Cells(N + 4, 4).Value = Cells(NewRow, 2)
    For j = 1 To Ngroup
    If Worksheets(2).Cells(j + 1, 8).Value = Cells(6, NewCol) Then
        Exit For
    End If
    Next
    Worksheets(1).Cells(N + 4, 5).Value = Worksheets(2).Cells(ib + 1, 9).Value
    Worksheets(1).Cells(N + 4, 8).Value = CStr(Cells(6, NewCol))
    For m = 9 To 16
    Worksheets(1).Cells(N + 4, m).Value = Worksheets(1).Cells(MassZaavok(i), m).Value
    Next
    Cells(NewRow, NewCol).Value = _
    Cells(NewRow, NewCol).Value + Worksheets(1).Cells(N + 4,
    9).Value + _
    " " + Worksheets(1).Cells(N + 4, 2).Value + Chr(10)
    For l = CInt(L1.Text) To CInt(L2.Text)
    If CStr(Worksheets(1).Cells(i + 3, l + 9).Value) = "*" Then
    Cells(NewRow, NewCol).Value = _
    Cells(NewRow, NewCol).Value + " " + Str(l) + ","
    End If
    Next
Next
End Sub

Теперь мы можем легко добавить еще одно занятие. На рис. 5.27 добавлено еще одно занятие к показанным на рис. 5.24. Для этого мы сначала выделили ячейку D14 и щелчком на кнопке Копировать зафиксировали параметры заявки во внутренней структуре данных. После этого необходимо выделить ячейку D10 и щелкнуть на кнопке Вставить. В результате на первом листе сформируется новая заявка и мы ее увидим на листе Расписание.

Рис. 5.27. Выполнение изменений н расписании занятий

На рис. 5.27 присутствует кнопка Удалить. Уже из названия следует, что она предназначена для удаления заявок. Для этого требуется лишь предварительно выделить заполненную ячейку расписания. В листинге 5.36 приведена процедура, выполняемая по щелчку на кнопке Удалить.

' Листинг 5.36. Процедура, выполняемая при щелчке на кнопке Удалить
Private Sub Com_Delete_Click()
Dim Mass(10) As Integer
NumRow = ActiveCell.Row
NumCol = ActiveCell.Column
Group = CStr(Cells(6, NumCol))
Days = CStr(Cells(NumRow, 1))
Times = CStr(Cells(NumRow, 2))
ColZaavok = 0
N = 0
While Worksheets(1).Cells(N + 4, 1).Value <> ""
    N = N + 1
Wend
For i = 1 To N
If CStr(Worksheets(1).Cells(i + 3, 4).Value) = Times And _
Days = CStr(Worksheets(1).Cells(i + 3, 3).Value) _
And Group = CStr(Worksheets(1).Cells(i + 3, 8).Value) Then
    For j = CInt(L1.Text) To CInt(L2.Text)
    If Worksheets(1).Cells(i + 3, 9 + j).Value = "*" Then
    ColZaavok = ColZaavok + 1
    Mass(ColZaavok) = i + 3
    Exit For
    End If
    Next
End If
Next
Inform.Text = ""
For i = ColZaavok To 1 Step -1
	j = Mass(i)
    Worksheets(1).Rows(j).Delete
    Inform.Text = "Заявки удалены"
Next
Cells(NumRow, NumCol).Value = ""
End Sub

Лист Загрузка

Рассмотрим еще один лист, который дает представление о загрузке аудиторного фонда. Первый шаг заключается в несложном оформлении листа и создании двух элементов управления: поля со списком и кнопки (рис. 5.28).

Рис. 5.28. Организация листа Загрузка

Для заполнения номерок недель в поле со списком мы воспользуемся процедурой, выполняемой при активизации рассматриваемого листа.

' Листинг 5.37. Процедура, выполняемая при активизации листа Загрузка
Private Sub Worksheet_Activate()
N = 0
While Worksheets(2).Cells(N + 2, 3).Value <> ""
    N = N + 1
Wend
L1.Clear
For i = 1 To N
    L1.AddItem Worksheets(2).Cells(i + 1, 3).Value
Next
End Sub

Теперь пользователю необходимо выбрать интересующую его учебную неделю, после чего щелчок на кнопке Заполнить позволяет получить на листе информацию об использовании аудиторного фонда (рис. 5.29). Для этого необходимо оформить процедуру обработки щелчка на кнопке Заполнить в виде, представленном в листинге 5.38.

Рис. 5.29. Просмотр загрузки аудиторного фонда

' Листинг 5.38. Процедура, выполняемая при щелчке на кнопке Заполнить
Private Sub Zapolnit_Click()
' Установка цветов для обозначения факультетов
Dim Colors(50) As Integer
Colors(1) = 4
Colors(2) = 22
Colors(3) = 19
Colors(4) = 24
Colors(5) = 26
For i = 6 To 50
    Colors(i) = 28
Next
If L1.ListIndex = -1 Then ' Выход, если не выбрана неделя
    MsgBox (" Не выбрана неделя ")
    Exit Sub
End If
Range("A5:AZ100").Select
' Очистка области данных
Selection.ClearContents
' Подсчет количества учебных дней в неделе
N_Day = 0
While Worksheets(2).Cells(N_Day + 2, 4).Value <> ""
    N_Day = N_Day + 1
Wend
' Подсчет количества занятий в течение дня
N_Times = 0
While Worksheets(2).Cells(N_Times + 2, 5).Value <> ""
    N_Times = N_Times + 1
Wend
' Подсчет количества аудиторий
N_Ayd = 0
While Worksheets(2).Cells(N_Ayd + 2, 1).Value <> ""
    N_Ayd = N_Ayd + 1
Wend
DaysTimes = N_Day * N_Times
N_Boss = 0 ' Подсчет заявителей
While Worksheets(2).Cells(N_Boss + 2, 6).Value <> ""
    N_Boss = N_Boss + 1
Wend
Range("B7:AZ100").Select
With Selection.Interior
' Заливка белым цветом области вывода
    .ColorIndex = 0
    .Pattern = xlSolid
End With
For i = 1 To 10
Cells(2, 2 + i * 2).Select
With Selection.Interior ' Установка обозначений цветов
.ColorIndex = colors(i) ' заявителей
.Pattern = xlSolid
End With
' Установка подписей заявителей для соответствующих цветов
Cells(1, 2 + i * 2).Value = Worksheets(2).Cells(i + 1, 6).Value
Next
' Подсчет количества строк с заявками на 1-м листе
N = 0
While Worksheets(1).Cells(N + 4, 1).Value <> ""
    N = N + 1
Wend
Stroka = 7
' Данные на листе размещаются начиная с седьмой строки
For i = 1 To N_Ayd ' Установка подписей аудиторий
Cells(Stroka, 1).Value = Worksheets(2).Cells(i + 1, 1).Value
Stroka = Stroka + 1
Next
St = 1
For i = 1 To N_Day ' Установка подписей занятий
    For j = 1 To N_Times
    St = St + 1
    Cells(5, St).Value = Worksheets(2).Cells(i + 1, 4).Value
    Cells(6, St).Value = Worksheets(2).Cells(j + 1, 5).Value
    Next
Next
For i = 1 To DaysTimes
    For j = 1 To N_Ayd
    Cells(6 + j, i + 1) = 0 'Инициализация ячеек
    Next
Next
For i = 4 To N + 3 ' Цикл по строкам заявок
    If CStr(Worksheets(1).Cells(i, 6).Value) = "да" Then
' Выполнение условия по обслуживанию заявки
    Stroka = 0
    For m = 1 To N_Ayd
    If CStr(Worksheets(1).Cells(i, 7).Value) = _
    CStr(Cells(m + 6, 1).Value) Then
    Stroka = m + 6
    Exit For
    End If
    Next
If Stroka > 0 And _
CStr(Worksheets(1).Cells(i, CInt(L1.Text) + 9).Value) ="*" Then
' Если есть строка с указанной аудиторией
    For m = 1 To DaysTimes
' Нахождение столбца на листе для помещения заявки
    If CStr(Worksheets(1).Cells(i, 3).Value) = _
    CStr(Cells(5, 1 + m).Value) Then
    If CStr(Worksheets(1).Cells(i, 4).Value) = _
    CStr(Cells(6, 1 + m).Value) Then
        Stolbec = 1 + m
        Exit For
    End If
End If
Next
Nomer = 1
For l = 1 To N_Boss 'Определение заявителя в заявке
    If CStr(Worksheets(1).Cells(i, 1).Value) _
    = CStr(Worksheets(2).Cells(l + 1, 6).Value) Then
    Nomer = l
    Exit For
End If
Next
Cells(Stroka, Stolbec).Value = Cells(Stroka, Stolbec).Value + Worksheets(1).Cells(i, 5).Value
Cells(Stroka, Stolbec).Select
With Selection.Interior
    .ColorIndex = colors(nomer) ' Установка заливки
    .Pattern = xlSolid ' для ячейки
End With
End If
End If
Next
End Sub

Рассмотренный в данном разделе отчет позволяет компактно, с помощью различных цветных заливок ячеек, представить информацию об использовании аудиторного фонда заявителями (факультетами или руководителями программ). Численная информация, выводимая в ячейках листа, показывает соотношение вместимости аудитории и количества учащихся в группах студентов.

Источник

Smartsheet Contributor

Kate Eby

April 26, 2016

Whether you’re a college student, business owner, or busy parent, balancing all your responsibilities can be tricky. Creating a simple weekly schedule makes it easier to stay organized and plan ahead, and using a pre-formatted template makes this even easier. There are many potential uses for a weekly schedule template.

We’ve compiled templates for both Microsoft Excel and Word that are easy to use, customize and print, and they are free to download. These templates are compatible with older versions of Excel and Word, including Excel 2003 and 2007 and can also be saved in PDF format. Some of the templates are formatted like weekly calendars, but if you’re looking for monthly, yearly or other calendars, we have a variety of Excel calendar templates available.

We’ve also included weekly schedule templates in Smartsheet, a real-time work execution platform that makes tracking and planning weekly tasks more collaborative than Excel.

Smartsheet has been recognized as a leader in G2’s 2023 Best Software Awards, ranking #5 for Best Enterprise Products.

In this article

Weekly Schedule Sun-Sat with 30-minute Intervals
Bi-Weekly Work Schedule Template
Excel Weekly Schedule Template, Mon-Sun
Weekly Task Schedule Template
Employee Schedule Template
Weekly Report Template
Loan Amortization Schedule Template
Bill Payment Schedule Template
Weekly Planner Template
Weekly Assignment Schedule Template
Student Schedule Template
Weekly College Schedule Template
Class Schedule Template
Weekly Homework Schedule Template
Sports Schedule Template
Weekly Chore Schedule Template
Weekly Schedule Template for Word
Weekly Agenda Template for Word
Improve Weekly Scheduling Efforts with Real-Time Task Management in Smartsheet

Excel Weekly Schedule Template, Sun-Sat with 30-minute Intervals

Download Weekly Schedule Sun-Sat 30-min Intervals Excel Template

Excel | Smartsheet

Plan each hour of your day with this weekly template showing 30-minute intervals. Organize your work day, create a personal planner, schedule family activities, or print the template to use as a simple weekly calendar.

Bi-Weekly Work Schedule Excel Template

Download Bi-Weekly Work Schedule Template

Excel | Smartsheet

Adjust the date and starting time on this bi-weekly work schedule template to create a custom calendar. Keep track of your own work schedule, or use this template to plan employee shifts.

Excel Weekly Schedule Template, Mon-Sun

Download Weekly Schedule Excel Template, Mon-Sun

Excel | Smartsheet

This blank weekly schedule template provides morning, afternoon and evening time periods for a full week, starting with Monday. Stay organized with this basic weekly calendar template.

Weekly Task Schedule Template

Download Weekly Task Schedule Excel Template

Excel | Smartsheet

Keep track of your weekly tasks with this free template. Whether you’re scheduling errands, appointments, chores or other tasks, this template shows which items have been completed and which are still pending. Think of this as an Excel version of a weekly to-do list.

Employee Schedule Excel Template

Download Employee Schedule Excel Template

Excel | Smartsheet

In addition to scheduling shifts for employees, this free template allows you to track work hours and labor costs. Create a simple yet functional weekly employee schedule to streamline your business organization.

Weekly Report Excel Template

Download Weekly Report Excel Template

Document progress and concerns for ongoing projects with this weekly report template. Get status updates from employees, create weekly reports for your boss, evaluate activities in process, and get feedback from team members. This simple template can be an important and effective communication tool.

Loan Amortization Schedule Template

Download Loan Amortization Schedule Excel Template

Track payments for a business loan, mortgage or other type of loan with this amortization schedule template. You can see how payments are applied to interest and principal, as well as the remaining balance on the loan.

Bill Payment Schedule Template

Download Bill Payment Schedule Excel Template

This bill payment schedule shows when each bill is due and the monthly total spent on bills. Keep track of where your money is going each month, and make sure your bills get paid on time.

Weekly Planner Template

Download Weekly Planner Excel Template

This weekly planner template makes it easy to see your week at a glance, with room for notes and priority tasks. This is a simple choice if you’re looking for a free, printable planner. Keep track of birthdays and events, create a to-do list, and plan for each day of the week.

Weekly Assignment Schedule Template

Download Weekly Assignment Schedule Excel Template

Stay on top of multiple assignments with this weekly assignment schedule template. The simple layout makes it easy to plan your week or create a weekly project calendar for your team.

Student Schedule Template

Download Student Schedule Excel Template

School days just got a little easier. Students can plan their weekly schedules with this simple template, keeping track of class times, extracurricular activities, a work schedule, or any of the important aspects of a busy student life.

Weekly College Schedule Template

Download Weekly College Schedule Excel Template

If you’re a college student with a busy weekly schedule, use this template to stay organized and keep track of classes, study groups, events and other activities. Organize your college schedule by time, day and priority.

Class Schedule Template

Download Class Schedule Excel Template

All students can benefit from a weekly class schedule template. It’s easy to plan for the week and create a daily routine based on a class schedule. Create time for studying, schedule meal times, and add any other important weekly obligations.

Weekly Homework Schedule Excel Template

Download Weekly Homework Schedule Excel Template

This homework schedule template may not keep you from procrastinating, but it will help you stay organized throughout the week. Track your homework assignments for each class, and record which items have been completed.

Sports Schedule Template

Download Sports Schedule Excel Template

This sports schedule template is a roster and schedule in one. Coaches can easily access contact information for team members, schedule game days, and keep track of league teams.

Weekly Chore Schedule Template

Download Weekly Chore Schedule Excel Template

Assign household chores to family members or housemates for each day of the week. This weekly chore schedule template shows morning and evening chores in a basic format that’s easy to read. Doing chores may not always be fun, but using a template can help ensure they get done.

Weekly Schedule Template for Word

Download Weekly Schedule Template, Sun-Sat for Word (landscape)

Download Weekly Schedule, Sun-Sat for Word Template (portrait)

Download Weekly Schedule, Mon-Sun for Word Template

Download Weekly Schedule, Mon-Sat for Word Template

Weekly Schedule Template, Sun-Sat for Word (landscape): If you need a full 24-hour schedule, this weekly template shows every hour for each day of the week. This template is printable in landscape format and can be easily adjusted to accommodate your schedule.

Weekly Schedule Template, Sun-Sat for Word (portrait): This weekly schedule template also shows a full 24-hour cycle for each day of the week, and is printable in portrait format.

Weekly Schedule Template, Mon-Sun for Word: Plan your days from 8:00 a.m. to 6:00 p.m. with this free weekly schedule template in Word format. This template shows a full week, starting with Monday.

Weekly Schedule Template, Mon-Sat for Word: This blank weekly schedule template offers simplicity and flexibility. Plan your week from Monday to Saturday using whatever time intervals suit your needs.

Weekly Agenda Template for Word

Download Weekly Agenda Word Template

Review project schedules and goals, track ongoing action items, address new agenda items, and plan for future meetings with this weekly agenda template. If you have a recurring weekly meeting, this free template is an easy way to organize your weekly agenda and provide meeting notes to team members.

Improve Weekly Scheduling Efforts with Real-Time Task Management in Smartsheet

The ability to view and access schedules and task lists from anywhere, on any device, is key to balance workloads and ensure no task is missed. That’s why it’s essential to find a tool that makes it easy to view, track, and manage the details of your schedules, to-do lists, and agendas no matter if you’re in the office or on the go.

Smartsheet is an enterprise work execution platform that is fundamentally changing the way businesses and teams work. Over 74,000 brands and millions of information workers trust Smartsheet to help them accelerate business execution and address the volume and velocity of today’s collaborative work.

The familiar Smartsheet interface that is designed for how people actually work leads to rapid and broad adoption across your organization. Use Smartsheet to gain real-time visibility into task lists and schedules, and then access and manage them from anywhere, at any time. Share schedules with internal and external team members, to improve collaboration and ensure that deadlines are met.

Try Smartsheet and discover how you can maximize your task management efforts, today.

Additional Resources

Источник

Запустите Excel и откройте новую пустую книгу.

Выберите диапазон ячеек A1: E2 , затем выберите « Слияние и центр» в группе «Выравнивание» на вкладке «Главная».

Выберите ячейки F1: H2 , выберите раскрывающийся список « Границы» в группе «Шрифт» на вкладке «Главная», затем выберите « Все границы» .

Выберите ячейку A3 и введите « ВРЕМЯ ».

Если вы хотите изменить формат времени, выберите столбец, щелкните правой кнопкой мыши и выберите « Формат ячеек» . Выберите Time в списке Category на вкладке Number и выберите формат времени, который вы хотите использовать.

Перетащите маркер заполнения вправо, чтобы автоматически заполнить оставшиеся дни недели в расписании.

Выберите строку 3 . Сделайте шрифт полужирным и измените размер шрифта на 14.

Измените размер шрифта в столбце A на 12.

Выберите ячейки A1: H2 . Выберите раскрывающийся список « Цвет заливки» в группе «Шрифт» на вкладке «Главная» и выберите цвет заливки для выбранных ячеек.

Выберите уникальный цвет заливки для каждой из следующих ячеек или диапазонов:

A3
B3: H3
A4: A28 (или диапазон ячеек, содержащих времена на вашем листе)
B4: H28 (или диапазон ячеек, составляющих остаток вашего расписания)

Пропустите этот шаг, если вы предпочитаете черно-белое расписание.

Выберите тело расписания. Выберите раскрывающийся список « Границы» в группе «Шрифт» и выберите « Все границы» .

Сохраните расписание.

Источник

На нашем сайте вы можете скачать, заполнить и распечатать шаблон расписания школьных занятий (расписание уроков для заполнения). Для Вашего удобства мы подготовили несколько вариантов, такие как страничный и альбомный вариант, в файлах Word и Exel (ворд и эксель).

Расписание звонков для уроков по 45 минут.

Если у вас в школе другие по длительности перемены, вы всегда можете отредактировать скаченный файл.

Расписание меняется в течение года, поэтому очень удобно заполнить наши шаблоны своими данными и распечатать на обычном листе А4. Советуем добавить наш сайт в избранное.

Чтобы сохранить шаблон себе, кликните на картинку или на слово «СКАЧАТЬ >>» Вы получите файл в формате Word с своё пользование.

Расписание шаблон Word №1 (минималистичное, страничное)

Текстовый файл расписания уроков в таблице, в формате Word с понедельника по пятницу, 7 уроков. А4 страничный лист, чёрно-белое.

СКАЧАТЬ >>

Расписание шаблон Word №2 (с указанием времени уроков и перемен). Страничный.

Текстовый файл расписания уроков в таблице, в формате Word с понедельника по пятницу, 7 уроков. С указанием времени уроков и перемен. А4 страничный лист, чёрно-белое.

СКАЧАТЬ >>

Расписание шаблон Word №3 (с указанием времени уроков и перемен). Альбомный.

Текстовый файл расписания уроков в таблице, в формате Word с понедельника по пятницу, 7 уроков. С указанием времени уроков и перемен. А4 альбомный лист, чёрно-белое.

СКАЧАТЬ >>

Расписание уроков шаблон Excel №1. Страничный.

Файл расписания уроков в таблице, в формате Exel с понедельника по пятницу, 7 уроков. С указанием времени уроков и перемен. А4 страничный лист, чёрно-белое.

СКАЧАТЬ >>

Расписание уроков шаблон Excel №2. Альбомный.

Файл расписания уроков в таблице, в формате Exel с понедельника по пятницу, 7 уроков. С указанием времени уроков и перемен. А4 альбомный лист, чёрно-белое.

СКАЧАТЬ >>

Источник

Перейти к содержанию