End If
Next j
Next i
' Вивід LC'
For i = 1 To kilk_oper
ActiveSheet.Cells(7)(i + 15) = LC(ActiveSheet.Cells(2)(i + 15))
Next i
' Вивід EC=ES+D'
For i = 1 To kilk_oper
ActiveSheet.Cells(5)(i + 15) = (ActiveSheet.Cells(3)(i + 15)) + ActiveSheet.Cells(4)(i + 15)
Next i
' Вивід LS=LC-D'
For i = 1 To kilk_oper
ActiveSheet.Cells(6)(i + 15) = (ActiveSheet.Cells(7)(i + 15)) - ActiveSheet.Cells(3)(i + 15)
Next i
' Вивід TF=LS-ES'
For i = 1 To kilk_oper
ActiveSheet.Cells(8)(i + 15) = (ActiveSheet.Cells(7)(i + 15)) - ActiveSheet.Cells(5)(i + 15)
Next i
' Вивід FF=ES-EC'
For i = 1 To kilk_oper
ActiveSheet.Cells(9)(i + 15) = ES(ActiveSheet.Cells(2)(i + 15)) - ActiveSheet.Cells(5)(i + 15)
Next i
End Sub