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

For i = 50 To 56

If Columns(i).Hidden = True Then

Columns(i).Hidden = False

End If

Next i

CommandButton2.Caption = "Скрытьпустыестолбцы"

End If

End Sub

Приложение 2

Макрос «Itogi»

Private Sub CommandButton1_Click()

Dim intTarray(1 To 11) As Integer

For i = 5 To 76

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

s1 = Left(s, Len(s) - 1)

intTarray(Val(s1)) = intTarray(Val(s1)) + 1

Nexti

For i = 7 To 100

For j = 1 To 7

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

Next j

Next i

k = 6

For i = 2 To 11

For j = 5 To 76

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

If Len(s) <> 0 Then

If Len(s) > 1 Then r = 2 Else r = 1

If Val(Left(s, r)) = i Then