Dölj kolumner med en knapp

Om du behöver dölja vissa kolumner med en knapp kan du använda den här koden. Det kommer till och med att ändra kommandoknapptexten till Dölj kolumner och sedan igen ändra den till Unhide Columns.

Sub Hide_C ()

Dim C_ell som intervall

ActiveSheet.Shapes.Range (Array ("Knapp 2")). Välj

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

Columns.Hidden = False

Selection.Characters.Text = "Dölj kolumner"

Annan

För varje C_ell In Range ("B1", Cells (1, Columns.Count) .End (xlToLeft))

Om C_ell = "x" Då C_ell.Columns.Hidden = True

Nästa

Selection.Characters.Text = "Ta bort kolumner"

Avsluta om

Område ("A2"). Välj

Avsluta Sub