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

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

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

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

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

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

End Sub

Макрос «Прибыли»

Sub прибыли()

Dim s As String

For i = 6 To 106

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

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

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

Next i

j = 5

For i = 3 To 73

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

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

s1 = Trim(s)

If s1 <> "" Then

j = j + 1

While InStr(s1, ";") > 0

Worksheets("Лист3").Cells(j, 3).Value = Trim(Mid(s1, 1, InStr(s1, ";") - 1))

Worksheets("Лист3").Cells(j, 2).Value = j - 5

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

s1 = Mid(s1, InStr(s1, ";") + 1, Len(s1))

j = j + 1

Wend

Worksheets("Лист3").Cells(j, 3).Value = Trim(s1)