Реферат: Система компьютерной обработки данных
Case
6
j6
= j6 + 1
q6
= q6 + s2
Worksheets("Лист4").Cells(7
+ a1 + j6, 9).Value = s1
Worksheets("Лист4").Cells(7
+ a1 + j6, 10).Value = s2
Worksheets("Лист4").Cells(7
+ a1 + j6, 11).Value = s3
Case
7
j7
= j7 + 1
q7
= q7 + s2
Worksheets("Лист4").Cells(10
+ j7 + a1 + a2, 1).Value = s1
Worksheets("Лист4").Cells(10
+ j7 + a1 + a2, 2).Value = s2
Worksheets("Лист4").Cells(10
+ j7 + a1 + a2, 3).Value = s3
Case
8
j8
= j8 + 1
q8
= q8 + s2
Worksheets("Лист4").Cells(10
+ j8 + a1 + a2, 5).Value = s1
Worksheets("Лист4").Cells(10
+ j8 + a1 + a2, 6).Value = s2
Worksheets("Лист4").Cells(10
+ j8 + a1 + a2, 7).Value = s3
Case
9
j9
= j9 + 1
q9
= q9 + s2
Worksheets("Лист4").Cells(10
+ j9 + a1 + a2, 9).Value = s1
Worksheets("Лист4").Cells(10
+ j9 + a1 + a2, 10).Value = s2
Worksheets("Лист4").Cells(10
+ j9 + a1 + a2, 11).Value = s3
Case
10
j10
= j10 + 1
q10
= q10 + s2
Worksheets("Лист4").Cells(16
+ j10 + a1 + a2 + a3, 1).Value = s1
Worksheets("Лист4").Cells(16
+ j10 + a1 + a2 + a3, 2).Value = s2
Worksheets("Лист4").Cells(16
+ j10 + a1 + a2 + a3, 3).Value = s3
Case
11
j11
= j11 + 1
q11
= q11 + s2
Worksheets("Лист4").Cells(16
+ j11 + 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
|