Скриване на колони с помощта на бутон

Ако трябва да скриете определени колони с помощта на бутон, можете да използвате този код. Той дори ще промени текста на командния бутон на 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