Рабочие дни двух работников

[valerij]

Всем привет!!

Как в макросе прописать, рабочие дни двух работников?

Условно, назовём работников - Оля и Надя(работают по неделям).

В августе у Нади рабочие дни
31(Июль), 1, 2, 10-16, 24-30, ....

У Оли соответственно
3-9, 17-23, 31 - 06(сентябрь)...

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

В ручную - каждый месяц метить график, неохота )

Если я открыл свой рабочий лист - имя месяца с датой, ввёл в яч. D3 - D367 с шагом 28, данные и макрос сообщил мне, кто в это число работа л(ет), Оля или Надя.

Главное - как на вечно прописать условие дат, причем не от системной даты, а от имени листа.
Имя листа - всегда имя месяца.

В прищепке видно как они работают.

В столбце С(Д-Н) - дни месяца от них и привязка графика...??
Красные даты - всегда понедельник и данные поступают за три предыдущих дня.
Спасибо.

[IgorGO]

в А1 - любая дата
а любую ячейку (только не в А1)

=ЕСЛИ(ОСТАТ(ЦЕЛОЕ((A1+5)/7);2);"Надя";"Оля")

там и будет вечный календарь выходов на смену для Оли и Нади.

[valerij]

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

в А1 - любая дата
а любую ячейку (только не в А1)

=ЕСЛИ(ОСТАТ(ЦЕЛОЕ((A1+5)/7);2);"Надя";"Оля")

там и будет вечный календарь выходов на смену для Оли и Нади.

Игорь у меня нет пустых ячеек, мне надо привязать к имеющимся.

Но я попробовал на файле zxc, В2, изменив А1(=ЕСЛИ(ОСТАТ(ЦЕЛОЕ((C3+5)/7);2);"Надя";"Оля")) в 03.08.15 получилось - Надя, а в 05.08.15(=ЕСЛИ(ОСТАТ(ЦЕЛОЕ((C31+5)/7);2);"Надя";"Оля")) - Надя, а должна быть Оля - ошибка.

[IgorGO]

для 05.08.2015 формула пишет Оля...

поищи ошибку у себя)) или покажи мне файл, ячейку, где эта формула выдает ошибку

[valerij]

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

для 05.08.2015 формула пишет Оля...

поищи ошибку у себя)) или покажи мне файл, ячейку, где эта формула выдает ошибку

Смотри, там ошибки красным.

[IgorGO]

в А1 - любая дата

"любая дата " - это, например, 13.08.2015

31 - это тоже дата = 31.01.1900г. - это Надина смена (была)
1 - это 01.01.1900г. - это Олина смена (была)
2 - это -1.01.1900г. - снован Надина смена и будет до 8 (по твоему календарю или до 08.01.1900г) по принятому в Ексель календарю
а с 9 по 15 - будут снова Олины смены
16 - 22 - Надя
23 - 29 - Оля
30,31, 01 - 05 февр.1900г - Надя

Удачи!

[valerij]

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

"любая дата " - это, например, 13.08.2015

Я тебя понял, привязка к моей дате, когда я получаю данные, но не к фактически когда один из них работник работал.
03.08.15 - дата моя, а получил данные за 31, 1 и 2 число, а за эти числа работала Надя, а 03.08.15 естественно работает Оля.

По другому никак нельзя решить??

[IgorGO]

31-е число (в Ексель) - это 31.01.1900 года
1-е число - это 01.01.1900 года
понимаю, что это никак не вяжется с твоей системой летоисчисления, но так принято в Ексель!

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

[valerij]

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

31-е число (в Ексель) - это 31.01.1900 года
1-е число - это 01.01.1900 года
понимаю, что это никак не вяжется с твоей системой летоисчисления

Это не мой, а твой, твой макрос так мне расставляет и очень классно ставит, возможно к нему можно привязаться?

Sub даты()
Application.EnableEvents = False
c = 3: g = 3: cc = 2: gg = 2
        For L = 1 To 3
Sheets(L).Select
For iCount& = 0 To 13
If Application.Weekday([e1].Offset(iCount& * 28), 2) = 1 Then
        For i = 3 To 20
        Range("C" & i).Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - c)
        c = c - 1: If c = 0 Then c = 3
        If i = 6 Or i = 7 Or i > 10 And i < 14 Or i > 16 Then GoTo 1
        Range("G" & i).Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - g)
        g = g - 1: If g = 0 Then g = 3
1:      Next
Else
    For ii = 3 To 19
        If ii = 5 Or ii = 8 Or ii = 11 Or ii = 14 Or ii = 17 Then GoTo m
            Range("C" & ii).Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - cc)
                cc = cc - 1: If cc = 0 Then cc = 2
m:      If ii > 4 And ii < 8 Or ii > 9 And ii < 14 Or ii > 15 Then GoTo 3
            Range("G" & ii).Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - gg)
                gg = gg - 1: If gg = 0 Then gg = 2
3:  Next
End If
    Next iCount&
Next L
Application.EnableEvents = True
End Sub

[IgorGO]

это я писал в бреду (не приходя в сознание)

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

...втягиваюсь. Валера, на меня не рассчитывай!