Αυτό το σεμινάριο θα δείξει πώς να χρησιμοποιήσετε το VBA για να κεντράρετε το κείμενο σε ένα κελί τόσο οριζόντια όσο και κάθετα.
Μπορούμε να χρησιμοποιήσουμε την ομάδα Ευθυγράμμιση στην Αρχική Κορδέλα στο Excel για να κεντράρουμε κείμενο τόσο οριζόντια όσο και κάθετα σε ένα κελί. Εάν γράφουμε μια μακροεντολή για τη μορφοποίηση κειμένου, μπορούμε να δημιουργήσουμε ξανά αυτήν τη λειτουργία χρησιμοποιώντας τον κώδικα VBA.
Κέντρο οριζόντια
Για να κεντράρετε το κείμενο οριζόντια σε ένα κελί, μπορούμε να χρησιμοποιήσουμε τον ακόλουθο κώδικα:
| 123 | Sub CenterText ()ActiveCell.HorizontalAlignment = xlCenterΤέλος υπο |
Εναλλακτικά, για να κεντράρετε το κείμενο οριζόντια σε κάθε κελί μιας επιλεγμένης περιοχής κελιών, μπορούμε να χρησιμοποιήσουμε το αντικείμενο επιλογής και να κάνουμε τα εξής:
| 123 | Sub CenterText ()Selection.HorizontalAlignment = xlCenterΤέλος υπο |
Μπορούμε επίσης να αλλάξουμε την ευθυγράμμιση σε δεξιά ή αριστερά χρησιμοποιώντας το xlΑριστερά και xlΣωστά σταθερές.
Για να ευθυγραμμίσουμε δεξιά το κείμενο σε ένα κελί, μπορούμε να χρησιμοποιήσουμε τον ακόλουθο κώδικα:
| 123 | Sub RightAlignText ()ActiveCell.HorizontalAlignment = xlRightΤέλος υπο |
Κέντρο κάθετα
Το κεντράρισμα του κειμένου κάθετα είναι το ίδιο με το οριζόντιο.
| 123 | Sub CenterTextVertical ()ActiveCell.VerticalAlignment = xlCenterΤέλος υπο |
Όπως επικεντρώνει το κείμενο κάθετα σε μια επιλογή:
| 123 | Sub CenterTextVertically ()Selection.VerticalAlignment = xlCenterΤέλος υπο |
Μπορούμε επίσης να αλλάξουμε το κείμενο στην κορυφή ή στο κάτω μέρος ενός κελιού ή επιλογή χρησιμοποιώντας το xlTop ή xlBottom σταθερές.
| 123 | Sub TopAlignVertically ()ActiveCell.VerticalAlignment = xlTopΤέλος υπο |
Κέντρο κειμένου οριζόντια και κάθετα την ίδια στιγμή
Αν θέλουμε να κεντράρουμε το κείμενο τόσο οριζόντια όσο και κάθετα ταυτόχρονα, υπάρχουν δύο τρόποι με τους οποίους μπορούμε να το κάνουμε.
| 1234 | Υποκέντρο Και τα δύο ()ActiveCell.HorizontalAlignment = xlCenterActiveCell.VerticalAlignment = xlCenterΤέλος υπο |
Εναλλακτικά, για να μειώσουμε τον επαναλαμβανόμενο κώδικα, μπορούμε να χρησιμοποιήσουμε μια δήλωση με και τέλος με.
| 123456 | Sub CenterBoth2 ()Με Επιλογή.HorizontalAlignment = xlCenter.VerticalAlignment = xlCenterΤέλος μεΤέλος υπο |
Ο παραπάνω κώδικας θα ισχύει για όλα τα κελιά του Excel που έχουν επιλεγεί εκείνη τη στιγμή.
Η χρήση με και τέλος με είναι πολύ αποτελεσματική όταν έχουμε πολλές μορφοποιήσεις εντός της επιλογής, όπως συγχώνευση κελιών ή αλλαγή προσανατολισμού.
| 12345678 | Sub MergeAndCenter ()Με Επιλογή.HorizontalAlignment = xlCenter.VerticalAlignment = xlBottom.Προσανατολισμός = -36.MergeCells = TrueΤέλος μεΤέλος υπο |
