Курсовая работа: Выполнение расчетов, разработка баз данных и оформление технической документации с использованием табличных и текстовых процессоров
Range("B22").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-13]C[11],R[-13]C[12])"
Range("B23").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-13]C[11],R[-13]C[12])"
Range("B24").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-13]C[11],R[-13]C[12])"
Range("B25").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-13]C[11],R[-13]C[12])"
Range("B26").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-13]C[11],R[-13]C[12])"
Range("B27").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-13]C[11],R[-13]C[12])"
Range("C17").Select
ActiveCell.FormulaR1C1 = "=IF(R[-13]C[2]>6500,""да"",""нет"")"
Range("C18").Select
ActiveCell.FormulaR1C1 = "=IF(R[-13]C[2]>6500,""да"",""нет"")"
Range("C19").Select
ActiveCell.FormulaR1C1 = "=IF(R[-13]C[2]>6500,""да"",""нет"")"
Range("C20").Select
ActiveCell.FormulaR1C1 = "=IF(R[-13]C[2]>6500,""да"",""нет"")"
Range("C21").Select
ActiveCell.FormulaR1C1 = "=IF(R[-13]C[2]>6500,""да"",""нет"")"
Range("C22").Select
ActiveCell.FormulaR1C1 = "=IF(R[-13]C[2]>6500,""да"",""нет"")"
Range("C23").Select
ActiveCell.FormulaR1C1 = "=IF(R[-13]C[2]>6500,""да"",""нет"")"
Range("C24").Select
ActiveCell.FormulaR1C1 = "=IF(R[-13]C[2]>6500,""да"",""нет"")"
Range("C25").Select