Αυτό το σεμινάριο θα δείξει πώς να μορφοποιήσετε κελιά χρησιμοποιώντας VBA.
Μορφοποίηση κελιών
Υπάρχουν πολλές ιδιότητες που μπορούν να οριστούν για ένα (εύρος) κελιών όπως αυτό:
| 1234567891011 | Sub SetCellFormat ()Με φύλλα εργασίας ("Φύλλο1"). Εύρος ("B5: C7").HorizontalAlignment = xlHAlignDistributed.AddIndent = True.Font.FontStyle = "Πλάγια".NumberFormat = "Γενικά". Εσωτερικό. Χρώμα = RGB (128, 100, 250)Τέλος μεΤέλος υπο |
Ας τα δούμε με αλφαβητική σειρά:
AddIndent
Ρυθμίζοντας την τιμή αυτής της ιδιότητας σε True, το κείμενο θα εισαχθεί αυτόματα όταν η ευθυγράμμιση κειμένου στο κελί έχει οριστεί οριζόντια ή κάθετα, σε ίση κατανομή (βλ. Οριζόντια ευθυγράμμιση και κάθετη ευθυγράμμιση).
| 12345 | Με φύλλα εργασίας ("Φύλλο1"). Εύρος ("Α1"). Προσανατολισμός = xlΚατακόρυφος.VerticalAlignment = xlVAlignDistributed.AddIndent = TrueΤέλος με |
Σύνορα
Μπορείτε να ορίσετε τη μορφή περιγράμματος ενός κελιού. Δείτε εδώ για περισσότερες πληροφορίες σχετικά με τα σύνορα.
Για παράδειγμα, μπορείτε να ορίσετε μια κόκκινη διακεκομμένη γραμμή γύρω από το κελί B2 στο Φύλλο 1 ως εξής:
| 1 | Φύλλα εργασίας ("Sheet1"). Εύρος ("B2"). BorderAround LineStyle: = xlDash, ColorIndex: = 3 |
Γραμματοσειρά
Μπορείτε να προσαρμόσετε τη μορφή γραμματοσειράς του κελιού, ορίζοντας το όνομα της γραμματοσειράς, το στυλ, το μέγεθος, το χρώμα, προσθέτοντας υπογραμμίσεις ή / και εφέ (διαχωρισμός, υπο-ή επιγραφή). Δείτε εδώ για περισσότερες πληροφορίες σχετικά με τις γραμματοσειρές κυψέλης.
Ορίστε μερικά παραδείγματα:
| 12345 | Με εύρος ("A1: C5"). Γραμματοσειρά.Name = "Century".FontStyle = "Τολμηρό".Strikethrough = TrueΤέλος με |
FormulaHidden
Αυτή η ιδιότητα επιστρέφει ή ορίζει μια τιμή παραλλαγής που υποδεικνύει εάν ο τύπος θα είναι κρυμμένος όταν το φύλλο εργασίας προστατεύεται. Για παράδειγμα:
| 1 | Φύλλα εργασίας ("Φύλλο1"). Εύρος ("A1: B1"). FormulaHidden = True |
Οριζόντια ευθυγράμμιση
Αυτή η ιδιότητα μορφοποίησης κελιού ιδιότητας επιστρέφει ή ορίζει μια τιμή παραλλαγής που αντιπροσωπεύει την οριζόντια ευθυγράμμιση για το καθορισμένο αντικείμενο. Οι σταθερές που επιστρέφονται ή ορίζονται μπορεί να είναι: xlGeneral, xlCenter, xlDistributed, xlJustify, xlLeft, xlRight, xlFill, xlCenterAcrossSelection. Για παράδειγμα:
| 1 | Φύλλα εργασίας ("Φύλλο1"). Εύρος ("D3"). HorizontalAlignment = xlRight |
IndentLevel
Επιστρέφει ή ορίζει μια ακέραιη τιμή μεταξύ 0 και 15 που αντιπροσωπεύει το επίπεδο εσοχής για το κελί ή το εύρος.
| 1 | Φύλλα εργασίας ("Sheet1"). Range ("A1"). IndentLevel = 7 |
Εσωτερικό
Μπορείτε να ορίσετε ή να λάβετε επιστρεφόμενες πληροφορίες σχετικά με το εσωτερικό του κελιού: το χρώμα, το ColorIndex, το Pattern, το PatternColor, το PatternColorIndex, το PatternThemeColor, το PatternTintAndShade, το ThemeColor, το TintAndShade, όπως αυτό:
| 123 | If Not Range ("A1"). Interior.ThemeColor = ThemeColorLight2 ΤότεΕύρος ("A1"). Interior.Pattern = xlPatternUpΤέλος εαν |
Κλειδωμένο
Αυτή η ιδιότητα επιστρέφει True εάν το κελί ή το εύρος είναι κλειδωμένο, False εάν το αντικείμενο μπορεί να τροποποιηθεί όταν το φύλλο προστατεύεται ή Null εάν το καθορισμένο εύρος περιέχει κλειδωμένα και ξεκλειδωμένα κελιά. Μπορεί επίσης να χρησιμοποιηθεί για το κλείδωμα ή το ξεκλείδωμα κυψελών.
Αυτό το παράδειγμα ξεκλειδώνει τα κελιά A1: B2 στο Sheet1, έτσι ώστε να μπορούν να τροποποιηθούν όταν το φύλλο προστατεύεται.
| 12 | Φύλλα εργασίας ("Φύλλο1"). Εύρος ("A1: B2"). Κλειδωμένο = ΛάθοςΦύλλα εργασίας ("Φύλλο1"). Προστατέψτε |
MergeCells
Ορίστε αυτήν την ιδιότητα σε True, εάν χρειάζεται να συγχωνεύσετε ένα εύρος. Η τιμή του γίνεται True αν ένα καθορισμένο εύρος περιέχει συγχωνευμένα κελιά. Για παράδειγμα, εάν πρέπει να συγχωνεύσετε το εύρος του C5: D7, μπορείτε να χρησιμοποιήσετε αυτόν τον κωδικό:
| 1 | Φύλλα εργασίας ("Φύλλο1"). Εύρος ("C5: D7"). MergeCells = True |
Μορφή αριθμού
Μπορείτε να ορίσετε τη μορφή αριθμού εντός των κελιών στα γενικά, τον αριθμό, το νόμισμα, τη λογιστική, την ημερομηνία, την ώρα, το ποσοστό, το κλάσμα, το επιστημονικό, το κείμενο, το ειδικό και το προσαρμοσμένο.
Ακολουθούν παραδείγματα επιστημονικών μορφών και ποσοστών αριθμών:
| 12 | Εύρος ("A1"). NumberFormat = "0.00E+00"Εύρος ("B1"). NumberFormat = "0.00%" |
NumberFormatLocal
Αυτή η ιδιότητα επιστρέφει ή ορίζει μια τιμή παραλλαγής που αντιπροσωπεύει τον κώδικα μορφής για το αντικείμενο ως συμβολοσειρά στη γλώσσα του χρήστη.
Προσανατολισμός
Μπορείτε να ορίσετε (ή να επιστρέψετε) τον προσανατολισμό κειμένου μέσα στα κελιά (α) με αυτήν την ιδιότητα. Η τιμή του μπορεί να είναι μία από αυτές τις σταθερές: xlDownward, xlHorizontal, xlUpward, xlVertical ή μια ακέραιη τιμή από -90 έως 90 μοίρες.
| 1 | Φύλλα εργασίας ("Φύλλο1"). Εύρος ("Α1"). Προσανατολισμός = -60 |
Μητρική εταιρεία
Αυτή είναι μια ιδιότητα μόνο για ανάγνωση που επιστρέφει το γονικό αντικείμενο ενός καθορισμένου αντικειμένου.
ShrinkToFit
Αυτή η ιδιότητα επιστρέφει ή ορίζει μια τιμή παραλλαγής που υποδεικνύει εάν το κείμενο συρρικνώνεται αυτόματα για να χωρέσει στο διαθέσιμο πλάτος στήλης.
| 1 | Φύλλα εργασίας ("Sheet1"). Range ("A1"). ShrinkToFit = True |
Κατακόρυφη στοίχιση
Αυτή η ιδιότητα μορφοποίησης κελιού ιδιότητας επιστρέφει ή ορίζει μια τιμή παραλλαγής που αντιπροσωπεύει την κάθετη ευθυγράμμιση για το καθορισμένο αντικείμενο. Οι σταθερές που επιστρέφονται ή ορίζονται μπορεί να είναι: xlCenter, xlDistributed, xlJustify, xlBottom, xlTop. Για παράδειγμα:
| 1 | Φύλλα εργασίας ("Φύλλο1"). Εύρος ("Α1"). VerticalAlignment = xlTop |
Αναδίπλωση του κειμένου
Αυτή η ιδιότητα επιστρέφει True εάν το κείμενο είναι τυλιγμένο σε όλα τα κελιά εντός του καθορισμένου εύρους, False εάν το κείμενο δεν είναι τυλιγμένο σε όλα τα κελιά εντός του καθορισμένου εύρους ή Null εάν το καθορισμένο εύρος περιέχει κάποια κελιά που τυλίγουν κείμενο και άλλα κελιά που δεν το κάνουν.
Για παράδειγμα, εάν έχετε αυτό το εύρος κελιών:
αυτός ο κωδικός παρακάτω θα επιστρέψει Null στο άμεσο παράθυρο:
| 1 | ; Φύλλα εργασίας ("Φύλλο1"). Εύρος ("Α1: Β1"). WrapText |
