Skjul kolonner ved hjælp af en knap

Anonim

Hvis du har brug for at skjule bestemte kolonner ved hjælp af en knap, kan du bruge denne kode. Det vil endda ændre kommandoknappens tekst til Skjul kolonner og derefter igen ændre den til Vis kolonner.

Sub Hide_C ()

Dim C_ell som område

ActiveSheet.Shapes.Range (Array ("Knap 2")). Vælg

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

Kolonner.Hidden = Falsk

Selection.Characters.Text = "Skjul kolonner"

Andet

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

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

Næste

Selection.Characters.Text = "Vis kolonner"

Afslut Hvis

Område ("A2"). Vælg

Afslut Sub