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

Next nk

End Sub

Приложение 3

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

Sub выбыли()

Dim s As String

For i = 6 To 76

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

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

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

Next i

j = 5

For i = 3 To 73

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

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

s1 = Trim(s)

If s1 <> "" Then

j = j + 1

While InStr(s1, ";") > 0

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

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

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

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

j = j + 1

Wend

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

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

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

End If