Одной кнопкой выполнялись две команды "скрыть/отобразить" по очереди

[Vja4eslav]

А кто знает: как сделать, чтобы одной кнопкой выполнялись две команды "скрыть/отобразить" по очереди. Ну т.е. нажал кнопку- выполнилась программа "Скрыть", нажал второй раз- выполнилась команда "Отобразить" и т.д.?

[vikttur]

Без VBA: меню Данные-Группа_и_стркуктура-Группировать.

[Vja4eslav]

Спасибо, vikttur, а в VBA как сделать чтобы скрывался и открывался столбец?

[Hugo121]

Dim a As Boolean
Sub tt()
If a Then
MsgBox "Otobrazitj": a = 0
Else
MsgBox "Skritj": a = 1
End If
End Sub

и применительно к колонке:

Sub ttt()
If Columns(7).Hidden = True Then
Columns(7).Hidden = False
Else
Columns(7).Hidden = True
End If
End Sub

[Vja4eslav]

Что то не получается, может я не правильно делаю?

Sub tt()
Dim a As Boolean
If a Then
MsgBox "Отобразить": a = 0
Columns("B:B").Hidden = False
Else
MsgBox "Скрыть": a = 1
Columns("B:B").Hidden = True
End If
End Sub

[Vja4eslav]

Прошу прощения! Всё получилось!
Hugo121, большое спасибо!

[Hugo121]

Определение a не зря вынесено вне кода процедуры
Если работаем с скрытием столбцов - то наличие/отсутствие скрытия заменяет эту переменную, так что вполне хватит одного кода Sub ttt()

Или даже так - можно "непонятно упростить":

Sub tttt()
Columns(7).Hidden = Not Columns(7).Hidden = True
End Sub

[IgorGO]

упрощать так упрощать:

Sub tttt()
  Columns(7).Hidden = Not Columns(7).Hidden
End Sub

[Hugo121]

Что скажешь - мастер
недопёр....

[Vja4eslav]

Круто !!!