Αυτό το σεμινάριο θα δείξει πώς μπορείτε να ορίσετε ύψος γραμμής και πλάτος στήλης χρησιμοποιώντας VBA.
Τα ύψη και τα πλάτη των στηλών του Excel μπορούν να αλλάξουν σε VBA, ορίζοντας τις ιδιότητες .RowHeight και .ColumnWidth.
Ορίστε πλάτος στήλης με VBA
Μακροεντολή για ρύθμιση του πλάτος στήλης των στηλών Α έως Ε:
| 123 | Υποστύλος_Πλάτος ()Στήλες ("A: E"). ColumnWidth = 30Τέλος υπο |
Ορίστε ύψος σειράς με VBA
Μακροεντολή για ρύθμιση του ύψος σειράς της σειράς 1:
| 123 | Sub RowHeight ()Σειρές ("1: 1"). RowHeight = 30Τέλος υπο |
Πλάτος στήλης αυτόματης προσαρμογής
Το Excel προσφέρει τη δυνατότητα "Αυτόματης προσαρμογής" πλάτους στηλών. Αυτή η δυνατότητα προσαρμόζει το πλάτος της στήλης έτσι ώστε οι στήλες να είναι αρκετά ευρείες ώστε να χωρά όλο το κείμενο που βρίσκεται σε αυτήν τη στήλη.
Για αυτόματη προσαρμογή πλάτους στηλών σε VBA:
| 1 | Στήλες ("A: B"). Αυτόματη προσαρμογή |
Γράψαμε περισσότερα για αυτό σε ένα άλλο άρθρο σχετικά με τον τρόπο αυτόματης προσαρμογής μιας στήλης από το VBA, συμπεριλαμβανομένου του τρόπου αυτόματης προσαρμογής όλων των στηλών που χρησιμοποιούνται.
Autofit Row Height
Μπορείτε επίσης να ρυθμίσετε αυτόματα τα ύψη γραμμών χρησιμοποιώντας παρόμοια μέθοδο:
| 1 | Σειρές ("1: 2"). Αυτόματη προσαρμογή |
Ορίστε πλάτος κυψέλης
Μπορείτε επίσης να προσαρμόσετε το πλάτος της στήλης αναφέροντας ένα κελί:
| 1 | Εύρος ("a1"). EntireColumn.ColumnWidth = 20 |
Ρύθμιση ύψους κυψέλης
Or προσαρμόστε τα ύψη γραμμών αναφέροντας ένα κελί:
| 1 | Εύρος ("a1"). EntireRow.RowHeight = 10 |
Λήψη πλάτους στήλης
Για να λάβετε το πλάτος στήλης μιας στήλης:
| 12 | αμυδρό iColumnWidth όσο καιρόiColumnWidth = στήλες ("a"). ColumnWidth |
Σημείωση: Αυτό θα επιστρέψει Null εάν όλες οι στήλες στο εύρος δεν έχουν το ίδιο πλάτος.
Αποκτήστε Rψος Σειράς
Ομοίως, μπορείτε να λάβετε το ύψος της σειράς:
| 12 | αμυδρό iRowHeight όσο καιρόiRowHeight = σειρές ("1"). RowHeight |
