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

Worksheets("год2").Range("Q4:Q23").Interior.Color = RGB(255, 255, 0)

Worksheets("год1").Range("Q4:Q23").Interior.Color = RGB(255, 255, 0)

Worksheets("год3").Range("Y4:Y23").Interior.Color = RGB(255, 255, 0)

Worksheets("год2").Range("Y4:Y23").Interior.Color = RGB(255, 255, 0)

Worksheets("год1").Range("Y4:Y23").Interior.Color = RGB(255, 255, 0)

Worksheets("год3").Range("AG4:AG23").Interior.Color = RGB(255, 255, 0)

Worksheets("год2").Range("AG4:AG23").Interior.Color = RGB(255, 255, 0)

Worksheets("год1").Range("AG4:AG23").Interior.Color = RGB(255, 255, 0)

Worksheets("год3").Range("AO4:AO23").Interior.Color = RGB(255, 255, 0)

Worksheets("год2").Range("AO4:AO23").Interior.Color = RGB(255, 255, 0)

Worksheets("год1").Range("AO4:AO23").Interior.Color = RGB(255, 255, 0)

Worksheets("год3").Range("AW4:AW23").Interior.Color = RGB(255, 255, 0)

Worksheets("год2").Range("AW4:AW23").Interior.Color = RGB(255, 255, 0)

Worksheets("год1").Range("AW4:AW23").Interior.Color = RGB(255, 255, 0)

Worksheets("год3").Range("BE4:BE23").Interior.Color = RGB(255, 255, 0)

Worksheets("год2").Range("BE4:BE23").Interior.Color = RGB(255, 255, 0)

Worksheets("год1").Range("BE4:BE23").Interior.Color = RGB(255, 255, 0)

End If

End Sub

Макрос «Скрыть пустые столбцы»

Private Sub CommandButton2_Click()

Dim i As Integer

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

For i = 2 To 8

If IsEmpty(Cells(4, i)) Then

Columns(i).Hidden = True

End If

Next i

For i = 9 To 16