Πίνακας περιεχομένων
Αφού χειριστείτε ένα φύλλο εργασίας με VBA, μπορεί να χρειαστεί να ρυθμίσετε αυτόματα τις στήλες σας για να παρουσιάσετε το καλύτερο δυνατό τελικό αποτέλεσμα. Δείτε πώς μπορείτε να ρυθμίσετε αυτόματα τις στήλες χρησιμοποιώντας VBA.
Στήλη Autofit χρησιμοποιώντας VBA
Αυτός ο κωδικός αυτορυθμίζει τις στήλες Α και Β. Η αυτόματη προσαρμογή εφαρμόζεται στο ενεργό φύλλο.
1 | Στήλες ("A: B"). EntireColumn.Autofit |
Αυτόματη προσαρμογή όλων των χρησιμοποιημένων στηλών
Τι γίνεται αν θέλετε να προσαρμόσετε αυτόματα όλες τις χρησιμοποιημένες στήλες σε ένα φύλλο εργασίας; Χρησιμοποιήστε την παραπάνω μέθοδο σε συνδυασμό με την καταμέτρηση του αριθμού των χρησιμοποιημένων στηλών και έναν βρόχο.
Ο ακόλουθος κώδικας προσαρμόζεται αυτόματα σε όλες τις χρησιμοποιούμενες στήλες χρησιμοποιώντας VBA:
1234567891011 | Sub AutofitAllUsed ()Dim x ως ακέραιοςΓια x = 1 To ActiveSheet.UsedRange.Columns.CountΣτήλες (x) .IntireColumn.autofitΕπόμενο xΤέλος υπο |