Календарь этапов проекта
Предположим, что нам необходимо оперативно и с наименьшими усилиями создать годовой календарь, на котором автоматически отобразить даты этапов проекта (или отпуска сотрудников, или тренинги и т.п.)
Заготовка
Начнем с заготовки:
Как видите, тут все просто:
- По строчкам — месяцы, по столбцам — дни.
- В ячейке А2 лежит год, для которого строится календарь. В ячейках A4:A15 — вспомогательные номера месяцев. И то и другое понадобится нам чуть позже для формирования дат в календаре.
- Справа от таблицы размещены названия этапов с датами начала и окончания. Можно предусмотреть заранее пустые ячейки для новых этапов, добавляемых в будущем.
Заполняем календарь датами и прячем их
Теперь давайте заполним наш календарь датами. Выделим ячейку первую ячейку C4 и введем туда функцию ДАТА (DATE), которая формирует дату из номера года, месяца и дня:
После ввода формулы, ее надо скопировать на весь диапазон c 1 января до 31 декабря (C4:AG15). Поскольку ячейки узкие, то вместо созданных дат мы увидим решетки (#). Тем не менее, при наведении мыши на любую такую ячейку во всплывающей подсказке можно увидеть ее реальное содержимое:
Чтобы решетки нам не мешали, их можно скрыть с помощью хитрого пользовательского формата. Для этого выделите все даты, откройте окно Формат ячейки и на вкладке Число (Number) выберите вариант Все форматы (Custom). Затем в поле Тип введите подряд три точки с запятой (без пробелов!) и нажмите ОК. Содержимое ячеек будет скрыто и решетки пропадут, хотя даты в ячейках, на самом деле, останутся — это только видимость.
Подсветка этапов
Теперь с помощью условного форматирования добавим подсветку этапов к ячейкам со скрытыми датами. Выделяем все даты в диапазоне C4:AG15 и выбираем на вкладке Главная — Условное форматирование — Создать правило (Home — Conditional formatting — Create Rule). В открывшемся окне выбираем вариант Использовать формулу для определения форматируемых ячеек (Use formula to defer which cells to format) и вводим формулу:
Эта формула проверяет каждую ячейку с датой, начиная с С4 и до конца года на предмет попадания в интервал между началом и концом каждого этапа. Единичка на выходе будет получаться только тогда, когда оба проверяемых условия в скобках (C4>=$AJ$4:$AJ$13) и (C4<=$AK$4:$AK$13) будут выдавать логическую ИСТИНУ, которую Excel интерпретирует как 1 (ну, а ЛОЖЬ — как 0, естественно). Также обратите особое внимание на то, что ссылки на начальную ячейку С4 относительные (без $), а на диапазоны этапов — абсолютные (с двумя $).
После нажатия на ОК мы увидим этапы в нашем календаре:
Подсветка пересечений
Если даты некоторых этапов пересекаются (внимательные читатели, должно быть, уже заметили этот момент для 1-го и 6-го этапов!), то лучше бы подсветить этот конфликт в нашем графике другим цветом с помощью еще одного правила условного форматирования. Оно, практически, один-в-один похоже на предыдущее за исключением того, что мы ищем ячейки, которые входят больше, чем в один этап:
После нажатия на ОК такое правило наглядно подсветит перехлест дат в нашем календаре:
Убираем лишние дни в месяцах
Само-собой, не во всех месяцах по 31 дню, поэтому лишние дни февраля, апреля, июня и т.д. неплохо бы визуально отметить, как неактуальные. Функция ДАТА, формирующая наш календарь, в таких ячейках будет автоматически переводить дату в следующий месяц, т.е. «30 февраля» 2016 г. превратиться в 1 марта. То есть номер месяца для таких лишних ячеек будет не равен номеру месяца в столбце А. Этим и можно воспользоваться при создании правила условного форматирования для выделения таких ячеек:
Добавляем выходные
По желанию можно добавить на наш календарь и выходные. Для этого можно воспользоваться функцией ДЕНЬНЕД (WEEKDAY), которая будет вычислять номер дня недели (1-пн, 2-вт…7-вс) для каждой даты и подсвечивать те из них, что попадают на субботы и воскресенья:
Для корректного отображения не забудьте правильно настроить правильный порядок следования друг за другом правил в окне Главная — Условное форматирование — Управление правилами (Home — Conditional formatting — Manage Rules), т.к. правила и заливки работают именно в той логической последовательности, которую вы сформируете в этом диалоге:
Ссылки по теме
- Видеоурок по использованию условного форматирования в Excel
- Как создать график проекта (диаграмму Ганта) с помощью условного форматирования
- Как создать временную шкалу проекта (project timeline) в Excel
Планировщик проекта на основе диаграммы Ганта
Этот шаблон диаграммы Ганта в Excel идеален для использования в качестве планировщика проектов. Он позволяет отслеживать и синхронизировать действия проекта. В этом шаблоне планирования проекта в Excel на основе долговременной модели диаграммы Ганта используется простая визуальная демонстрация, чтобы показать, как будет осуществляться управление проектом на протяжении периода его реализации. Вы можете ввести дату начала, длительность и текущее состояние каждой задачи, а также поделиться этими данными с командой, чтобы обеспечить подотчетность владельцев задания. Этот шаблон можно использовать как для крупных, так и для небольших проектов на более короткий или на более длительный период времени. Это шаблон со специальными возможностями.
Excel
В любом проекте возникает необходимость вести график проекта, и в Excel это наиболее наглядно показывает диаграмма Ганта. В самых разных областях менеджмента диаграмма Ганта используется для визуализации этапов проекта.
В данной статье мы рассмотрим не только как построить диаграмму Ганта в excel, но и научимся показывать на диаграмме Ганта выполнение этапов, а также сравнение их с запланированными сроками.
По сути, диаграмма Ганта для выполнения проекта является обычной горизонтальной гистограммой с накоплением. Но — с некоторыми хитростями, их и рассмотрим ниже.
- Шаг 1. Подготавливаем данные для диаграммы Ганта
- Шаг 2. Строим шаблон диаграммы Ганта
- Шаг 3. Добавляем прогресс выполнения проекта на диаграмму
- Шаг 4. Визуализируем плановые даты этапов проекта
- Шаг 5. Обозначаем на диаграмме Ганта сегодняшнюю дату
Шаг 1. Подготавливаем данные для диаграммы Ганта
Для того, чтобы визуализировать график проекта при помощи диаграммы Ганта, нужно подготовить данные. Структура исходной таблицы показана на рисунке.
Таблица должна содержать следующие данные:
- наименование этапа / задачи
- блоки План и Факт — в них будут обозначены плановые и фактические сроки выполнения каждого этапа. Важно наличие обоих блоков для визуализации выполнения сроков календарного плана в диаграмме Ганта.
- в каждом блоке План и Факт должны быть следующие столбцы: дата старта, продолжительность в рабочих днях, дата окончания. Причем дату окончания можно посчитать, прибавив к дате старта количество рабочих дней при помощи функции РАБДЕНЬ.
Далее рядом с основной таблицей создаем вспомогательную, на основании которой и будем строить диаграмму Ганта.
Формулы, при помощи которых образуются данные во вспомогательной таблице, представлены в блоке в красной рамке над таблицей. Это формулы для первой строки таблицы, для остальных строк их нужно протянуть.
- Дата старта факт — данные из столбца Дата старта в блоке Факт.
- Дней — количество календарных дней между датами окончания и старта в блоке Факт. Нужно от даты окончания отнять дату начала.
- Дней готовности — данные для визуализации прогресса выполнения задачи. По факту это не количество дней, а доля выполненной части задачи. Чтобы ее получить, нужно умножить данные в столбце Дней готовности на столбец Готовность % из блока Факт.
- Дата старта план — данные из столбца Дата старта в блоке План.
- Дней — количество календарных дней между датами окончания и старта в блоке План.
- Ось Y для плана — вспомогательный столбец. Чтобы его получить, нужно в самой нижней ячейке столбца указать число 0,2, а в следующих ячейках внести формулу 1+предыдущая ячейка.
- Сегодня — сегодняшняя дата (указывается при помощи формулы СЕГОДНЯ) или любая дата, на которую нужно зафиксировать прогресс проекта.
Данные для графика проекта, на основе которых будет построена диаграмма Ганта, готовы.
Шаг 2. Строим шаблон диаграммы Ганта
Затем нужно применить маленькую хитрость: изменим формат ячеек на Общий для данных в столбце Дата старта факт.
Не пугайтесь, что даты превратились в непонятный набор цифр, дальше мы это исправим. Этот шаг необходим, чтобы даты не выстроились в оси Y.
Теперь выделяем первые три столбца:
И переходим во вкладку меню Вставка — блок Диаграммы — Гистограммы — Линейчатая — Линейчатая с накоплением
Получим заготовку диаграммы Ганта выполнения проекта, которую будем дорабатывать.
Как видите, ряды на диаграмме двух цветов, посмотрим, какие данные содержатся в этих рядах.
Будем превращать линейчатую гистограмму в диаграмму Ганта выполнения этапов проекта.
- Изменим формат для данных столбца Дата старта факт обратно на формат Дата.
2. Если посмотрите на предыдущий рисунок, то увидите, что более ранние этапы проекты (оранжевые линии) идут внизу. График как бы нужно перевернуть, для этого нужно отобразить ось категорий в обратном порядке.
Щелкаем правой кнопкой мыши по оси категорий (ось Y) и выберем Формат оси.
Далее перейдем в Параметры оси и установим “галку” Обратный порядок категорий.
3. Теперь уберем заливку с синих рядов (они вспомогательные и больше нам не нужны). Для этого дважды щелкнем на любом синем ряде — попадем в Формат ряда данных (или правая кнопка мыши — Формат ряда данных) — Заливка и границы — Нет заливки.
4. Теперь нужно поправить данные в оси Х — даты. Если посмотрите на предыдущий рисунок, то увидите, что даты начинаются намного раньше старта проекта (перед оранжевыми прямоугольниками есть пустое поле). Исправим это.
Войдем в меню Формат оси (правая кнопка мыши — Формат оси) — Параметры оси — Границы. Как видите, формат данных здесь остался тот, который мы устанавливали изначально, т.е. Общий.
Поэтому придется немного “подогнать” данные цифры. Ориентируйтесь на то, как меняется ваш график при изменении цифр. В примере Минимум по умолчанию — число 44400. Изменим его на 44550, и получим то, что нужно — оранжевые ряды сместились влево, равномерно заняв всю область диаграммы.
В вашем случае это будет какое-то другое число (не 44550), все зависит от дат в таблице. Не бойтесь “поиграться” этим значение, чтобы выровнять вашу диаграмму Ганта.
Шаг 3. Добавляем прогресс выполнения проекта на диаграмму
В принципе, на предыдущих двух шагах можно остановиться — если, конечно, вам не нужно показать прогресс по каждому из этапов проекта.
А чтобы показать на диаграмме Ганта выполнение, нужно:
- Нажать на “плюс” в правом верхнем углу диаграммы — стрелку рядом с пунктом Предел погрешностей — Дополнительные параметры.
2. В окне Добавление предела погрешностей выбираем ряд Дата старта факт и нажимаем Ок.
3. Появятся вот такие полоски, которые нужно настроить. Для этого нажимаем правую кнопку мыши — Формат предела погрешностей.
4. Далее внимательно смотрите на следующую картинку с последовательность действий.
- Направление — Плюс
- Конечный стиль — Без точки
- Величина погрешности — Пользовательская
- Нажать кнопку Указать значение
- Выделить цифры в столбце Дней для готовности.
5. Не закрывая окно Формат предела погрешностей, переходим во вкладку Заливка и границы. Снова на картинке внимательно смотрим последовательность действий.
- Блок Линия — Сплошная линия
- Выбираем цвет (в примере выбран зеленый)
- Задаем ширину — такую, чтобы зеленые линии примерно перекрыли оранжевые.
Шаг 4. Визуализируем плановые даты этапов проекта
Теперь добавим на график проекта, представленный как диаграмма Ганта, визуализацию плановых интервалов для каждого этапа. Это необязательный шаг, но он дополнительно акцентирует внимание на исполнение сроков проекта.
- Щелкнем правой кнопкой мыши в области диаграммы — Выбрать данные.
- Нажимаем кнопку Добавить.
3. Имя ряда — ссылка на название столбца Дата старта план. Значения — выделяем значения в столбце Ось Y для плана.
4. Новый ряд добавился справа от оранжевого ряда. Нам нужно изменить тип диаграммы, для этого щелкнем правой кнопкой мыши на новом ряде и выберем Изменить тип диаграммы для ряда.
5. Выбираем тип диаграммы Комбинированная, и для ряда Дата старта план выбираем тип диаграммы Точечная.
6. Возвращаемся к нашей диаграмме Ганта и видим, что ряд исчез. Не пугаемся. Снова правая кнопка мыши — Выбрать данные — выделяем ряд Дата старта план — нажимаем кнопку Изменить.
7. Ставим курсор в поле Ось Х и выделяем данные в столбце Дата старта план.
Видим, что на диаграмме Ганта появились серые точки — это как раз и есть точки начала плановых интервалов.
8. Выделяем новый ряд (серые точки) и снова нажимаем “плюс” в правом верхнем углу диаграммы — Предел погрешностей — Стандартная погрешность.
9. Вокруг серых точек появятся такие “кресты”. Нужно удалить вертикальные линии (выделить и нажать Delete).
10. Выделяем горизонтальные линии погрешностей — правая кнопка мыши — Формат предела погрешностей — Направление Плюс — Конечный стиль — Без точки — Величина погрешности — Пользовательская — кнопка Укажите значение — выделить столбец Дней (второй).
Появились линии — это интервалы плановых дат нашего календарного плана диаграммы Ганта. Осталось настроить их внешний вид и убрать сами серые точки. Как настраивать внешний вид для предела погрешности, описано в Шаге 3, пункт 5.
Чтобы убрать серые точки, выделим их и перейдем в Формат ряда.
Выберем Маркер — параметры Маркера — Нет.
Наша диаграмма Ганта выполнения этапов проекта почти готова! Серые линии — это плановые даты проекта. На графике прекрасно визуализировано отклонение фактических дат от плановых.
Шаг 5. Обозначаем на диаграмме Ганта сегодняшнюю дату
Мы почти у цели. Осталось обозначить на диаграмме Ганта сегодняшнюю дату. Конечно, можно и этот шаг опустить, однако, он наглядно показывает, на какой стадии проекта мы находимся сейчас.
- Правая кнопка мыши в области диаграммы — Выбрать данные — Добавить.
- Указываем данные для ряда, как показано на картинке.
После нажатия Ок видим, что ничего не изменилось. Ряд не виден, но это не страшно.
3. Правая кнопка мыши в области диаграммы — Формат области построения — выбираем ряд Сегодня, как показано на картинке ниже.
4. И здесь задаем цвет линии и формат стрелки.
5. Изменим наименование диаграммы и — наша диаграмма Ганта выполнения этапов проекта готова!
В этой статье мы узнали, как визуализировать график проекта при помощи диаграммы Ганта в Excel.
Вам может быть интересно:
Представление данных в Microsoft Excel в виде диаграммы Ганта
Excel для Microsoft 365 Excel для Microsoft 365 для Mac Excel 2021 Excel 2021 для Mac Excel 2019 Excel 2019 для Mac Excel 2016 Excel 2016 для Mac Excel 2013 Excel 2010 Excel 2007 Еще…Меньше
При помощи диаграммы Ганта можно составить расписание задач проекта, а затем отследить его ход.
Хотите показать продвижение по графику простого проекта с помощью диаграммы Ганта? Хотя в Excel нет предопределенного типа диаграммы Ганта, его можно создать с помощью этого бесплатного шаблона: шаблон планировщика проектов Ганта для Excel.
Требуется нужно создать представление календарного плана для простого проекта с помощью диаграммы Ганта? Хотя в Excel отсутствует встроенный тип диаграммы Ганта, можно имитировать его, настроив линейчатую диаграмму с накоплением так, чтобы на ней выводились начальные и конечные даты выполнения задач, как показано ниже.
Чтобы создать диаграмму Ганта наподобие приведенной в примере, на которой ход выполнения задач показан в днях, выполните указанные ниже действия.
-
Выделите данные, которые нужно включить в диаграмму. В нашем примере это диапазон A1:C6
Если данные находятся в непрерывном диапазоне ячеек, выберите любую ячейку в этом диапазоне, чтобы включить все данные из него в диаграмму.
В противном случае выделите ячейки, удерживая нажатой клавишу COMMAND.
Совет: Если вы не хотите включать определенные строки или столбцы данных, можно скрыть их на листе. Узнайте подробнее о выборе данных для диаграммы.
-
Перейдите на вкладку Вставка, нажмите кнопку Вставить линейчатую диаграмму и выберите диаграмму Линейчатая с накоплением.
-
Теперь мы отформатируем линейчатую диаграмму с накоплением так, чтобы она была похожа на диаграмму Ганта. На диаграмме щелкните первый ряд данных ( начальная часть панели синим цветом), а затем на вкладке Формат выберите Заливка фигуры > Нет заливки.
-
Если вам не нужна легенда или название диаграммы, выделите их и нажмите клавишу DELETE.
-
Давайте также попробуем изменить порядок задач так, чтобы они начинались с задачи 1. Удерживая нажатой клавишу CONTROL, выберите вертикальную ось (задачи). Выберите Формат оси, а затем в разделе Положение оси выберите Обратный порядок категорий.
Настройка диаграммы
Вы можете настроить диаграмму Ганта, добавив в нее линии сетки, подписи, изменив цвет полосок, и т. д.
-
Чтобы добавить элементы диаграммы, нажмите кнопку область диаграммы и на вкладке Конструктор диаграмм нажмите кнопку Добавить элемент диаграммы.
-
Чтобы выбрать макет, нажмите кнопку Экспресс-макет.
-
Чтобы завершить настройку внешнего вида диаграммы, выберите один из параметров оформления.
-
Чтобы настроить цвета диаграммы, нажмите кнопку Изменить цвета.
-
Чтобы повторно использовать настроенную диаграмму Ганта, просто сохраните ее как шаблон. Удерживая нажатой клавишу CTRL, щелкните диаграмму и выберите пункт Сохранить как шаблон.
Вы знали?
Подписка на Microsoft 365 предлагает шаблоны диаграмм Ганта уровня «Премиум», предназначенные для отслеживания задач проекта с помощью визуальных напоминаний и цветовых категорий. Если у вас нет подписки на Microsoft 365 или последней версии Office, вы можете попробовать ее сейчас:
См. также
Создание диаграммы от начала до конца
Сохранение диаграммы в качестве шаблона
Нужна дополнительная помощь?
Диаграмму Ганта эффективно использовать в анализе планирования и управления проектов. Этот инструмент визуализации данных календарного планирования приставляет собой график работ или выполнения задач, достижения поставленных целей. Рассмотрим, как сделать автоматизированный шаблон диаграммы Ганта с переключением периодичности временных интервалов на календарном графике: по дням и по неделям. А в конце статьи можно скачать готовый пример.
Как сделать диаграмму Ганта в Excel – пошаговое руководство
Переименуйте название рабочего листа Excel «Лист1» в имя «Gantt». После на этом же листе создайте таблицу с исходными данными точно такую же как показано ниже на рисунке, с таким же расположением всех ячеек на листе:
Важно!!! Чтобы у Вас все адреса заполненных ячеек листа полностью совпадали с исходной представленной на рисунке.
С помощью маркера в нижнем правом углу курсора Excel заполните диапазон ячеек G1:O1 чередующимися датами от 09.09.2022 по 17.09.2022:
Подготовка исходных данных закончена переходим непосредственно к построению диаграммы Ганта на календаре.
Как построить календарь планов с диаграммой Ганта по таблице Excel
Заполните диапазон ячеек G4:O16 на листе «Gantt» одной и той же формулой:
Теперь выделите диапазон ячеек G4:O16 чтобы присвоить ему условное форматирование:
Как видно на рисунке правило форматирования применяется для ячеек с текстовым значением «Достигнута», которое возвращают формулы в диапазоне G4:O16. Для эстетики снова используем 2 цвета заливки. Важно также отметить что на вкладке «Число» используя опцию «(все форматы)» задаем свой пользовательский формат из трех точек с запетой «;;;» — это позволит скрыть текстовое содержимое в ячейках. Получаем результат:
Перейдите на любую ячейку в диапазоне G4:O16 и откройте «Диспетчер правил условного форматирования». Для этого используйте меню «ГЛАВНАЯ»-«Условное форматирование»-«Управление правилами». Воспользовавшись кнопкой «Создать правило» создайте еще 2 правила для значений «В процессе» (желтый цвет) и «В ожидании» (красный цвет):
Теперь создадим курсор для выделения дат на графике – это сделает анализ по графику Ганта более удобным. Снова перейдите на любую ячейку в диапазоне G4:O16 и в диспетчере правил условного форматирования создайте новое правило, но уже с формулой =G$1=$F$1 и другими настройками формата ячеек:
Обратите внимание! Правило курсора должно быть в самом нижнем слое. Для управления порядком расположения правил форматирования используйте соответственные кнопки «Вверх» и «Вниз» в диспетчере. В результате получаем диаграмму Ганта с курсором выделения дат, которые указываются в ячейке F1:
Далее оформляем дизайн шапки таблицы в диапазоне B3:F3 используя градиентную заливку ячеек из двух цветов:
А также следует изменить цвет шрифта на белый в заголовках столбцов таблицы.
Как сделать управление диаграммой Ганта в Excel
Теперь в диаграмме Ганта сделаем интерактивные элементы управления из выпадающих списков. Начнем с простого. Перейдите курсором Excel на ячейку C1 чтобы в ней сделать первый выпадающий список:
В параметрах для поля ввода «Источник:» указываем два слова разделенных точкой с запятой «Дни;Недели», нажимаем ОК и выпадающий список из двух значений – ГОТОВ!
Второй выпадающий список будет более сложным. Перед его созданием сначала создадим именной диапазон с именем «Список_дат» и формулой:
Данное имя будет автоматически подгружать в себя все даты, находящиеся в первой строке листа начиная от ячейки G1. А теперь мы используем ссылку на это же имя (=Список_дат) в качестве источника для второго выпадающего списка в ячейке F1:
Теперь наш курсор для выделения дат – интерактивный и его перемещение по диаграмме Ганта управляется с помощью выпадающего списка в ячейке F1.
Пришел тот долгожданный момент, когда с помощью VBA-макроса мы будем делать магию для оживления диаграммы Ганта. Откройте редактор макросов Visual Basic нажав комбинацию клавиш ALT+F11 и создайте в нем новый модуль с кодом VBA-программы:
Полная версия кода макроса на языке программирования VBA:
Option ExplicitSub Refresh_Data()
Application.ScreenUpdating =FalseDim sh As Worksheet
Set sh = ThisWorkbook.Sheets(«Gantt»)Dim i As Long
sh.Range(«G3:XFD3»).UnMerge
sh.Range(«G1:XFD3»).Clear
sh.Range(«G1:XFD3»).Orientation = 0Dim lc, lr As IntegerFor i = Application.WorksheetFunction.Min(sh.Range(«C:C»)) To Application.WorksheetFunction.Max(sh.Range(«D:D»))
If sh.Range(«G1»).Value = «» Then
sh.Range(«G1»).Value = iElse
lc = sh.Range(«XFD1»).End(xlToLeft).Column
sh.Cells(1, lc + 1).Value = i
End If
Next i
lc = sh.Range(«XFD1»).End(xlToLeft).Column
lr = sh.Range(«B» & Application.Rows.Count).End(xlUp).RowIf sh.Range(«C1»).Value = «Äíè» Then
sh.Range(«G3»).Value = «=G1»
sh.Range(«G3», sh.Cells(3, lc)).FillRight
sh.Range(«E3»).Copy
sh.Range(«G3», sh.Cells(3, lc)).PasteSpecial xlPasteFormats
sh.Range(«G3», sh.Cells(3, lc)).NumberFormat = «D-MMM»
sh.Range(«G3», sh.Cells(3, lc)).Orientation = 90
sh.Range(«G3», sh.Cells(3, lc)).EntireColumn.ColumnWidth = 2.5ElseFor i = 7 To lc Step 7
sh.Cells(3, i).Value = «Íåäåëÿ-« & i / 7
sh.Range(«E3»).Copy
sh.Range(sh.Cells(3, i), sh.Cells(3, i + 6)).PasteSpecial xlPasteFormats
sh.Range(sh.Cells(3, i), sh.Cells(3, i + 6)).EntireColumn.ColumnWidth = 0.8
sh.Range(sh.Cells(3, i), sh.Cells(3, i + 6)).Merge
sh.Range(sh.Cells(3, i), sh.Cells(3, i + 6)).HorizontalAlignment = xlCenter
sh.Range(sh.Cells(3, i), sh.Cells(3, i + 6)).VerticalAlignment = xlCenter
Next i
lc = sh.Range(«XFD3»).End(xlToLeft).Column + 6
End If
sh.Range(«G1:XFD1»).NumberFormat = «D-MMM-YY»
sh.Range(«G1:XFD1»).Font.Color = VBA.vbWhite
sh.Range(«H4:XFD» & Application.Rows.Count).Clear
sh.Range(«G5:G» & Application.Rows.Count).Clear
sh.Range(«A» & lr + 1, «A» & Application.Rows.Count).EntireRow.Clear
sh.Range(«G1:XFD3»).Locked = True
sh.Range(«G1:XFD3»).FormulaHidden = True
sh.Range(«G4:G» & sh.Range(«B» & Application.Rows.Count).End(xlUp).Row).FillDown
sh.Range(«G4», sh.Cells(lr, lc)).FillRightWith sh.Range(«B3», sh.Cells(lr, lc))
.Borders(xlEdgeBottom).LineStyle = xlDouble
.Borders(xlEdgeBottom).Color = vbBlack
.Borders(xlEdgeLeft).LineStyle = xlDouble
.Borders(xlEdgeLeft).Color = vbBlack
.Borders(xlEdgeRight).LineStyle = xlDouble
.Borders(xlEdgeRight).Color = vbBlack
.Borders(xlEdgeTop).LineStyle = xlDouble
.Borders(xlEdgeTop).Color = vbBlackEnd With
sh.Range(«B4», sh.Cells(lr — 1, 6)).Select
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range(«C1»).SelectEnd Sub
Чтобы воспользоваться макросом нам потребуется новый (3-тий) элемент управления диаграммой Ганта. Ним послужит простая небольшая картинка в виде кнопки с иконкой «Обновить». Копируем картинку из любого источника и вставляем прямо на лист Excel. А затем подключаем к ней наш макрос Refresh_Data:
Нажимаем на кнопку и наслаждаемся «магией» автоматизации работы в Excel с помощью макросов:
Как говорят французы «Ву а ля»!
Переключение дней и неделей для диаграммы Ганта на календаре планов
Дальше магия продолжается. Возникает вопрос зачем нам нужен был первый интерактивный элемент управления графиком Ганта – выпадающий список? Все просто необходимо создать еще один макрос, но на этот раз не в модуле, а в листе. Возвращаемся в редактор макросов ALT+F11 и в нем открываем лист «Gantt» для ввода нового кода макроса:
Код макроса для вызова с листа Excel:
Option ExplicitPrivate Sub Worksheet_Change(ByVal Target As Range)If Target.Row = 1 Then
If Target.Column = 3 Then
Call Refresh_Data
End If
End If
End Sub
Протестируем второй макрос воспользовавшись первым выпадающим списком для переключения со значения «Дни» на значение «Недели»:
Второй макрос используется только для вызова первого при обновлении значения в ячейке C1 – где и находится первый выпадающий список.
Скачать шаблон диаграммы Ганта в Excel
Здесь описаны еще не все возможности первого макроса. Например, при заполнении таблицы новыми значениями и после нажатия на кнопку обновить таблица автоматически охватывает новый диапазон значений и добавляет их на график. Таким образом диаграмма Ганта автоматически расширяема и может быть использована в качестве шаблона готового к полноценной работе с новыми пользователями.