Εάν πρέπει να αποκρύψετε ορισμένες στήλες χρησιμοποιώντας ένα κουμπί, μπορείτε να χρησιμοποιήσετε αυτόν τον κώδικα. Θα αλλάξει ακόμη και το κείμενο του κουμπιού εντολών σε Απόκρυψη στηλών και, στη συνέχεια, ξανά στο Unhide Columns.
Sub Hide_C ()
Dim C_ell As Range
ActiveSheet.Shapes.Range (Array ("Button 2")). Επιλέξτε
Αν Selection.Characters.Text = "Unhide Columns" Τότε
Στήλες. Κρυφό = Λάθος
Selection.Characters.Text = "Απόκρυψη στηλών"
Αλλού
Για κάθε C_ell In Range ("B1", Cells (1, Columns.Count). Τέλος (xlToLeft))
Εάν C_ell = "x" Τότε C_ell.Columns.Hidden = True
Επόμενο
Selection.Characters.Text = "Αποκάλυψη στηλών"
Τέλος εαν
Εύρος ("A2"). Επιλέξτε
Τέλος υπο