АВТОМАТИЗАЦIЯ КОНТРОЛЮ ВIДВIДУВАННЯ СТУДЕНТАМИ ЗАНЯТЬ

"=IF(OR(RC[1]="""",RC[1]=""ВСЬОГО""),"""",IF(R[-1]C=""№ п/п"",1,R[-1]C+1))"

Sheets(Find).Range("A3").AutoFill Destination:=Sheets(Find).Range("A3:A50"), Type:=xlFillDefault

Sheets(Find).Columns("A:A").ColumnWidth = 6

'прізвище

Sheets(Find).Range("B2").FormulaR1C1 = "Прізвище"

Sheets(Find).Columns("B:B").ColumnWidth = 15

Sheets(Find).Range("B3").FormulaR1C1 = _

"=IF(LOOKUP(""" + Лист1.Range("A2") + """,Списки!R3C3:R3C256, Списки!R[1]C[1]:R[1]C[254])=0,IF(AND(R[-1]C<>""ВСЬОГО"",R[-1]C<>""""),""ВСЬОГО"",""""),LOOKUP(""" + Лист1.Range("A2") + """,Списки!R3C3:R3C256,Списки!R[1]C[1]:R[1]C[254]))"

Sheets(Find).Range("B3").AutoFill Destination:=Sheets(Find).Range("B3:B50"), Type:=xlFillDefault

'дні

Sheets(Find).Range("C2").Value = "1"

Sheets(Find).Range("C2").AutoFill Destination:=Sheets(Find).Range("C2:AG2"), Type:= _

xlFillSeries

Sheets(Find).Columns("C:AG").ColumnWidth = 2

'назва місяця

Sheets(Find).Range("C1:AG1").Merge

Sheets(Find).Range("C1:AG1").HorizontalAlignment = xlCenter

Sheets(Find).Range("C1").Value = Лист1.Range("A4").Value

'група

Sheets(Find).Range("B1").Value = "Група № " + Range("A2").Value

'Колір

Sheets(Find).Range("A1:AI2,A:A").Interior.ColorIndex = 4

Sheets(Find).Range("A1:AI2,A:A").Interior.Pattern = xlSolid

'Всього

Sheets(Find).Range("AH1:AI2").HorizontalAlignment = xlCenter