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

PrivateSubCommandButton1_Click()

Dim s As String

For i = 1 To 4

For j = 8 To 150

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

Next j

Next i

k = 1

j = 8

For i = 5 To 76

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

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

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

If S1 <> "" Then S1 = S1 + ";"

t = 1

While t <= Len(s2)

If Mid(s2, t, 1) <> ":" Then

S1 = S1 + Mid(s2, t, 1)

Else

S1 = S1 + Mid(s2, t, 1) + " н/а "

End If

t = t + 1

Wend

If Len(S1) <> 0 Then

If Mid(S1, Len(S1), 1) <> ";" Then

S1 = S1 + ";"

End If

End If

While InStr(S1, ":") > 0