Slėpti stulpelius naudodami mygtuką

Jei norite paslėpti tam tikrus stulpelius naudodami mygtuką, galite naudoti šį kodą. Tai netgi pakeis komandų mygtuko tekstą į Slėpti stulpelius ir vėl pakeis jį į Rodyti stulpelius.

Paslėpti_C ()

Dim C_ell As Range

ActiveSheet.Shapes.Range (masyvas („2 mygtukas“)). Pasirinkite

Jei Selection.Characters.Text = "Rodyti stulpelius" Tada

Stulpeliai. Paslėptas = klaidinga

Selection.Characters.Text = "Slėpti stulpelius"

Kitas

Kiekvienam diapazono C_ell („B1“, langeliai (1, stulpeliai. Skaičius). Pabaiga (xlToLeft))

Jei C_ell = "x", tada C_ell.Columns.Hidden = Tiesa

Kitas

Selection.Characters.Text = "Rodyti stulpelius"

Pabaiga Jei

Diapazonas („A2“). Pasirinkite

Pabaiga Sub