Sakrijte stupce pomoću gumba

Ako trebate sakriti određene stupce pomoću gumba, možete upotrijebiti ovaj kôd. Čak će promijeniti tekst gumba naredbe u Sakrij stupce, a zatim ga ponovno promijeniti u Otkrij stupce.

Sub Hide_C ()

Dim C_ell As Range

ActiveSheet.Shapes.Range (Polje ("Gumb 2")). Odaberite

Ako je Selection.Characters.Text = "Otkrij stupce" Zatim

Stupci.Skriveno = Netačno

Selection.Characters.Text = "Sakrij stupce"

Drugo

Za svaku C_ell u rasponu ("B1", ćelije (1, stupci.broj). Kraj (xlToLeft))

Ako je C_ell = "x" Tada je C_ell.Columns.Hidden = True

Sljedeći

Selection.Characters.Text = "Otkrij stupce"

Završi ako

Raspon ("A2"). Odaberite

Kraj podm