Ако трябва да скриете определени колони с помощта на бутон, можете да използвате този код. Той дори ще промени текста на командния бутон на Hide Columns и след това отново ще го промени на Unhide Columns.
Sub Hide_C ()
Dim C_ell As Range
ActiveSheet.Shapes.Range (Array ("Button 2")). Изберете
If Selection.Characters.Text = "Unhide Columns" Тогава
Columns.Hidden = False
Selection.Characters.Text = "Скриване на колони"
Иначе
За всяка C_ell в диапазона ("B1", клетки (1, колони. Брой). Край (xlToLeft))
Ако C_ell = "x" Тогава C_ell.Columns.Hidden = True
Следващия
Selection.Characters.Text = "Показване на колони"
Край Ако
Обхват ("A2"). Изберете
End Sub