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

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

End If

Next i

Worksheets("Лист3").Cells(j + 2, 2).Value = "Итого:"

Worksheets("Лист3").Cells(j + 2, 3).Value = Str(j - 5) + "чел."

Worksheets("Лист3").Cells(j + 4, 2).Value = "Директор "

Worksheets("Лист3").Cells(j + 5, 2).Value = "Экономического лицея"

Worksheets("Лист3").Cells(j + 5, 4).Value = "Кузенко Н.И."

End Sub

Макрос «Наполняемость»

Sub наполняемость()

a1 = Worksheets("Лист1").Cells(75, 3).Value

a2 = Worksheets("Лист1").Cells(76, 3).Value

a3 = Worksheets("Лист1").Cells(77, 3).Value

If a1 > a2 And a1 > a3 Then a1 = a1

If a2 > a1 And a2 > a3 Then a1 = a2

If a1 > a2 And a1 > a3 Then a1 = a3

a4 = Worksheets("Лист1").Cells(78, 3).Value

a5 = Worksheets("Лист1").Cells(79, 3).Value

a6 = Worksheets("Лист1").Cells(80, 3).Value

If a4 > a5 And a4 > a6 Then a2 = a4

If a5 > a4 And a5 > a6 Then a2 = a5

If a6 > a4 And a6 > a5 Then a2 = a6

a7 = Worksheets("Лист1").Cells(75, 5).Value

a8 = Worksheets("Лист1").Cells(76, 5).Value

a9 = Worksheets("Лист1").Cells(77, 5).Value

If a7 > a8 And a7 > a9 Then a3 = a7

If a8 > a7 And a8 > a9 Then a3 = a8

If a9 > a7 And a9 > a8 Then a3 = a9