Xreferat.com » Рефераты по информатике и программированию » Система компьютерной обработки данных

Система компьютерной обработки данных

a1 + a2 + a3, 5).Value = s1

Worksheets("Лист4").Cells(16 + j11 + a1 + a2 + a3, 6).Value = s2

Worksheets("Лист4").Cells(16 + j11 + a1 + a2 + a3, 7).Value = s3

End Select

Next i

Worksheets("Лист4").Cells(5 + j1, 1).Value = "Итого"

Worksheets("Лист4").Cells(5 + j1, 2).Value = q1

Worksheets("Лист4").Cells(5 + j2, 5).Value = "Итого"

Worksheets("Лист4").Cells(5 + j2, 6).Value = q2

Worksheets("Лист4").Cells(5 + j3, 10).Value = q3

Worksheets("Лист4").Cells(8 + j4 + a1, 2).Value = q4

Worksheets("Лист4").Cells(8 + j5 + a1, 6).Value = q5

Worksheets("Лист4").Cells(8 + j6 + a1, 9).Value = "Итого"

Worksheets("Лист4").Cells(8 + j6 + a1, 10).Value = q6

Worksheets("Лист4").Cells(11 + j7 + a1 + a2, 1).Value = "Итого"

Worksheets("Лист4").Cells(11 + j7 + a1 + a2, 2).Value = q7

Worksheets("Лист4").Cells(11 + j8 + a1 + a2, 5).Value = "Итого"

Worksheets("Лист4").Cells(11 + j8 + a1 + a2, 6).Value = q8

Worksheets("Лист4").Cells(11 + j9 + a1 + a2, 9).Value = "Итого"

Worksheets("Лист4").Cells(11 + j9 + a1 + a2, 10).Value = q9

Worksheets("Лист4").Cells(17 + j10 + a1 + a2 + a3, 1).Value = "Итого"

Worksheets("Лист4").Cells(17 + j10 + a1 + a2 + a3, 2).Value = q10

Worksheets("Лист4").Cells(17 + j11 + a1 + a2 + a3, 5).Value = "Итого"

Worksheets("Лист4").Cells(17 + j11 + a1 + a2 + a3, 6).Value = q11

Worksheets("Лист4").Cells(3 + 11 + j11 + a1 + a2 + a3 + a4, 3).Value = "Итого"

Worksheets("Лист4").Cells(3 + 11 + j11 + a1 + a2 + a3 + a4, 5).Value = "1 - 4 кл"

Worksheets("Лист4").Cells(3 + 12 + j11 + a1 + a2 + a3 + a4, 5).Value = "5 - 9 кл"

Worksheets("Лист4").Cells(3 + 13 + j11 + a1 + a2 + a3 + a4, 5).Value = "10 - 11 кл"

Worksheets("Лист4").Cells(3 + 11 + j11 + a1 + a2 + a3 + a4, 6).Value = q1 + q2 + q3 + q4

Worksheets("Лист4").Cells(3 + 12 + j11 + a1 + a2 + a3 + a4, 6).Value = q5 + q6 + q7 + q8 + q9

Worksheets("Лист4").Cells(3 + 13 + j11 + a1 + a2 + a3 + a4, 6).Value = q10 + q11

Worksheets("Лист4").Cells(3 + 14 + j11 + a1 + a2 + a3 + a4, 5).Value = "Всего"

Worksheets("Лист4").Cells(3 + 14 + j11 + a1 + a2 + a3 + a4, 6).Value = q10 + q11 + q5 + q6 + q7 + q8 + q9 + q1 + q2 + q3 + q4

End Sub

Размещено на

Если Вам нужна помощь с академической работой (курсовая, контрольная, диплом, реферат и т.д.), обратитесь к нашим специалистам. Более 90000 специалистов готовы Вам помочь.
Бесплатные корректировки и доработки. Бесплатная оценка стоимости работы.

Поможем написать работу на аналогичную тему

Получить выполненную работу или консультацию специалиста по вашему учебному проекту
Нужна помощь в написании работы?
Мы - биржа профессиональных авторов (преподавателей и доцентов вузов). Пишем статьи РИНЦ, ВАК, Scopus. Помогаем в публикации. Правки вносим бесплатно.

Похожие рефераты: