Peida veerud nupu abil

Kui peate teatud veerud nupuga peitma, saate seda koodi kasutada. See muudab isegi käsunupu teksti peitmiseks veergudeks ja seejärel uuesti veergude peitmiseks.

Alampeida_C ()

Dim C_ell As Range

ActiveSheet.Shapes.Range (massiiv ("Nupp 2")). Valige

If Selection.Characters.Text = "Näita veerge" Siis

Veerud. Varjatud = vale

Selection.Characters.Text = "Peida veerud"

Muidu

Iga vahemiku C_elli kohta ("B1", lahtrid (1, veerud. Arv). Lõpp (xlToLeft))

Kui C_ell = "x" Siis C_ell.Columns.Hidden = True

Edasi

Selection.Characters.Text = "Näita veerge"

Lõpp Kui

Vahemik ("A2"). Valige

End Sub