[Excel07] Αυτόματη αναπροσαρμογή μεγέθους κελιού στο Excel

[George R]

Καλημέρα σε όλους

Πολλές φορές το αποτέλεσμα μιας συνάρτησης στο Excel, δεν χωράει στο κελί (συνήθως μεγάλο κείμενο ) και πρέπει να πηγαίνουμε εκεί και να κάνουμε διπλό κλικ πάνω στη γραμμή για να μεγαλώσει και να μπορούμε να το δούμε.
Υπάρχει τρόπος να ορίσω μια περιοχή σε ένα φύλλο του Excel, όπου τα κελιά που εξάγουν τα αποτελέσματα, θα αναπροσαρμόζονται αυτόματα, ανάολογα με το μέγεθος του εξαγόμενου αποτελέσματος; (Επίσης δεν θέλω να τα δώσω όλα στάνταρ διαστάσεις απο την αρχή).

Ευχαριστώ.

[Spirosgr]

Καλημέρα
Ένας τρόπος θα μπορούσε να είναι ο εξής:
Στο φύλλο που θέλουμε να αναπροσαρμόζονται οι στήλες
Δεξί κλικ στο Tab του φύλλου > View Code
Και περνάμε αυτές τις γραμμές κώδικα

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Range("A:A,C:C,E:E").Columns.AutoFit
End Sub

Στο παράδειγμα αναπροσαρμόζονται οι στήλες A, C και E
Μπορείτε να τις αλλάξετε κατά το δοκούν
Προσοχή με την μέθοδο αυτήν δεν έχετε Undo

[George R]

Ευχαριστώ Σπύρο για την άμεση απάντηση

αλλά επειδή είμαι και λίγο αρχάριος (με διάθεση να μάθω βεβαια)

ο τρόπος που αναφέρεις έχει να κάνει με μακροεντολές μέσα στο Excel; ή είναι κάτι άλλο;

Γενικά πάντως δεν έχω κάνει κάτι με μακροεντολές ακόμη. Δεν υπάρχει άλλος πιο απλός τρόπος;

Επίσης επειδή έχω Ελληνικό Excel, το view code είναι προβολή κώδικα μέσα απο τον προγραμματιστή;

Ευχαριστώ.

[Spirosgr]

Γιώργο
Ναι είναι κώδικας 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 ου κουμπιού από επάνω προς τα κάτω "Ενεργοποίηση όλων των μακροεντολών..."
Μην σε προβληματίσει που λέει δεν συνιστάται ...