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

Sheets(Find).Range("AH1:AI1").Merge

Sheets(Find).Range("AH1:AI1").FormulaR1C1 = "Всього"

Sheets(Find).Range("AH2").FormulaR1C1 = "Б"

Sheets(Find).Range("AI2").FormulaR1C1 = "П"

Sheets(Find).Range("AH3").FormulaR1C1 = "=IF(RC[-32]=""ВСЬОГО"",SUM(R[-1]C34:R3C),IF(RC[-33]="""","""",COUNTIF(RC[-31]:RC[-1],""Б"")))"

Sheets(Find).Range("AH3").AutoFill Destination:=Sheets(Find).Range("AH3:AH100"), Type:=xlFillDefault

Sheets(Find).Range("AI3").FormulaR1C1 = "=IF(RC[-33]=""ВСЬОГО"",SUM(R[-1]C35:R3C),IF(RC[-34]="""","""",COUNTIF(RC[-32]:RC[-2],""П"")))"

Sheets(Find).Range("AI3").AutoFill Destination:=Sheets(Find).Range("AI3:AI100"), Type:=xlFillDefault

' Sheets(Find).Visible = False

GoTo 1

Else

1: 'Копія даних відвідування

Лист1.Range("A5").Value = Find

Sheets(Find).Range("C3:AG100").Copy

Лист1.Range("E7").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=False

Лист1.Range("E5").Select

Selection.Value = "Дані відвідування за " + Range("A4").Value + _

" місяць групи № " + Str(Range("A2").Value)

Лист1.ComboBox1.Enabled = False

Лист1.ComboBox2.Enabled = False

Лист1.CommandButton1.Enabled = False

Лист1.CommandButton2.Enabled = True

Лист1.CommandButton3.Enabled = True

Лист1.Range("A1").Value = "Yes"