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

Columns(i).Hidden = True

End If

Next i

For i = 18 To 24

If IsEmpty(Cells(4, i)) Then

Columns(i).Hidden = True

End If

Next i

For i = 26 To 32

If IsEmpty(Cells(4, i)) Then

Columns(i).Hidden = True

End If

Next i

For i = 34 To 40

If IsEmpty(Cells(4, i)) Then

Columns(i).Hidden = True

End If

Next i

For i = 42 To 48

If IsEmpty(Cells(4, i)) Then

Columns(i).Hidden = True

End If

Next i

For i = 50 To 56

If IsEmpty(Cells(4, i)) Then

Columns(i).Hidden = True

End If

Next i

CommandButton2.Caption = "Показатьскрытыестолбцы"