Skrýt sloupce pomocí tlačítka

Pokud potřebujete skrýt určité sloupce pomocí tlačítka, můžete použít tento kód. Dokonce změní text příkazového tlačítka na Skrýt sloupce a poté jej znovu změní na Odkrýt sloupce.

Sub Hide_C ()

Dim C_ell As Range

ActiveSheet.Shapes.Range (pole („Tlačítko 2“)). Vyberte

If Selection.Characters.Text = "Unhide Columns" Then

Columns.Hidden = False

Selection.Characters.Text = "Skrýt sloupce"

Jiný

Pro každý C_ell v rozsahu („B1“, buňky (1, sloupce. Počet). Konec (xlToLeft))

Pokud C_ell = "x", pak C_ell.Columns.Hidden = True

další

Selection.Characters.Text = "Odkrýt sloupce"

Konec If

Rozsah („A2“). Vyberte

End Sub