End Sub

Приложение Е

(обязательное)

Описание макроса задание №7

Sub Задание7()

Range("B141").Select

ActiveCell.FormulaR1C1 = _

"=R[-13]C[6]*(R[-85]C[9]/R[-84]C[9])*(R[1]C-R[-88]C[9])+R[-89]C[9]"

Range("D141").Select

ActiveCell.FormulaR1C1 = _

"=R128C8*(R57C11/R56C11)*(R[1]C-R52C11)+R53C11"

Range("C144").Select

ActiveCell.FormulaR1C1 = "=R128C8*(R57C11/R56C11)*(R[1]C-R52C11)+R53C11"

Range("C144").Select

Selection.AutoFill Destination:=Range("C144:D144"), Type:=xlFillDefault

Range("C144:D144").Select

Range("C147").Select

ActiveCell.FormulaR1C1 = "=R128C8*(R56C11/R57C11)*(R[1]C-R53C11)+R52C11"

Range("C147").Select

Selection.AutoFill Destination:=Range("C147:D147"), Type:=xlFillDefault

Range("C147:D147").Select

Range("C144").Select

End Sub

Приложение Ж

(обязательное)

Описание макроса задание №8

Sub Задание8()

Range("D157").Select

ActiveCell.FormulaR1C1 = _

"=R[-29]C[4]*(R[-100]C[7]/R[-101]C[7])*(R[1]C-R[-105]C[7])-R[-104]C[7]"

Range("D157").Select

ActiveCell.FormulaR1C1 = _

"=R[-29]C[4]*(R[-100]C[7]/R[-101]C[7])*(R[1]C-R[-105]C[7])+R[-104]C[7]"