Сетевой график в excel - Учим Эксель

Как в кабинете

Сетевой график в Excel

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

  • Работа с Excel 2007 года
  • Работа с Excel 2010 года
  • Работа с Excel версии 2013 года

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

Работа с Excel 2007 года

Чтоб выстроить график в Excel 2007 года, необходимо употреблять последующий метод:

  1. На листе, где размещается подходящая таблица, изберите всякую пустую ячейку.
  2. В меню найдите вкладку «Вставка».
  3. В этом разделе кликните по вкладке «Графики».
  4. Тут изберите пригодный формат визуализации.
  5. В этом же меню найдете вкладку «Избрать данные».
  6. Выделите все данные вкупе с наименованиями категорий и условными обозначениями.
  7. Если разыскиваемые группы поменялись местами, то необходимо надавить клавишу «Строчка/Столбец» и они займут необходимое положение.

Вставка

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

Добавляем детали

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

  • ряды данных;
  • подписи к ним;
  • область построения рисунка.

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

 графики в Excel

Работа с Excel 2010 года

Построение графиков и диаграмм в Excel 2010 идет по тому же принципу, что и в предшествующей версии. Но есть и некие различия, которыми юзер должен обладать. Так, при построении графиков можно пользоваться вкладкой «Работа с диаграммами», в которой полезным будет Конструктор, где бессчетные стили дизайна собраны в одном поле и выбираются 2-мя кликами.

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

Вкладки «Макет» и «Формат»

Работа с Excel версии 2013 года

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

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

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

Юзер может обратиться к функции «Рекомендуемые диаграммы». Программка дает составить график в Excel в более пригодном формате. Все доп функции данной для нас версии разрешают окончить работу с минимальными временными затратами.

Сетевой график в Excel 2013

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

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

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

Остальные способности программки

Вы сможете выстроить ступенчатый график в Excel. Он указывает конфигурации 1-го показателя за определенное время, как и остальные виды визуализации. Но для его построения употребляется понятие «Планки погрешностей». Это 3-ий показатель, который употребляется в разработке рисунка.

Для работы на приведенном примере необходимо:

  1. В примыкающем от крайнего рабочего столбце С (в первой рабочей ячейке) сделать формулу B3-B2.
  2. Копируем формулу во все рабочие ячейки столбца С.
  3. Делаем точечную диаграмму с прямыми отрезками с внедрением столбцов А и В.
  4. Рядом с ней будет символ плюса, при нажатии на него раскроется группа функций.
  5. Избираем «Предел погрешности».
  6. Во вкладке «Макет» избираем «Текущий фрагмент».
  7. Открываем «Планки погрешностей» по оси Х и кликаем по формату выделенного.

В открывшемся поле необходимо отметить в «Направление» клавишу «Плюс», в конечном стиле «Без точки». А величина погрешности обязана быть отмечена как фиксированная — единица. Опосля этого необходимо таковым же методом открыть «Планки погрешностей по оси У». Тут 1-ые два параметра такие же, как у оси Х, лишь величина погрешности отмечается как «Пользовательская». В поле «Отрицательные значения ошибки» вставьте данные из столбца С.

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

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

Автоматическая сетевая диаграмма проекта в EXCEL

Построим сетевую диаграмму проекта на диаграмме MS EXCEL. Сетевая диаграмма будет автоматом перестраиваться при изменении связей меж работами. Для этого нам будет нужно автоматом найти все пути проекта (не только лишь критичные).

В статье Способ критичного пути в MS EXCEL сетевая диаграмма проекта была построена на листе MS EXCEL.

Интересно почитать:  Как в excel напечатать выделенный фрагмент

К огорчению, при изменении связей меж работами данную диаграмму нужно перестраивать в ручную, что быть может довольно трудоемко. Чтоб этого избежать, используем диаграмму типа Точечная (XY Scatter) , на которой точками обозначим работы, а стрелками — связи меж работами.

СОВЕТ : Подробнее о построении диаграмм см. статью Базы построения диаграмм в MS EXCEL .

Постановка задачки

Представим, что нам требуется показать связи проекта, состоящего из 7 работ (от А до G), также заданы вехи начала (Start) и окончания проекта (Finish).

Как видно из диаграммы, связи меж работами заданы так, что существует 3 пути:

  1. Start-A-D-Finish
  2. Start-B-E-G-Finish
  3. Start-C-F-Finish

Изобразим на диаграмме типа Точечная эти работы и связи меж ними.

Пусть меж работами D и G требуется сделать связь (выделено красноватым на диаграмме ниже).

Это приведет к тому, что число путей проекта возрастет с 3-х до 4-х: добавится путь Start-А-D-G-Finish.

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

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

ВНИМАНИЕ! Построение данной сетевой диаграммы в данной для нас статье приведено только с целью демонстрации технической реализуемости такового построения в MS EXCEL. Не ставилось целью создать «комфортную программку для юзеров». Это значит, что при изменении юзером количества работ/ прибавления связей меж работами, переименовании листов, рядов диаграммы и остальных конфигураций в файле примера , может востребовать доборной опции файла. Таковая настройка от юзера востребует суровых познаний MS EXCEL и времени.

Задаем связи меж работами

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

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

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

Подсчет предшественников можно создать при помощи формулы, которая состоит из 4-х частей:

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

Функция ИНДЕКС() выводит коды работ-предшественников по номеру позиции. Функция ЕСЛИОШИБКА() , которая возникла в MS EXCEL 2007 , подменяет ошибки #ЧИСЛО! на значение Пустой текст «», которое весьма комфортно, т.к. ячейка смотрится при всем этом пустой.

При задании последователей (см. желтоватые ячейки) нужно выслеживать, чтоб количество предшественников у каждой работы было не больше 3-х (см. столбец J).

Вычисление путей

Метод вычисления путей последующий:

  1. Для вехи Start (код=1) определяются ее последователи, т.е. работы А, В и С, которые имеют коды соответственно 2, 3, 4 (см. шаг 0, строчка 37), также количество последователей у каждой из работ А, В и С. Не считая того, код вехи Start нужно повторить в столбце В столько раз, сколько у нее последователей. На данном шаге количество путей равно 3, т.е. равно количеству последователей вехи Start;
  2. На последующем шаге определяются последователи работ А, В, С, т.е. работы D, E, F (коды 5, 6, 7). См. ячейку J53 . В примыкающем столбце справа рассчитывается количество последователей этих работ. Как видно из диаграммы выше, работа D имеет 2 последователя. Это приводит к тому, что количество путей проекта возрастает до 4-х. Потому необходимо обновить количество вех Start до 4-х (см. ячейку G53 ). Это можно создать используя идеи из статьи Восстанавливаем последовательности из перечня без повторов в MS EXCEL .
  3. Аналогично на последующих шагах определяются последующие работы-последователи и обновляется количество вероятных путей проекта. По результатам всякого шага делается проверка заслуги вехи Finish (код=9). Если все пути завершены, то в конце всякого пути обязана быть веха Finish.

В файле примера наибольшая длина пути от вехи Start до вехи Finish обязана быть не наиболее 5 (включая эти вехи). Под длиной пути понимается последовательность работ, к примеру: Start — А — D — G — Finish. По мере необходимости необходимо прирастить количество шагов, чтоб получить возможность вычислять наиболее долгие пути. В столбце N при помощи Условного форматирования сотворен индикатор, который указывает окончание вычисления путей на определенном шаге.

Построение диаграммы

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

Чтоб каждой точке присвоить надпись с заглавием работы необходимо написать макрос либо иметь MS EXCEL 2013 либо следующую версию программки (см. статью Подписи для точечной диаграммы в MS EXCEL ). В файле примера также имеется макрос для присвоения надписей (также см. статью Направленный граф на диаграмме MS EXCEL ).

Чтоб сделать пути (максимум 10) нам будет нужно сделать 10 рядов данных. Часть из этих рядов будет содержать значения #Н/Д, т.к. число путей быть может меньше 10.

В итоге получим вот такую диаграмму, в которой 4 пути:

Представим, что при планировании проекта выяснилось, что меж работами F и G имеется связь (связь работ в файле примера лишь Финиш-Старт, т.е. начало последующей работы опосля окончания предшествующей). Добавив эту связь в ячейку D28 , диаграмма автоматом обновится.

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

Сетевой график в Microsoft Excel

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

Интересно почитать:  Как в excel считать часы

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

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

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

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

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

Наименования колонок в шапке таблицы в Microsoft Excel

Переход в формат ячеек в Microsoft Excel

Вкладка выранивание в окне форматирования ячеек в Microsoft Excel

Вкладка шрифт в окне форматирования ячеек в Microsoft Excel

Выделение строк будущей таблицы в Microsoft Excel

Установка границ в Microsoft Excel

На этом создание заготовки таблицы можно считать оконченным.

Заготовка таблицы готова в Microsoft Excel

Шаг 2: создание шкалы времени

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

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

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

Выделение диапазона для шкалы времени в Microsoft Excel

Установка границ в диапазоне для шкалы времени в Microsoft Excel

Переход в окно прогрессии в Microsoft Excel

Окно Прогрессия в Microsoft Excel

Переход в окно форматирования ячеек в Microsoft Excel

Изменение ориентации надписи в окне форматирования в Microsoft Excel

Переход к автоподбору высоты строки в Microsoft Excel

Переход к автоподбору ширины столбца в Microsoft Excel

Квадратная форма элементов сетки в Microsoft Excel

Шаг 3: наполнение данными

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

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

Мероприятия и ответсвенные лица в таблице в Microsoft Excel

Маркер заполнения в Microsoft Excel

Диапазон заполнен нумерацией по порядку в Microsoft Excel

Даты начала и продолжительность в днях конретных мероприятий в Microsoft Excel

Примечание в таблице в Microsoft Excel

Переход к автоподбору ширины столбца в программе Microsoft Excel

Таблица стала компактной в Microsoft Excel

Шаг 4: Условное форматирование

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

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

Выделение диапазона ячеек на шкале времени в Microsoft Excel

Переход к созданию правила условного форматирования в Microsoft Excel

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

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

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

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

2-ой аргумент представлен выражением «G$1<=($D2+$E2-1)». Он инспектирует, чтоб показатель на шкале времени (G$1) был меньше либо равен дате окончания проекта ($D2+$E2-1). Показатель на шкале времени рассчитывается, как и в прошлом выражении, а дата окончания проекта рассчитывается методом сложения даты начала проекта ($D2) и длительности его в деньках ($E2). Для того, чтоб в количество дней был включен и 1-ый денек проекта, от данной суммы отнимается единица. Символ бакса играет ту же роль, что и в прошлом выражении.

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

Переход к выбору формата условного форматирования в приложении Microsoft Excel

Выбор цвета заливки в окне Формат ячеек в Microsoft Excel

Закрытие окна создания правила условного форматирования в приложении Microsoft Excel

Сетевой график готов в программе Microsoft Excel

На этом создание сетевого графика можно считать оконченным.

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

Мы рады, что смогли посодействовать Для вас в решении задачи.

Кроме данной для нас статьи, на веб-сайте еще 12327 инструкций.
Добавьте веб-сайт Lumpics.ru в закладки (CTRL+D) и мы буквально еще пригодимся для вас.

Отблагодарите создателя, поделитесь статьей в соц сетях.

Опишите, что у вас не вышло. Наши спецы постараются ответить очень стремительно.

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

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

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

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

Gantt data

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

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

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

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

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

=$C4;G$1 Формулы графика

Сейчас выделите спектр ячеек G4:O16 чтоб присвоить ему условное форматирование:

диапазон G4-O16

Как видно на рисунке правило форматирования применяется для ячеек с текстовым значением «Достигнута», которое возвращают формулы в спектре G4:O16. Для эстетики опять используем 2 цвета заливки. Принципиально также отметить что на вкладке «Число» используя опцию «(все форматы)» задаем собственный пользовательский формат из 3-х точек с запетой «;;;» — это дозволит скрыть текстовое содержимое в ячейках. Получаем итог:

Достигнута цель

Перейдите на всякую ячейку в спектре G4:O16 и откройте «Диспетчер правил условного форматирования». Для этого используйте меню «ГЛАВНАЯ»-«Условное форматирование»-«Управление правилами». Воспользовавшись клавишей «Сделать правило» сделайте еще 2 правила для значений «В процессе» (желтоватый цвет) и «В ожидании» (красноватый цвет):

Диспетчер правил

Сейчас сделаем курсор для выделения дат на графике – это сделает анализ по графику Ганта наиболее комфортным. Опять перейдите на всякую ячейку в спектре G4:O16 и в диспетчере правил условного форматирования сделайте новое правило, но уже с формулой =G$1=$F$1 и иными опциями формата ячеек:

курсор для выделения дат

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

Правило курсора

Дальше оформляем дизайн шапки таблицы в спектре B3:F3 используя градиентную заливку ячеек из 2-ух цветов:

дизайн шапки таблицы

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

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

Сейчас в диаграмме Ганта создадим интерактивные элементы управления из выпадающих списков. Начнем с обычного. Перейдите курсором Excel на ячейку C1 чтоб в ней создать 1-ый выпадающий перечень:

интерактивные элементы управления

В параметрах для поля ввода «Источник:» указываем два слова разбитых точкой с запятой «Деньки;Недельки», жмем ОК и выпадающий перечень из 2-ух значений – ГОТОВ!

2-ой выпадающий перечень будет наиболее сложным. Перед его созданием поначалу сделаем именной спектр с именованием «Список_дат» и формулой:

выпадающий список

Данное имя будет автоматом подгружать в себя все даты, находящиеся в первой строке листа начиная от ячейки G1. А сейчас мы используем ссылку на это имя (=Список_дат) в качестве источника для второго выпадающего перечня в ячейке F1:

Сейчас наш курсор для выделения дат – интерактивный и его перемещение по диаграмме Ганта управляется при помощи выпадающего перечня в ячейке F1.

интерактивный курсор

Пришел тот давно ожидаемый момент, когда при помощи VBA-макроса мы будем созодать магию для оживления диаграммы Ганта. Откройте редактор макросов Visual Basic нажав комбинацию кнопок ALT+F11 и сделайте в нем новейший модуль с кодом VBA-программы:

редактор макросов Visual Basic

Полная версия кода макроса на языке программирования 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 при помощи макросов:

Кнопка обновить результат

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

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

Далее мистика длится. Возникает вопросец для чего нам нужен был 1-ый интерактивный отран управления графиком Ганта – выпадающий перечень? Все просто нужно сделать очередной макрос, но сейчас не в модуле, а в листе. Возвращаемся в редактор макросов 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

Протестируем 2-ой макрос воспользовавшись первым выпадающим перечнем для переключения со значения «Деньки» на значение «Недельки»:

Дни недели

2-ой макрос употребляется лишь для вызова первого при обновлении значения в ячейке C1 – где и находится 1-ый выпадающий перечень.

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

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