Шахматка по занятому времени

@man-hal · Регистрация: 04.02.2015

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

Добрый день!
Прошу помощи с кодом для шахматки в Excel.
Суть следущая, на Лист2 есть таблица с Номер места, Время приема, Время выхода, Кол-во затраченных часов. На Лист1 строится шахматка закрашиванием ячеек по занятому времени на Сегодня и Сл. день. Представляю себе это как сравнением с текущей датой столбца Время приема, а дальше алгоритм выстроить не получается. Кто сталкивался с подобным, прошу помощи.
Спасибо.

@Hugo121 · 08.05.2016, 11:21

А что там

Сообщение от man-hal

дальше алгоритм выстроить не получается

- дальше только красим или не красим.

@man-hal · 08.05.2016, 11:30 **[ТС]**

А сколько красить? До Время Выхода или Затраченное время?
И с кодом для меня совсем тяжело. В инете подобного не нашел.
Еще я так понимаю, при обновлении шахматки (автом. или ручное), проверка должна проходить по всей таблице Лист2?

@Hugo121 · 08.05.2016, 13:59

Сообщение от man-hal

А сколько красить? До Время Выхода или Затраченное время?

- вроде как всё равно, как кому проще код писать. Мне было бы проще по затраченному времени.
Ну и естественно если исходные данные меняются - всё нужно пересчитать.

Добавлено через 36 минут
Вот - поменяйте даты на втором, перейдите на первый лист.

@man-hal · 08.05.2016, 18:56 **[ТС]**

При данной схеме нашел две проблемы:
1. Если Дата выхода больше чем два дня, закрашивается вся область, т.е. если затратили 100 часов, то и закрасится 100 ячеек. А надо закрашивать в пределе 2-го дня.
2. Если Дата приема в таблице меньше (вчера) чем Дата СЕГОДНЯ, но событие еще не закончилось (например оно закончится через 4 дня), это событие перестает отображаться в шахматке.
В любом случае, большое спасибо за оказанное содействие.

@Hugo121 · 08.05.2016, 19:03

По п1. - в моём файле всё работает корректно. Городить вычисления было лень, я просто добавил 12 столбцов.
Если не годится - ну извините... Может кто другой захочет реализовать.
По п.2. - нужно было показать такой случай, возможно тогда мой подход не годится... Зря старался...

@man-hal · 08.05.2016, 19:50 **[ТС]**

Прикладываю скрин того, что у меня.
п1. Место2, выходит за границы области.
п2. Место4, не показывает событие 07.05.2016 11:00 - 08.05.2016 12:00

@Hugo121 · 08.05.2016, 20:15

1. Скройте эти лишние столбцы справа. Действительно есть такое дело...
Ну или можно в коде проверять значение .Item(t) + 1 и если оно плюс позиция cc выходит за пределы диапазона, то менять его на предел диапазона минус позиция cc. Сложно, проще столбцы скрыть

2. В примере такого не было. Но можно тоже добавить левее столбцов на неделю или месяц, скрыть, чуть скорректировать в коде диапазон - и будет всё показывать.
Ну или нужно весь код писать заново иначе, на другом алгоритме. Нет ни желания, ни времени.

@man-hal · 08.05.2016, 22:52 **[ТС]**

Еще раз спасибо. Добавил диапазоны в начале и впереди, и скрыл их.

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	08.05.2016, 11:21	2
	А что там Сообщение от man-hal дальше алгоритм выстроить не получается - дальше только красим или не красим. 0

@man-hal 0 / 0 / 0 Регистрация: 04.02.2015 Сообщений: 21
	08.05.2016, 11:30 [ТС]	3
	А сколько красить? До Время Выхода или Затраченное время? И с кодом для меня совсем тяжело. В инете подобного не нашел. Еще я так понимаю, при обновлении шахматки (автом. или ручное), проверка должна проходить по всей таблице Лист2? 0

@man-hal 0 / 0 / 0 Регистрация: 04.02.2015 Сообщений: 21
	08.05.2016, 18:56 [ТС]	5
	При данной схеме нашел две проблемы: 1. Если Дата выхода больше чем два дня, закрашивается вся область, т.е. если затратили 100 часов, то и закрасится 100 ячеек. А надо закрашивать в пределе 2-го дня. 2. Если Дата приема в таблице меньше (вчера) чем Дата СЕГОДНЯ, но событие еще не закончилось (например оно закончится через 4 дня), это событие перестает отображаться в шахматке. В любом случае, большое спасибо за оказанное содействие. 0

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	08.05.2016, 19:03	6
	По п1. - в моём файле всё работает корректно. Городить вычисления было лень, я просто добавил 12 столбцов. Если не годится - ну извините... Может кто другой захочет реализовать. По п.2. - нужно было показать такой случай, возможно тогда мой подход не годится... Зря старался... 0

@man-hal 0 / 0 / 0 Регистрация: 04.02.2015 Сообщений: 21
	08.05.2016, 19:50 [ТС]	7
	Прикладываю скрин того, что у меня. п1. Место2, выходит за границы области. п2. Место4, не показывает событие 07.05.2016 11:00 - 08.05.2016 12:00 Миниатюры 0

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	08.05.2016, 20:15	8
	1. Скройте эти лишние столбцы справа. Действительно есть такое дело... Ну или можно в коде проверять значение .Item(t) + 1 и если оно плюс позиция cc выходит за пределы диапазона, то менять его на предел диапазона минус позиция cc. Сложно, проще столбцы скрыть 2. В примере такого не было. Но можно тоже добавить левее столбцов на неделю или месяц, скрыть, чуть скорректировать в коде диапазон - и будет всё показывать. Ну или нужно весь код писать заново иначе, на другом алгоритме. Нет ни желания, ни времени. 0

@man-hal 0 / 0 / 0 Регистрация: 04.02.2015 Сообщений: 21
	08.05.2016, 22:52 [ТС]	9
	Еще раз спасибо. Добавил диапазоны в начале и впереди, и скрыл их. 0