Skryť stĺpce pomocou tlačidla

Ak potrebujete skryť určité stĺpce pomocou tlačidla, môžete použiť tento kód. Dokonca zmení text príkazového tlačidla na Skryť stĺpce a potom ho znova zmení na Odkryť stĺpce.

Sub Hide_C ()

Dim C_ell As Range

ActiveSheet.Shapes.Range (pole („tlačidlo 2“)). Vyberte

Ak Selection.Characters.Text = "Odkryť stĺpce" Potom

Columns.Hidden = False

Selection.Characters.Text = "Skryť stĺpce"

Inak

Pre každý C_ell v rozsahu („B1“, bunky (1, stĺpce. Počet). Koniec (xlToLeft))

Ak C_ell = "x", potom C_ell.Columns.Hidden = True

Ďalšie

Selection.Characters.Text = "Odkryť stĺpce"

Koniec Ak

Rozsah („A2“). Vyberte

Koniec pod