Составить график ТО

@Donich · Регистрация: 06.07.2015

Author24 — интернет-сервис помощи студентам

Задача такова. Нужно построить автоматический график:
слева в столбик названия агрегатов, вверху даты(1,2,3 и т.д.) в зависимости от месяца. Месяц и год выбирать из выпадающего списка. Выходные закрашиваются серым.
Так вот нужно чтоб (в зависимости от даты последнего ТО) в графике ставился Х каждые 10 дней. Если Х попадает на выходной, то переносится на следующий день.

@Donich · 26.06.2016, 20:14 **[ТС]**

график1.xlsx вот такого вида что-то

@AlexM · 27.06.2016, 14:09

Как вы полагаете определить последний ТО предыдущего месяца? Когда выпадающими списками открыт месяц, например Июнь, то данные Мая должны исчезнуть.
Скорее всего нужна дата самого первого ТО и от нее считать. Эту задачу формулами не решить. Надо использовать VBA, написать функцию пользователя.
В приложенном файле таблица без Х, сделано только автоматическое форматирование выходных.

@Donich · 27.06.2016, 20:39 **[ТС]**

спасибо и за это! вопрос усложнился, как написать формулу??? я с макросами не очень, впринципе как и с бесиком...

@SergeyPal · 27.06.2016, 23:02

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

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

@AlexM · 28.06.2016, 00:34

Решение с функцией пользователя и с алгоритмом из сообщения №3, с датой первого ТО

@AlexM · 28.06.2016, 09:27

Немного сократил код функции

Visual Basic

Function TI(Date1 As Double, Date2 As Double, iStep As Long) As String
Dim i As Double
For i = Date1 To Date2 Step iStep
    i = i + IIf(Weekday(i, 7) > 2, 0, 3 - Weekday(i, 7))
    If CDate(i) = Date2 Then TI = "X"
Next i
End Function

@Donich · 28.06.2016, 20:35 **[ТС]**

ОГРОМНОЕ ЧЕЛОВЕЧЕСКОЕ СПАСИБО!!!!!

это то что нужно!

Вы мега крутой чувак!

@AlexM · 28.06.2016, 20:56

Не по теме:

Сообщение от Donich

крутой чувак

Чувствую себя моложе лет этак на сорок.

@Donich · 28.06.2016, 21:04 **[ТС]**

и еще маленький вопрос (уж простите), что поменять в коде, чтоб если выпадает на субботу, то переносил на пятницу, а не на понедельник?

@AlexM · 28.06.2016, 22:25

Не назначайте первое ТО на среду и тогда на субботу ТО никогда не попадет.
Если все же первое ТО в среду, то всего один раз (только второй ТО) будет перенесен на понедельник.

@AlexM 2904 / 1718 / 705 Регистрация: 04.09.2015 Сообщений: 3,445
	28.06.2016, 22:25	11
	Сообщение было отмечено Donich как решение Решение Не назначайте первое ТО на среду и тогда на субботу ТО никогда не попадет. Если все же первое ТО в среду, то всего один раз (только второй ТО) будет перенесен на понедельник. 2

@Donich 0 / 0 / 0 Регистрация: 06.07.2015 Сообщений: 5
		1
	Составить график ТО 26.06.2016, 19:49. Показов 9801. Ответов 10 Метки нет (Все метки) Задача такова. Нужно построить автоматический график: слева в столбик названия агрегатов, вверху даты(1,2,3 и т.д.) в зависимости от месяца. Месяц и год выбирать из выпадающего списка. Выходные закрашиваются серым. Так вот нужно чтоб (в зависимости от даты последнего ТО) в графике ставился Х каждые 10 дней. Если Х попадает на выходной, то переносится на следующий день. 0

@Donich 0 / 0 / 0 Регистрация: 06.07.2015 Сообщений: 5
	26.06.2016, 20:14 [ТС]	2
	график1.xlsx вот такого вида что-то 0

@Donich 0 / 0 / 0 Регистрация: 06.07.2015 Сообщений: 5
	27.06.2016, 20:39 [ТС]	4
	спасибо и за это! вопрос усложнился, как написать формулу??? я с макросами не очень, впринципе как и с бесиком... 0

@SergeyPal 24 / 1 / 1 Регистрация: 12.04.2012 Сообщений: 13
	27.06.2016, 23:02	5
	Сложное решение получается, при этом не очень понятно зачем именно в такой форме представлять данные. Эксель изначально предназначен для расчетов связанных данных, а не для автоматического рисования календариков. Очень похоже, чтобы решить задачу, нужно подняться на уровень выше, понять зачем вообще это делается, тогда и появится хорошее решение. Если что-то в этом роде нужно, то думаю нужно идти через сводные таблицы. Сначала формируется исходный массив данных, тут формулы в помощь, а потом из них сводная таблица строится. 1

@Donich 0 / 0 / 0 Регистрация: 06.07.2015 Сообщений: 5
	28.06.2016, 20:35 [ТС]	8
	ОГРОМНОЕ ЧЕЛОВЕЧЕСКОЕ СПАСИБО!!!!! это то что нужно! Вы мега крутой чувак! 0

@AlexM
	28.06.2016, 20:56 #9
	Не по теме: Сообщение от Donich крутой чувак Чувствую себя моложе лет этак на сорок. 0

@Donich 0 / 0 / 0 Регистрация: 06.07.2015 Сообщений: 5
	28.06.2016, 21:04 [ТС]	10
	и еще маленький вопрос (уж простите), что поменять в коде, чтоб если выпадает на субботу, то переносил на пятницу, а не на понедельник? 0