Здравствуйте уважаемые. Подскажите, пожалуйста, написал макрос на скрытие столбцов, но мне кажется, что я слишком намудрил, можно ли упростить? Вдобавок надо, чтобы он открывал скрытые столбцы E-F-G?
Приложил пример. Скрыл столбцы E-F-G вручную.
[vba]Код
Sub Кнопка9_Щелчок()
If Columns("B").EntireColumn.Hidden = False Then
Columns("B:D").EntireColumn.Hidden = True
Else
Columns("B:D").EntireColumn.Hidden = False
End If
If Columns("H").EntireColumn.Hidden = False Then
Columns("H:BF").EntireColumn.Hidden = True
Else
Columns("H:BF").EntireColumn.Hidden = False
End If
End Sub
[/vba]