Dacă trebuie să ascundeți anumite coloane folosind un buton, puteți utiliza acest cod. Se va schimba chiar textul butonului de comandă în Ascunde coloane și apoi îl va schimba din nou în Afișează coloanele.
Sub Hide_C ()
Dim C_ell As Range
ActiveSheet.Shapes.Range (Array ("Butonul 2")). Selectați
Dacă Selection.Characters.Text = "Afișează coloanele" Apoi
Coloane.Ascuns = Fals
Selection.Characters.Text = "Ascunde coloanele"
Altfel
Pentru fiecare celulă C_ din interval ("B1", celule (1, coloane. Număr) .End (xlToLeft))
Dacă C_ell = "x", atunci C_ell.Columns.Hidden = True
Următorul
Selection.Characters.Text = "Afișează coloanele"
End If
Gama ("A2"). Selectați
Sfârșitul Sub