Προσαρμόστε το πλάτος πολλών στηλών σε έναν πίνακα Excel χρησιμοποιώντας μια μακροεντολή VBA στο βέλτιστο πλάτος με το οποίο μπορεί να εμφανιστεί όλο το περιεχόμενο
Εάν θέλετε να προσαρμόσετε το πλάτος των στηλών σας στα περιεχόμενα των κελιών, αυτό δεν είναι πρόβλημα με το Excel. Κάνοντας διπλό κλικ στο διάστημα μεταξύ δύο στηλών, καθορίζετε ένα πλάτος με το οποίο μπορεί να εμφανιστεί όλο το περιεχόμενο. Το πλάτος βρίσκεται στα αριστερά των δύο στηλών
Αλλά πώς το κάνετε αυτό με μια μακροεντολή; Χρησιμοποιήστε τον ακόλουθο κωδικό προγράμματος:
Πλάτος στήλης Sub Passe An ()
ActiveSheet.Range ("a1: e1"). Columns.EntireColumn.AutoFit
Τέλος υπο
Πρέπει πάντα να προσαρμόζετε το πλάτος των στηλών στις μακροεντολές σας όταν αποθηκεύετε πίνακες χρησιμοποιώντας μακροεντολές.
Μετά την εκκίνηση της μακροεντολής, τα πλάτη των στηλών Α έως Ε του ενεργού πίνακα ορίζονται στις βέλτιστες τιμές, έτσι ώστε να είναι ορατά όλα τα περιεχόμενα.
Προσαρμόστε την αναφορά "a1: e1" στη μακροεντολή στα γράμματα της στήλης στα οποία θέλετε να αλλάξετε το πλάτος. Δεν έχει σημασία ποιοι αριθμοί γραμμών χρησιμοποιείτε στη μακροεντολή, τα γράμματα της στήλης είναι σημαντικά. Επομένως, μπορείτε επίσης να χρησιμοποιήσετε την έκφραση "G100: O5000", για παράδειγμα, για να προσαρμόσετε τις στήλες G στο O.
Για να εισαγάγετε τη μακροεντολή, πατήστε το συνδυασμό πλήκτρων ALT F11 στο Excel. Αυτό καλεί τον επεξεργαστή VBA. Χρησιμοποιήστε την εντολή INSERT - MODULE για να εισαγάγετε ένα κενό φύλλο λειτουργικής μονάδας. Για να ξεκινήσετε τη μακροεντολή, πατήστε το συνδυασμό πλήκτρων ALT F8 στο Excel.