Bir düğme kullanarak belirli sütunları gizlemeniz gerekiyorsa, bu kodu kullanabilirsiniz. Hatta komut düğmesi metnini Sütunları Gizle olarak değiştirecek ve ardından tekrar Sütunları Göster olarak değiştirecektir.
Alt Hide_C()
Dim C_ell As Menzil
ActiveSheet.Shapes.Range(Array("Düğme 2")).Seçin
Selection.Characters.Text = "Sütunları Göster" ise
Columns.Hidden = Yanlış
Selection.Characters.Text = "Sütunları Gizle"
Başka
Aralıktaki Her C_ell için("B1", Cells(1, Columns.Count).End(xlToLeft))
C_ell = "x" ise C_ell.Columns.Hidden = True
Sonraki
Selection.Characters.Text = "Sütunları Göster"
Bitir
Aralık("A2").Seçin
Alt Bitiş