Курсовая работа: Выполнение расчетов, разработка баз данных и оформление технической документации с использованием табличных и текстовых процессоров

Range("C26").Select

ActiveCell.FormulaR1C1 = "=IF(R[-13]C[2]>6500,""да"",""нет"")"

Range("C27").Select

ActiveCell.FormulaR1C1 = "=IF(R[-13]C[2]>6500,""да"",""нет"")"

Range("D17").Select

ActiveCell.FormulaR1C1 = "=SUM(R[-13]C[-2],R[-13]C[-1])"

Range("D18").Select

ActiveCell.FormulaR1C1 = "=SUM(R[-13]C[-2],R[-13]C[-1])"

Range("D19").Select

ActiveCell.FormulaR1C1 = "=SUM(R[-13]C[-2],R[-13]C[-1])"

Range("D20").Select

ActiveCell.FormulaR1C1 = "=SUM(R[-13]C[-2],R[-13]C[-1])"

Range("D20").Select

ActiveCell.FormulaR1C1 = "=SUM(R[-13]C[-2],R[-13]C[-1])"

Range("D21").Select

ActiveCell.FormulaR1C1 = "=SUM(R[-13]C[-2],R[-13]C[-1])"

Range("D22").Select

ActiveCell.FormulaR1C1 = "=SUM(R[-13]C[-2],R[-13]C[-1])"

Range("D23").Select

ActiveCell.FormulaR1C1 = "=SUM(R[-13]C[-2],R[-13]C[-1])"

Range("D24").Select

ActiveCell.FormulaR1C1 = "=SUM(R[-13]C[-2],R[-13]C[-1])"

Range("D25").Select

ActiveCell.FormulaR1C1 = "=SUM(R[-13]C[-2],R[-13]C[-1])"

Range("D26").Select

ActiveCell.FormulaR1C1 = "=SUM(R[-13]C[-2],R[-13]C[-1])"

Range("D27").Select

ActiveCell.FormulaR1C1 = "=SUM(R[-13]C[-2],R[-13]C[-1])"

End Sub