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

For i = 2 To 8

If Columns(i).Hidden = True Then

Columns(i).Hidden = False

End If

Next i

For i = 9 To 16

If Columns(i).Hidden = True Then

Columns(i).Hidden = False

End If

Next i

For i = 18 To 24

If Columns(i).Hidden = True Then

Columns(i).Hidden = False

End If

Next i

For i = 26 To 32

If Columns(i).Hidden = True Then

Columns(i).Hidden = False

End If

Next i

For i = 34 To 40

If Columns(i).Hidden = True Then

Columns(i).Hidden = False

End If

Next i

For i = 42 To 48

If Columns(i).Hidden = True Then

Columns(i).Hidden = False

End If