Jos haluat piilottaa tietyt sarakkeet painikkeella, voit käyttää tätä koodia. Se jopa muuttaa komentopainikkeen tekstin Piilota sarakkeet ja muuttaa sen sitten uudelleen Näytä sarakkeet.
Sub Piilota_C ()
Dim C_ell As Range
ActiveSheet.Shapes.Range (Array ("Button 2")). Valitse
If Selection.Characters.Text = "Näytä sarakkeet" Sitten
Columns.Hidden = False
Selection.Characters.Text = "Piilota sarakkeet"
Muu
Jokaiselle C_ell -alueelle ("B1", Solut (1, Columns.Count) .End (xlToLeft))
Jos C_ell = "x" Sitten C_ell.Columns.Hidden = Tosi
Seuraava
Selection.Characters.Text = "Näytä sarakkeet"
Loppu Jos
Alue ("A2"). Valitse
End Sub