[Spirosgr]

Έστω σε κάποιο φύλλο, θέλουμε να ανοιγουν και να κλείνουν ορισμένες στήλες.
Παράδειγμα, (*βλέπε εικόνα 1), οι στήλες e,g,i...ή όποιες άλλες.

Αν πάμε με τον κέρσορα, στο επάνω μέρος μιας στήλης και στην διαχωριστική γραμμή,
(με την διπλανή της), ο κέρσορας γίνεται «σταυρός» και
αν κάνουμε κλικ, τότε (*βλέπε εικόνα 2) εμφανίζεται το πλάτος της στήλης.

Σημειώνουμε το πλάτος (πχ 20,00) και όχι τα pixels...

Βάζουμε ένα κουμπί (πχ διάφανο Rectangle *βλέπε εικόνα 3) γράφουμε τι θα κάνει και
το συνδέουμε με μια εντολή.

Η Εντολή τώρα, στο κλικ του σχήματος:

Sub Rectangle1_Click()
    If Sheet1.Columns("e:e").ColumnWidth = 20# And _
       Sheet1.Columns("g:g").ColumnWidth = 20# And _
       Sheet1.Columns("i:i").ColumnWidth = 20# Then
        Sheet1.Columns("e:e").ColumnWidth = 0#
        Sheet1.Columns("g:g").ColumnWidth = 0#
        Sheet1.Columns("i:i").ColumnWidth = 0#
    Else
        Sheet1.Columns("e:e").ColumnWidth = 20#
        Sheet1.Columns("g:g").ColumnWidth = 20#
        Sheet1.Columns("i:i").ColumnWidth = 20#
    End If
End Sub

Αν στο φύλλο Sheet1 (κωδικό όνομα), η στήλη e, έχει πλάτος =Χ (20 επί του προκειμένου)
και ταυτόχρονα
στο φύλλο Sheet1 (κωδικό όνομα), η στήλη g, έχει πλάτος =Χ
και ταυτόχρονα
στο φύλλο Sheet1 (κωδικό όνομα), η στήλη i, έχει πλάτος =Χ ... τότε
να γίνει μηδέν.
Αλλιώς
να είναι (το πλάτος όλων των στηλών) =Χ

Καλό είναι, οι στήλες να έχουν το ίδιο πλάτος.

Παρατηρήσεις:
Υπάρχει και καλύτερη μέθοδος όμως....με πιο βελτιωμένο κώδικα,
γιατί μπορεί να έχουμε πολλές στήλες που θέλουμε να ανοιγοκλείνουν.

Στο βιβλίο που ανέβασα τότε, οι στήλες ήταν μόνο τρείς και
δεν ήταν και σκοπός να δείξω αυτό, αλλά τους τύπους ενημέρωσης τιμών...

Γράψε μου το φύλλο (κωδικό όνομα) και ποιές στήλες θέλεις να κλείνεις-ανοίγεις
να στο στείλω το απόγευμα...