Диаграмма ганта в excel шаблон по часам

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

Все пользователи Excel знакомы с диаграммами, а также знают, как их создавать в Excel. Однако не всем знаком такой тип, как диаграмма Ганта. Данная статья содержит следующие разделы:

Что такое диаграмма Ганта?

Как сделать диаграмму Ганта в Excel

Диаграмма Ганта в Excel шаблон

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

[ Диаграмма Ганта в Excel скачать шаблон ]

Что такое диаграмма Ганта?

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

Диаграмма Ганта в Excel – Пример диаграммы Ганта

Как сделать диаграмму Ганта в Excel 2016, 2013 и 2010

К сожалению, Microsoft Excel не имеет встроенного шаблона диаграммы Ганта в качестве опции. Тем не менее, вы можете быстро сделать диаграмму Ганта в Excel, используя функциональность гистограммы и добавив немного форматирования.

Далее мы по шагам рассмотрим, как сделать диаграмму Ганта за 3 минуты.

Мы будем использовать Excel 2013 для создания шаблона диаграммы Ганта, но вы можете точно так же создать диаграмму Ганта в Excel 2016 и Excel 2010.

Шаг 1. Создание таблицы проекта

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

Примечание. Для создания диаграммы Ганта в Excel нужны только столбцы «Дата начала» и «Длительность». Однако, если вы указываете даты окончания, вы можете использовать простую формулу для вычисления «Длительности»:

Диаграмма Ганта в Excel – Таблица проекта

Шаг 2. Создание стандартной диаграммы Excel на основе даты начала

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

• Выберите диапазон начальных дат с заголовком столбца, в нашем случае это B1:B11. Обязательно выберите только ячейки с данными, а не весь столбец.
• Перейдите на вкладку «ВСТАВКА» —> группа «Диаграммы» и нажмите «Вставить линейчатую диаграмму».
• В разделе «Линейчатая» щелкните «Линейчатая с накоплением».

Диаграмма Ганта в Excel – Создание линейчатой диаграммы с накоплением

В результате на вашем листе будет добавлена следующая диаграмма:

Диаграмма Ганта в Excel – Создание линейчатой диаграммы с накоплением

Шаг 3. Добавление данных Длительность к диаграмме

Теперь нам нужно добавить еще один ряд в будущую диаграмму Ганта в Excel.

1. Щелкните правой кнопкой мыши в любом месте области диаграммы и выберите «Выбрать данные» в контекстном меню.

Диаграмма Ганта в Excel – Выбрать данные

Откроется окно «Выбор источника данных».

1. В разделе Элементы легенды (ряды) уже добавлена Дата начала. Теперь нам нужно добавить Длительность.

Нажмите кнопку «Добавить», чтобы выбрать дополнительные данные (Длительность), которые вы хотите построить в диаграмме Ганта.

Диаграмма Ганта в Excel – Выбор источника данных

1. Откроется окно Изменение ряда. Выполните следующие пункты:

• В поле «Имя ряда» введите «Длительность» или любое другое имя по вашему выбору. Кроме того, вы можете поместить курсор мыши в это поле и щелкнуть заголовок столбца (ячейка D1) в своей таблице, выбранный заголовок будет добавлен как имя ряда для диаграммы Ганта.
• В поле «Значения» выберите Длительность, щелкнув по первой ячейке D2 и перетащив мышь до последней D11. Убедитесь, что вы ошибочно не включили заголовок или любую пустую ячейку.

Диаграмма Ганта в Excel – Добавление ряда данных

Нажмите кнопку ОК.

1. Теперь вы вернулись в окно «Выбор источника данных» с указанием начальной даты и длительности в разделе «Элементы легенд» (ряды). Просто нажмите «ОК» и «Длительность» будет добавлена в диаграмму.

Диаграмма Ганта в Excel – Выбор источника данных – Добавлен новый ряд

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

Диаграмма Ганта в Excel – Гисторгамма – Промежуточный вид диаграммы Ганта

Шаг 4. Добавление описания задач в диаграмме Ганта

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

1. Щелкните правой кнопкой мыши в любом месте области графика (область с синими и красными полосами) и нажмите «Выбрать данные», чтобы снова открыть окно «Выбор источника данных».
2. Убедитесь, что в левой панели выбрана дата начала и нажмите кнопку «Изменить» в правой панели под надписью «Подписи горизонтальной оси (категории)».

Диаграмма Ганта в Excel – Добавление описания задач в диаграмме Ганта

1. Откроется окно Подписи оси, и вы выбираете свои задачи таким же образом, как выбирали «Длительность» на предыдущем шаге. Помните, что заголовок столбца не должен быть включен. Чтобы закрыть открытые окна, два раза нажмите OK.

1. На этом этапе диаграмма Ганта должна содержать описание задач в левой части и выглядеть примерно так:

Диаграмма Ганта в Excel – Описание задач в левой части диаграммы Ганта

Шаг 5. Преобразование гистограммы в диаграмму Ганта в Excel

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

1. Нажмите на любую синюю полосу в диаграмме Ганта, чтобы выбрать их все; щелкните правой кнопкой мыши и выберите «Формат ряда данных» в контекстном меню.

Диаграмма Ганта в Excel – Преобразование гистограммы в диаграмму Ганта

1. Появится окно «Формат ряда данных». Во вкладке «Заливка и границы» в группе «Заливка» выберите «Нет заливки», и в группе «Граница» выберите «Нет линий».

Диаграмма Ганта в Excel – Изменение формата ряда данных в диаграмме Ганта

1. Как вы, наверное, заметили, задачи в диаграмме Ганта перечислены в обратном порядке. И теперь мы это исправим.

Нажмите на список задач в левой части диаграммы Ганта, чтобы выбрать их. Появится окно «Формат оси». Выберите пункт «Обратный порядок категорий» в разделе «Параметры оси».

Диаграмма Ганта в Excel – Изменение порядка задач в диаграмме Ганта

Результаты внесенных изменений:

• Задачи упорядочены в соответствии с диаграммой Ганта.
• Маркеры даты перемещаются снизу вверх в начало графика.

Диаграмма Excel начинает выглядеть как обычная диаграмма Ганта:

Диаграмма Ганта в Excel – Промежуточная диаграмма Ганта

Шаг 6. Улучшение дизайна диаграммы Ганта в Excel

Добавим еще несколько штрихов для улучшения внешнего вида диаграммы Ганта.

1. Удаление пустого пространства в левой части диаграммы Ганта.

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

• Щелкните правой кнопкой мыши по первой начальной дате в таблице данных, выберите «Формат ячеек» —> «Общий». Запишите число, которое вы видите – это числовое представление даты, в данном случае 42826. Нажмите «Отмена» (!), потому что нам здесь не нужно вносить какие-либо изменения.

Диаграмма Ганта в Excel – Числовое представление начальной даты

• Нажмите на любую дату над панелью задач в диаграмме Ганта. Щелкните правой кнопкой мыши в данной области и выберите «Формат оси» в контекстном меню.

Диаграмма Ганта в Excel – Удаление пустой области в правой части диаграммы Ганта

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

Примечание. Если вы пользуетесь Excel 2010, для того чтобы ввести число, вам необходимо выбрать вариант «фиксированное».

Диаграмма Ганта в Excel – Изменение дат в диаграмме Ганта

1. Удаление лишнего пустого пространства между полосами.

Уплотнение полос задач сделает диаграмму Ганта еще лучше.

• Нажмите на любую красную полоску, чтобы выбрать их все; щелкните правой кнопкой мыши и выберите «Формат ряда данных».
• В диалоговом окне «Формат ряда данных» установите Перекрытие рядов на 100%, а Боковой зазор — на 0% (или близкий к 0%).

Диаграмма Ганта в Excel – Удаление пустого пространства в диаграмме Ганта

И вот результат наших усилий – простая, но симпатичная диаграмма Ганта в Excel:

Диаграмма Ганта в Excel – Финальная версия диаграммы Ганта

Помните, что, хотя диаграмма Excel очень хорошо имитирует диаграмму Ганта, она по-прежнему сохраняет основные функции стандартной диаграммы Excel:

• Диаграмма Ганта в Excel изменит размер при добавлении или удалении задач.
• Вы можете изменить Дату начала или Длительность, диаграмма будет отражать изменения и автоматически настраиваться.

Диаграмма Ганта в Excel шаблон

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

Когда вы создали свой дизайн, хорошей идеей будет сохранить диаграмму Ганта в Excel как шаблон для будущего использования. Для этого щелкните правой клавишей мыши в области диаграммы, и выберите пункт «Сохранить как шаблон» в контекстном меню.

Диаграмма Ганта в Excel – Сохранить шаблон диаграммы Ганта в Excel

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

[ Диаграмма Ганта в Excel скачать шаблон ]

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

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

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

• Шаг 1. Подготавливаем данные для диаграммы Ганта
• Шаг 2. Строим шаблон диаграммы Ганта
• Шаг 3. Добавляем прогресс выполнения проекта на диаграмму
• Шаг 4. Визуализируем плановые даты этапов проекта
• Шаг 5. Обозначаем на диаграмме Ганта сегодняшнюю дату

Шаг 1. Подготавливаем данные для диаграммы Ганта

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

Таблица должна содержать следующие данные:

• наименование этапа / задачи
• блоки План и Факт — в них будут обозначены плановые и фактические сроки выполнения каждого этапа. Важно наличие обоих блоков для визуализации выполнения сроков календарного плана в диаграмме Ганта.
• в каждом блоке План и Факт должны быть следующие столбцы: дата старта, продолжительность в рабочих днях, дата окончания. Причем дату окончания можно посчитать, прибавив к дате старта количество рабочих дней при помощи функции РАБДЕНЬ.

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

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

• Дата старта факт — данные из столбца Дата старта в блоке Факт.
• Дней — количество календарных дней между датами окончания и старта в блоке Факт. Нужно от даты окончания отнять дату начала.
• Дней готовности — данные для визуализации прогресса выполнения задачи. По факту это не количество дней, а доля выполненной части задачи. Чтобы ее получить, нужно умножить данные в столбце Дней готовности на столбец Готовность % из блока Факт.
• Дата старта план — данные из столбца Дата старта в блоке План.
• Дней — количество календарных дней между датами окончания и старта в блоке План. 
• Ось Y для плана — вспомогательный столбец. Чтобы его получить, нужно в самой нижней ячейке столбца указать число 0,2, а в следующих ячейках внести формулу 1+предыдущая ячейка. 
• Сегодня — сегодняшняя дата (указывается при помощи формулы СЕГОДНЯ) или любая дата, на которую нужно зафиксировать прогресс проекта.

Данные для графика проекта, на основе которых будет построена диаграмма Ганта, готовы.

Шаг 2. Строим шаблон диаграммы Ганта 

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

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

Теперь выделяем первые три столбца:

И переходим во вкладку меню Вставка — блок Диаграммы — Гистограммы — Линейчатая — Линейчатая с накоплением

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

Как видите, ряды на диаграмме двух цветов, посмотрим, какие данные содержатся в этих рядах.

Будем превращать линейчатую гистограмму в диаграмму Ганта выполнения этапов проекта.

1. Изменим формат для данных столбца Дата старта факт обратно на формат Дата.

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

Щелкаем правой кнопкой мыши по оси категорий (ось Y) и выберем Формат оси.

Далее перейдем в Параметры оси и установим “галку” Обратный порядок категорий.

3. Теперь уберем заливку с синих рядов (они вспомогательные и больше нам не нужны). Для этого дважды щелкнем на любом синем ряде — попадем в Формат ряда данных (или правая кнопка мыши — Формат ряда данных) — Заливка и границы — Нет заливки.

4. Теперь нужно поправить данные в оси Х — даты. Если посмотрите на предыдущий рисунок, то увидите, что даты начинаются намного раньше старта проекта (перед оранжевыми прямоугольниками есть пустое поле). Исправим это.

Войдем в меню Формат оси (правая кнопка мыши — Формат оси) — Параметры оси — Границы. Как видите, формат данных здесь остался тот, который мы устанавливали изначально, т.е. Общий.

Поэтому придется немного “подогнать” данные цифры. Ориентируйтесь на то, как меняется ваш график при изменении цифр. В примере Минимум по умолчанию — число 44400. Изменим его на 44550, и получим то, что нужно — оранжевые ряды сместились влево, равномерно заняв всю область диаграммы.

В вашем случае это будет какое-то другое число (не 44550), все зависит от дат в таблице. Не бойтесь “поиграться” этим значение, чтобы выровнять вашу диаграмму Ганта.

Шаг 3. Добавляем прогресс выполнения проекта на диаграмму

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

А чтобы показать на диаграмме Ганта выполнение, нужно:

1. Нажать на “плюс” в правом верхнем углу диаграммы — стрелку рядом с пунктом Предел погрешностей — Дополнительные параметры.

2. В окне Добавление предела погрешностей выбираем ряд Дата старта факт и нажимаем Ок.

3. Появятся вот такие полоски, которые нужно настроить. Для этого нажимаем правую кнопку мыши — Формат предела погрешностей.

4. Далее внимательно смотрите на следующую картинку с последовательность действий.

• Направление — Плюс
• Конечный стиль — Без точки
• Величина погрешности — Пользовательская
• Нажать кнопку Указать значение
• Выделить цифры в столбце Дней для готовности.

5. Не закрывая окно Формат предела погрешностей, переходим во вкладку Заливка и границы. Снова на картинке внимательно смотрим последовательность действий.

• Блок Линия — Сплошная линия
• Выбираем цвет (в примере выбран зеленый)
• Задаем ширину — такую, чтобы зеленые линии примерно перекрыли оранжевые.

Шаг 4. Визуализируем плановые даты этапов проекта

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

1. Щелкнем правой кнопкой мыши в области диаграммы — Выбрать данные.
2. Нажимаем кнопку Добавить.

3. Имя ряда — ссылка на название столбца Дата старта план. Значения — выделяем значения в столбце Ось Y для плана.

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

5. Выбираем тип диаграммы Комбинированная, и для ряда Дата старта план выбираем тип диаграммы Точечная.

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

7. Ставим курсор в поле Ось Х и выделяем данные в столбце Дата старта план.

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

8. Выделяем новый ряд (серые точки) и снова нажимаем “плюс” в правом верхнем углу диаграммы — Предел погрешностей — Стандартная погрешность. 

9. Вокруг серых точек появятся такие “кресты”. Нужно удалить вертикальные линии (выделить и нажать Delete).

10. Выделяем горизонтальные линии погрешностей — правая кнопка мыши — Формат предела погрешностей — Направление Плюс — Конечный стиль — Без точки — Величина погрешности — Пользовательская — кнопка Укажите значение — выделить столбец Дней (второй).

Появились линии — это интервалы плановых дат нашего календарного плана диаграммы Ганта. Осталось настроить их внешний вид и убрать сами серые точки. Как настраивать внешний вид для предела погрешности, описано в Шаге 3, пункт 5.

Чтобы убрать серые точки, выделим их и перейдем в Формат ряда. 

Выберем Маркер — параметры Маркера — Нет.

Наша диаграмма Ганта выполнения этапов проекта почти готова! Серые линии — это плановые даты проекта. На графике прекрасно визуализировано отклонение фактических дат от плановых.

Шаг 5. Обозначаем на диаграмме Ганта сегодняшнюю дату

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

1. Правая кнопка мыши в области диаграммы — Выбрать данные — Добавить.
2. Указываем данные для ряда, как показано на картинке.

После нажатия Ок видим, что ничего не изменилось. Ряд не виден, но это не страшно.

3. Правая кнопка мыши в области диаграммы — Формат области построения — выбираем ряд Сегодня, как показано на картинке ниже.

4. И здесь задаем цвет линии и формат стрелки.

5. Изменим наименование диаграммы и — наша диаграмма Ганта выполнения этапов проекта готова!

В этой статье мы узнали, как визуализировать график проекта при помощи диаграммы Ганта в Excel.

Вам может быть интересно:

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

Как сделать диаграмму Ганта в 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 = vbBlack

End 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

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