While Not (rst.EOF)
Set КалендарьРаботника = СоздатьКалендарьРаботника(rst.Fields("ID"))
K = K + 1
.Range(.Cells(z, 1), .Cells(z + 3, 1)).Merge
.Cells(z, 1).Value = K
.Range(.Cells(z, 2), .Cells(z + 3, 2)).Merge
.Cells(z, 2).Value = rst.Fields("ФИО") & Chr(10) & rst.Fields("Должность")
.Range(.Cells(z, 3), .Cells(z + 3, 3)).Merge
.Cells(z, 3).Value = rst.Fields("ТабНомер")
For X = 1 To 15
.Cells(z, 3 + X).Value = КалендарьРаботника(CStr(X))
If КалендарьРаботника(CStr(X)) = "Я" Then .Cells(z + 1, 3 + X).Value = 8: Дни1 = Дни1 + 1: Часы1 = Часы1 + 8
If КалендарьРаботника(CStr(X)) = "Х" Then .Cells(z + 1, 3 + X).Value = "Х"
.Cells(z + 2, 3 + X).Value = КалендарьРаботника(CStr(X + 15))
If КалендарьРаботника(CStr(X + 15)) = "Я" Then .Cells(z + 3, 3 + X).Value = 8: Дни2 = Дни2 + 1: Часы2 = Часы2 + 8
If КалендарьРаботника(CStr(X + 15)) = "Х" Then .Cells(z + 3, 3 + X).Value = "Х"
Next X
.Cells(z + 2, 19).Value = КалендарьРаботника(CStr(31))
If КалендарьРаботника(CStr(31)) = "Я" Then .Cells(z + 3, 19).Value = 8: Дни2 = Дни2 + 1: Часы2 = Часы2 + 8
If КалендарьРаботника(CStr(31)) = "Х" Then .Cells(z + 3, 19).Value = "Х"
.Cells(z, 19).Value = "Х"
.Cells(z + 1, 19).Value = "Х"
.Cells(z, 20).Value = Дни1
.Cells(z + 1, 20).Value = Часы1
.Cells(z + 2, 20).Value = Дни2
.Cells(z + 3, 20).Value = Часы2
.Range(.Cells(z, 21), .Cells(z + 1, 21)).Merge
.Cells(z, 21).Value = Дни1 + Дни2
.Range(.Cells(z + 2, 21), .Cells(z + 3, 21)).Merge
.Cells(z + 2, 21).Value = Часы2 + Часы1
.Cells(z, 25).NumberFormat = "@"
.Cells(z, 25).Value = Дни1 + Дни2 & "/" & Часы2 + Часы1
If Дни1 + Дни2 = 0 Then .Cells(z, 25).Value = "'0/" & Часы2 + Часы1
For X = 0 To 3
.Range(.Cells(z + X, 23), .Cells(z + X, 24)).Merge
.Range(.Cells(z + X, 27), .Cells(z + X, 28)).Merge
.Range(.Cells(z + X, 30), .Cells(z + X, 31)).Merge
Next X
With .Range(.Cells(z, 1), .Cells(z + 3, 34))
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlVAlignCenter
.Font.Size = 8
For X = 7 To 12
.Borders(X).Weight = xlThin
Next X
For X = 8 To 9
.Borders(X).Weight = xlMedium
Next X
End With
.Range(.Cells(z + 1, 4), .Cells(z + 1, 19)).Borders(9).Weight = xlMedium
.Range(.Cells(z - 1, 1), .Cells(z - 1, 34)).Borders(9).Weight = xlMedium
z = z + 4
Дни1 = 0: Дни2 = 0: Часы1 = 0: Часы2 = 0:
rst.MoveNext
Wend