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

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

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