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

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

К-во Просмотров: 459
Бесплатно скачать Реферат: Система компьютерной обработки данных