Slēpt kolonnas, izmantojot pogu

Ja jums ir jāslēpj noteiktas kolonnas, izmantojot pogu, varat izmantot šo kodu. Tas pat mainīs komandu pogas tekstu uz Slēpt kolonnas un pēc tam atkal nomainīs to uz Atklāt slejas.

Subslēpt_C ()

Dim C_ell As Range

ActiveSheet.Shapes.Range (masīvs ("2. poga")). Izvēlieties

If Selection.Characters.Text = "Atklāt slejas" Tad

Column.Hidden = False

Selection.Characters.Text = "Slēpt kolonnas"

Citādi

Par katru C_ell diapazonā ("B1", šūnas (1, Columns.Count) .End (xlToLeft))

Ja C_ell = "x", tad C_ell.Columns.Hidden = True

Nākamais

Selection.Characters.Text = "Atklāt slejas"

Beigas Ja

Diapazons ("A2"). Izvēlieties

Beigt apakš