Γιώργο
Ναι είναι κώδικας
VBA.
Άλλος τρόπος εκτός από αυτόν (αν μιλάμε για αυτοματισμό) δεν υπάρχει ή χειροκίνητα πλέον.
Με ανοιχτό το πρόγραμμα της Excel και με ActiveSheet (Ενεργοποιημένο φύλλο) το φύλλο στο οποίο θέλουμε να αυξομειώνονται οι στήλες αν πάμε κάτω στην Ετικέτα που λέει το όνομα του φύλλου πχ Φύλλο1 με δεξί κλικ εμφανίζονται διάφορες επιλογές.
Κάνε κλικ στο "Προβολή Κώδικα" και στο παράθυρο που θα ανοίξει κάνε αντιγραφή - επικόλληση τον κώδικα αυτόν.
Προς το παρών δεν χρειάζεσαι κάτι άλλο για να έχεις το επιθυμητό αποτέλεσμα.
Κάποια πράγματα που πρέπει να προσέξεις οπωσδήποτε
1. Αν οι στήλες που θέλεις να αυξομειώνονται είναι πχ η D και η F το μόνο που χρειάζεται είναι να αντικαταστήσεις το
Range("A:A,C:C,E:E").Columns.AutoFit
με το
Range("D:D,F:F").Columns.AutoFit
κ.ο.κ. για όποια άλλη στήλη θέλεις
2. Δεν υπάρχει Undo αν θέλεις να επιστρέψεις σε προηγούμενη ενέργεια
3. Για να λειτουργούν οι μακροεντολές πρέπει (στην έκδοση 2010 που έχεις) να αποθηκεύσεις το βιβλίο σου σε μορφή .xlsm
4. Να είναι ενεργοποιημένες οι μακροεντολές από την κορδέλα
ΑΡΧΕΙΟ > Επιλογές > Κέντρο Αξιοπιστίας > Ρυθμίσεις Κέντρου Αξιοπιστίας > Ρυθμίσεις μακροεντολών >
και επιλογή του 4 ου κουμπιού από επάνω προς τα κάτω "Ενεργοποίηση όλων των μακροεντολών..."
Μην σε προβληματίσει που λέει δεν συνιστάται ...