Skrij stolpce z gumbom

Če morate nekatere gumbe skriti z gumbom, lahko uporabite to kodo. Besedilo ukaznega gumba bo celo spremenilo v Skrij stolpce in ga nato znova spremenilo v Skrij stolpce.

Sub Hide_C ()

Zatemni C_ell As Range

ActiveSheet.Shapes.Range (Array ("Button 2")). Izberite

Če je Selection.Characters.Text = "Razkrij stolpce" Potem

Stolpci. Skriti = Napačno

Selection.Characters.Text = "Skrij stolpce"

Sicer pa

Za vsako C_ell v razponu ("B1", celice (1, stolpci. Število). Konec (xlToLeft))

Če je C_ell = "x" Potem je C_ell.Columns.Hidden = True

Naslednji

Selection.Characters.Text = "Razkrij stolpce"

Konec Če

Razpon ("A2"). Izberite

End Sub