График работы

[kpacta3]

Помогите сделать так чтобы автоматически считались часы в графике работ. В предприятии работают 63 человека. Я привела пример 4 человек. Смены очень разные, их около 15, но в примере тоже несколько. Есть например смена "D", которые отличаются по цветам и часам. Такие есть и смени например "6", что означает с 6 утра, но с разным окончанием работы. Как сделать так чтобы еxcel распознавал обозначения приведённые в таблице за часы и сам автоматически вписывал их сумму в последней ячейке.

[DV68]

Если хотите формулами, то сделайте каждую смену индивидуальной.(см. файл).
Иначе только макрос, т.к. формулы с цветом не работают.

[kpacta3]

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

Если хотите формулами, то сделайте каждую смену индивидуальной.(см. файл).
Иначе только макрос, т.к. формулы с цветом не работают.

Большое спасибо. Макрос боюсь не потяну, я лучше название смен переделаю

[xanderg]

доброго времени суток
мой вопрос по похожей теме.
нужно преобразовать строковые данные о приходе/уходе сотрудников в часы, проведенные на рабочем месте.
формат данных в вложенном файле
поясню: в начале много незначимых нулей, затем номер сотрудника двузначный, затем логический "0" или "1" (где 1 - приход на работу, 0 уход), затем дата и время.
как в экселе преобразовать это во время проведенное на работе каждым сотрудником?

[Hugo121]

kpacta3 - тойоты с лексусами продаёте?

[doober]

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

Можно так

Sub GO_GO()

Dim Sh1 As Worksheet
Dim A As Range
Set Sh1 = Worksheets("Begin")
With Sh1
 Set A = .Range("A2:A" & .Range("$A$" & .Rows.Count).End(xlUp).Row)
 For n = 1 To A.Rows.Count
 Y = GO_Na_Rabote(A(n, 1))
 A(n, 1).Offset(, 1).Resize(1, 4) = Y
 Next
End With
End Sub
Function GO_Na_Rabote(Rng As Range)
Dim X, Y
ReDim Y(1 To 1, 1 To 4)
X = Split(Rng, ",", -1)
Y(1, 1) = Val(X(1))
Y(1, 2) = X(2)
Y(1, 3) = CDate(X(3))
Y(1, 4) = X(4)
GO_Na_Rabote = Y
End Function

ТО Hugo121. На Лексус заработал

[xanderg]

А куда тут организован вывод результата? немного не ясно

[Hugo121]

A(n, 1).Offset(, 1).Resize(1, 4) = Y

[xanderg]

а можно ли на отдельном листе вывести общий результат за месяц для каждого сотрудника?

[xanderg]

на данный момент процедура сортирует по нужным столбцам исходные данные. или я где-то лажаю?