Как сделать проект в excel?

Как сделать проект в excel?

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

Почему Excel

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

Часто в корпоративной среде бывает, что компания готова купить MS Project только для некоторых сотрудников, что в общем-то лишено смысла. Постоянно выгружать в HTML или Excel отчёты из MS Project и рассылать по почте всем заинтересованным лицам довольно утомительное дело. На моей памяти так не делал никто, хотя мы (IT отдел) предлагали это в качестве опции. Бесплатного просмотрщика файлов MS Project Майкрософт не выпускает. Третьи компании, насколько я знаю, тоже (но есть платные).

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

Ещё один проектный темплейт для Excel?

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

Нечто бесплатное, но предельно простое и убогое.

Нечто забюрократизированное и неудобоваримое, типа «Комплект шаблонов проектных документов из 55 файлов».

Нечто реально удобное, но за деньги.

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

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

Возможности

Планирование сроков и этапов проекта

Двух-уровневая структура этапов проекта

Сроки для плана и для факта

Возможность перекрытия соседних пунктов плана

Учёт завершения пункта плана в процентах

Учёт затрат денежных средств по этапу (план/факт)

Оценка необходимого и достигнутого качества работ

Возможность обозначить вехи (milestones) проекта

Возможность связать конкретный этап с риском (risk) или проблемой (issue)

Серьёзная автоматизация при планировании сроков.

Диаграмма Ганта

Масштабирование по времени

Возможность смотреть либо плановый график, либо фактический

Цветовое выделение выходных и праздников

Учёт ресурсов

Планирование необходимого количества ресурсов

Учёт наличествующего количества ресурсов

Сравнение плана и факта

Статус проекта (board)

Светофорные индикаторы: график, бюджет, качество, ресурсы, риски, проблемы

Количественные и аналитические показатели

В целом board выглядит довольно эстетично

Ведение справочников

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

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

Версия 1.03 от 24.04.2015

Читайте также:

Разбор создания универсального табеля рабочего времени

Шаблон посменного графика работы

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

Желающие получить VBA пароль на шаблон могут перевести 300 руб. на указанный ЯК:

Создание сетевого графика в Microsoft Excel

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

Процедура построения сетевого графика

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

Этап 1: построение структуры таблицы

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

  1. Итак, вписываем наименования столбцов в будущую шапку таблицы. В нашем примере названия колонок будут следующими:
    • № п/п;
    • Название мероприятия;
    • Ответственное лицо;
    • Дата начала;
    • Продолжительность в днях;
    • Примечание.

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

Отмечаем элементы шапки и клацаем по области выделения. В списке отмечаем значение «Формат ячеек…».

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

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

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

    Этап 2: создание шкалы времени

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

    В нашем примере используем вариант, когда один период равен одному дню. Сделаем шкалу времени на 30 дней.

    Читать еще:  Факторный анализ в excel как сделать

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

    После этого клацаем по пиктограмме «Граница» в режиме «Все границы».

    Вслед за тем, как границы очерчены, внесем даты в шкалу времени. Допустим, мы будем контролировать проект с периодом действия с 1 по 30 июня 2017 года. В этом случае наименование колонок шкалы времени нужно установить в соответствии с указанным промежутком времени. Конечно, вписывать вручную все даты довольно утомительно, поэтому воспользуемся инструментом автозаполнения, который называется «Прогрессия».

    В первый объект шапки шакалы времени вставляем дату «01.06.2017». Передвигаемся во вкладку «Главная» и клацаем по значку «Заполнить». Открывается дополнительное меню, где нужно выбрать пункт «Прогрессия…».

    Происходит активация окна «Прогрессия». В группе «Расположение» должно быть отмечено значение «По строкам», так как мы будем заполнять шапку, представленную в виде строки. В группе «Тип» должен быть отмечен параметр «Даты». В блоке «Единицы» следует поставить переключатель около позиции «День». В области «Шаг» должно находиться цифровое выражение «1». В области «Предельное значение» указываем дату 30.06.2017. Жмем на «OK».

    Массив шапки будет заполнен последовательными датами в пределе от 1 по 30 июня 2017 года. Но для сетевого графика мы имеем слишком широкие ячейки, что негативно влияет на компактность таблицы, а, значит, и на её наглядность. Поэтому проведем ряд манипуляций для оптимизации таблицы.
    Выделяем шапку шкалы времени. Клацаем по выделенному фрагменту. В списке останавливаемся на пункте «Формат ячеек».

    В открывшемся окне форматирования передвигаемся в раздел «Выравнивание». В области «Ориентация» устанавливаем значение «90 градусов», либо передвигаем курсором элемент «Надпись» вверх. Клацаем по кнопке «OK».

    После этого наименования столбцов в виде дат изменили свою ориентацию с горизонтальной на вертикальную. Но из-за того, что ячейки свой размер не поменяли, названия стали нечитаемыми, так как по вертикали не вписываются в обозначенные элементы листа. Чтобы изменить это положение вещей, опять выделяем содержимое шапки. Клацаем по пиктограмме «Формат», находящейся в блоке «Ячейки». В перечне останавливаемся на варианте «Автоподбор высоты строки».

    После описанного действия наименования столбцов по высоте вписываются в границы ячеек, но по ширине ячейки не стали компактнее. Снова выделяем диапазон шапки шкалы времени и клацаем по кнопке «Формат». На этот раз в списке выбираем вариант «Автоподбор ширины столбца».

  • Теперь таблица приобрела компактность, а элементы сетки приняли квадратную форму.
  • Этап 3: заполнение данными

    Далее нужно заполнить таблицу данными.

      Возвращаемся к началу таблицы и заполняем колонку «Название мероприятия» наименованиями задач, которые планируется выполнить в ходе реализации проекта. А в следующей колонке вносим фамилии ответственных лиц, которые будут отвечать за выполнение работы по конкретному мероприятию.

    После этого следует заполнить колонку «№ п/п». Если мероприятий немного, то это можно сделать, вручную вбив числа. Но если планируется выполнение многих задач, то рациональнее будет прибегнуть к автозаполнению. Для этого ставим в первый элемент столбца число «1». Курсор направляем на нижний правый край элемента, дождавшись момента, когда он преобразуется в крестик. Одномоментно зажимаем клавишу Ctrl и левую кнопку мышки, тянем крестик вниз до нижней границы таблицы.

    Весь столбец при этом будет заполнен значениями по порядку.

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

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

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

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

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

      Отмечаем весь массив пустых ячеек на шкале времени, который представлен в виде сетки элементов квадратной формы.

    Щелкаем по значку «Условное форматирование». Он расположен в блоке «Стили» После этого откроется список. В нем следует выбрать вариант «Создать правило».

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

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

    «И» — это встроенная функция Excel, которая проверяет, все ли значения, внесенные как её аргументы, являются истиной. Синтаксис таков:

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

    Первый аргумент записан в виде выражения «G$1>=$D2». Он проверяет, чтобы значение в шкале времени было больше или равно соответствующему значению даты начала определенного мероприятия. Соответственно первая ссылка в данном выражении ссылается на первую ячейку строки на шкале времени, а вторая — на первый элемент столбца даты начала мероприятия. Знак доллара ($) установлен специально, чтобы координаты формулы, у которых стоит данный символ, не изменялись, а оставались абсолютными. И вы для своего случая должны расставить значки доллара в соответствующих местах.

    Второй аргумент представлен выражением «G$1 ДА НЕТ

    Создание нового проекта

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

    Щелкните Файл > Создать > Новый проект.

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

    Примечание: Краткое руководство по работе с более простыми задачами в Project можно найти в кратком Подпуске Project.

    Настройка нового проекта

    Установка даты начала и даты окончания проекта

    Щелкните Проект > Сведения о проекте.

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

    Добавьте дату в поле Дата начала или Дата окончания.

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

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

    Используйте календарь, чтобы изменить рабочие дни и часы.

    Установите выходные дни для людей, работающих над проектом.

    Указание имени или названия и других свойств файла

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

    Щелкните Файл > Сведения.

    В правой части экрана выберите пункт Сведения о проекте, а затем — Дополнительные свойства.

    На вкладке Сводка введите имя в поле Название.

    Добавьте в файл проекта любые дополнительные сведения, которые посчитаете нужными.

    Примечание: Чтобы вернуться к представлению проекта, нажмите кнопку «Назад» .

    Добавление задач

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

    Добавление задач вручную. Это означает, что их нужно ввести в Project.

    Вырезание и вставка. Project запоминает структуру, созданную для задач в Word, Outlook или PowerPoint, и делает их суммарными задачами и подзадачами при их вставке в Project (только в Project 2013 и более поздних версиях).

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

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

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

    Установите связи между задачами, чтобы создать зависимости между ними.

    Добавьте вехи, чтобы отметить важные события в календарном плане.

    Создайте структуру проекта с суммарными задачами и подзадачами.

    Отображение суммарной задачи проекта

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

    Дальнейшие действия

    Когда вы создаете новый проект в Project Web App, доступны следующие параметры:

    Корпоративный проект. Этот параметр создает проект, чтобы его можно было редактировать в Project Web App.

    Список задач SharePoint. Этот параметр позволяет создать проект как сайт проекта. С помощью списка задач на сайте проекта можно вычислить задачи для проекта. По мере создания списка задач на этом сайте проекта эти задачи будут просматриваться в центре проектов в Project Web App.

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

    Создание нового корпоративного проекта

    Чтобы создать новый корпоративный проект, выполните указанные ниже действия.

    На панели быстрого запуска выберите пункт Проекты.

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

    На появившейся странице введите нужные сведения в поля имя, Описаниеи Дата начала , а затем нажмите кнопку Готово.

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

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

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

    Создание нового проекта списка задач SharePoint

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

    На панели быстрого запуска выберите пункт Проекты.

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

    На странице Создание нового проекта введите имя нового проекта, а затем нажмите кнопку Готово.

    Примечание: Если вы уже запустили план проекта с помощью списка задач в Microsoft SharePoint Foundation 2013, вы можете щелкнуть Импорт с сайтов SharePoint , чтобы добавить список в качестве проекта в центр проектов. Дополнительные сведения можно найти в разделе Добавление существующего списка задач SharePoint в Project Web App.

    После создания сайта проекта щелкните изменить в сером поле в левой части веб-части Сводка по проекту .

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

    Совет: Дополнительные сведения о создании задач на сайте проекта можно найти в разделе Добавление задач в проект.

    После того как вы создадите этот список задач, вы вернетесь к Project Web App вы увидите, что он отображается как проект в центре проектов. Обновления, внесенные в список задач на сайте проекта, отражаются в центре проектов в Project Web App.

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

    Шаблон диаграммы Ганта управления проектом в Excel скачать

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

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

    Переименуйте название рабочего листа Excel «Лист1» в имя «Gantt». После на этом же листе создайте таблицу с исходными данными точно такую же как показано ниже на рисунке, с таким же расположением всех ячеек на листе:

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

    С помощью маркера в нижнем правом углу курсора Excel заполните диапазон ячеек G1:O1 чередующимися датами от 09.09.2022 по 17.09.2022:

    Подготовка исходных данных закончена переходим непосредственно к построению диаграммы Ганта на календаре.

    Как построить календарь планов с диаграммой Ганта по таблице Excel

    Заполните диапазон ячеек G4:O16 на листе «Gantt» одной и той же формулой:

    =$C4;G$1

    Теперь выделите диапазон ячеек 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:

    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets( «Gantt» )

    sh.Range( «G3:XFD3» ).UnMerge
    sh.Range( «G1:XFD3» ).Clear
    sh.Range( «G1:XFD3» ).Orientation = 0

    Dim lc, lr As Integer

    For 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 = i

    Else
    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).Row

    If 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.5

    For 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)).FillRight

    With 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

    sh.Range( «B4» , sh.Cells(lr — 1, 6)). Select
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Range( «C1» ). Select

    Чтобы воспользоваться макросом нам потребуется новый (3-тий) элемент управления диаграммой Ганта. Ним послужит простая небольшая картинка в виде кнопки с иконкой «Обновить». Копируем картинку из любого источника и вставляем прямо на лист Excel. А затем подключаем к ней наш макрос Refresh_Data:

    Нажимаем на кнопку и наслаждаемся «магией» автоматизации работы в Excel с помощью макросов:

    Как говорят французы «Ву а ля»!

    Переключение дней и неделей для диаграммы Ганта на календаре планов

    Дальше магия продолжается. Возникает вопрос зачем нам нужен был первый интерактивный элемент управления графиком Ганта – выпадающий список? Все просто необходимо создать еще один макрос, но на этот раз не в модуле, а в листе. Возвращаемся в редактор макросов ALT+F11 и в нем открываем лист «Gantt» для ввода нового кода макроса:

    Код макроса для вызова с листа Excel:

    Private 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 – где и находится первый выпадающий список.

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

    Ссылка на основную публикацию
    Adblock
    detector