Skjul kolonner med en knapp

Anonim

Hvis du trenger å skjule visse kolonner med en knapp, kan du bruke denne koden. Det vil til og med endre kommandoknappteksten til Skjul kolonner og deretter endre den til Vis skjul kolonner.

Sub Hide_C ()

Dim C_ell As Range

ActiveSheet.Shapes.Range (Array ("Knapp 2")). Velg

If Selection.Characters.Text = "Skjul kolonner" Så

Kolonner.Hidden = False

Selection.Characters.Text = "Skjul kolonner"

Ellers

For hver C_ell In Range ("B1", Cells (1, Columns.Count) .End (xlToLeft))

Hvis C_ell = "x" Så er C_ell.Columns.Hidden = True

Neste

Selection.Characters.Text = "Skjul kolonner"

Slutt om

Område ("A2"). Velg

Slutt Sub