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

a11 = Worksheets("Лист1").Cells(79, 5).Value

If a10 > a11 Then a4 = a10 Else a4 = a11

For i = 3 To 73

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

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

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

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

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

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

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

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

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

Next i

For i = 3 To 73

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

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

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

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

If s = "" Then Exit For

Select Case s

Case 1

j1 = j1 + 1

q1 = q1 + s2

Worksheets("Лист4").Cells(4 + j1, 1).Value = s1

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

Case 2

j2 = j2 + 1

q2 = q2 + s2

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