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

For j = 1 To 5

Worksheets("Лист4").Cells(i, j).Value = ""

Next j

Next i

k = 3

For nk = 1 To 11

For i = 5 To 76

s = Worksheets("Лист1").Cells(i, 1).Value

If Len(s) <> 0 Then

If Len(s) > 1 Then r = 2 Else r = 1

If Val(Left(s, r)) = nk Then

Worksheets("Лист4").Cells(k, 1).Value = Worksheets("Лист1").Cells(i, 1).Value

Worksheets("Лист4").Cells(k, 2).Value = Worksheets("Лист1").Cells(i, 11).Value

S1 = S1 + Val(Worksheets("Лист1").Cells(i, 11).Value)

Worksheets("Лист4").Cells(k, 3).Value = Worksheets("Лист1").Cells(i, 12).Value

s2 = s2 + Val(Worksheets("Лист1").Cells(i, 12).Value)

Worksheets("Лист4").Cells(k, 4).Value = Worksheets("Лист1").Cells(i, 13).Value

S3 = S3 + Val(Worksheets("Лист1").Cells(i, 13).Value)

Worksheets("Лист4").Cells(k, 5).Value = Worksheets("Лист1").Cells(i, 14).Value

s4 = s4 + Val(Worksheets("Лист1").Cells(i, 14).Value)

k = k + 1

End If

End If

Next i

Worksheets("Лист4").Cells(k, 1).Value = "Итогопопарралели"

Worksheets("Лист4").Cells("a3:a66").Interior.Color = RGB(255, 255, 255)

Worksheets("Лист4").Cells(k, 1).Interior.Color = RGB(255, 255, 0)

Worksheets("Лист4").Cells(k - 1, 2).Interior.Color = RGB(255, 255, 255)

Worksheets("Лист4").Cells(k - 1, 3).Interior.Color = RGB(255, 255, 255)