Скрыть столбцы с помощью кнопки

Если вам нужно скрыть определенные столбцы с помощью кнопки, вы можете использовать этот код. Он даже изменит текст командной кнопки на «Скрыть столбцы», а затем снова изменит его на «Показать столбцы».

Sub Hide_C ()

Dim C_ell As Range ActiveSheet.Shapes.Range (Array («Button 2»)). Выберите, если Selection.Characters.Text = «Показать столбцы», затем Columns.Hidden = False Selection.Characters.Text = «Скрыть столбцы»

Иначе для каждого C_ell в диапазоне («B1», Cells (1, Columns.Count) .End (xlToLeft))

Если C_ell = «x», то C_ell.Columns.Hidden = True Next Selection.Characters.Text = «Показать столбцы»

End If Range («A2»). Выберите End Sub