Γραμματοσειρά κυττάρων VBA
Στο VBA, μπορείτε να αλλάξετε τις ιδιότητες γραμματοσειράς χρησιμοποιώντας την ιδιότητα γραμματοσειράς VBA του αντικειμένου εύρους. Πληκτρολογήστε τον ακόλουθο κώδικα στο πρόγραμμα επεξεργασίας VBA και θα δείτε μια λίστα με όλες τις διαθέσιμες επιλογές:
| 1 | Εύρος ("A1). Γραμματοσειρά |
Θα συζητήσουμε μερικές από τις πιο κοινές ιδιότητες παρακάτω.
Αλλαγή χρώματος γραμματοσειράς
Υπάρχουν μερικοί τρόποι για να ορίσετε χρώματα γραμματοσειράς.
vbColor
Ο ευκολότερος τρόπος για να ορίσετε χρώματα είναι με το vbColors:
| 1 | Εύρος ("a1"). Font.Color = vbRed |
Ωστόσο, είστε πολύ περιορισμένοι όσον αφορά τα διαθέσιμα χρώματα. Αυτές είναι οι μόνες διαθέσιμες επιλογές:
Χρώμα - RGB
Μπορείτε επίσης να ορίσετε χρώματα με βάση το RGB (κόκκινο πράσινο μπλε). Εδώ εισάγετε τιμές χρώματος μεταξύ 0-255 για Κόκκινο, Πράσινο και Μπλε. Χρησιμοποιώντας αυτά τα τρία χρώματα μπορείτε να φτιάξετε οποιοδήποτε χρώμα:
| 1 | Εύρος ("a1"). Font.Color = RGB (255,255,0) |
ColorIndex
Το VBA / Excel διαθέτει επίσης μια ιδιότητα ColorIndex. Αυτό καθιστά διαθέσιμα τα προσχεδιασμένα χρώματα. Ωστόσο, αποθηκεύονται ως αριθμοί ευρετηρίου, γεγονός που καθιστά δύσκολο να γνωρίζουμε τι χρώμα είναι τι:
| 1 | Εύρος ("a1"). Font.ColorIndex =… |
Γράψαμε ένα άρθρο σχετικά με τους κωδικούς VBA Color, συμπεριλαμβανομένης μιας λίστας των κωδικών VBA ColorIndex. Εκεί μπορείτε να μάθετε περισσότερα για τα χρώματα.
Μέγεθος γραμματοσειράς
Αυτό θα ορίσει το μέγεθος της γραμματοσειράς σε 12:
| 1 | Εύρος ("a1"). Μέγεθος γραμματοσειράς = 12 |
ή στα 16:
| 1 | Εύρος ("a1"). Μέγεθος γραμματοσειράς = 16 |
Εντονη γραμματοσειρά
Είναι εύκολο να ορίσετε μια γραμματοσειρά κελιού σε Bold:
| 1 | Εύρος ("A1"). Font.Bold = True |
ή για να διαγράψετε την έντονη μορφοποίηση:
| 1 | Εύρος ("A1"). Font.Bold = False |
Όνομα γραμματοσειράς
Για να αλλάξετε ένα όνομα γραμματοσειράς, χρησιμοποιήστε το Ονομα ιδιοκτησία:
| 1 | Εύρος ("A1"). Font.Name = "Calibri" |
| 1 | Εύρος ("A1"). Font.Name = "Arial" |
| 1 | Εύρος ("A1"). Font.Name = "Times New Roman" |
Cell Style
Το Excel προσφέρει τη δυνατότητα δημιουργίας κελιών "Στυλ". Τα στυλ μπορούν να βρεθούν στο Αρχική κορδέλα> Στυλ:
Τα στυλ σάς επιτρέπουν να αποθηκεύσετε την επιθυμητή μορφοποίηση κελιών. Στη συνέχεια, εκχωρήστε αυτό το στυλ σε ένα νέο κελί και εφαρμόζεται αμέσως όλη η μορφοποίηση κελιών. Συμπεριλαμβανομένου του μεγέθους γραμματοσειράς, του χρώματος του κελιού, της προστασίας κυττάρων και οτιδήποτε άλλο διατίθεται από το μενού Μορφοποίηση κυψέλης:
Προσωπικά, για πολλά από τα μοντέλα στα οποία δουλεύω, συνήθως δημιουργώ ένα στυλ κελιού "Εισαγωγή":
| 1 | Εύρος ("a1"). Στυλ = "Εισαγωγή" |
Χρησιμοποιώντας στυλ μπορείτε επίσης εύκολα να προσδιορίσετε τους τύπους κελιών στο φύλλο εργασίας σας. Το παρακάτω παράδειγμα θα βολέψει όλα τα κελιά στο φύλλο εργασίας και θα αλλάξει οποιοδήποτε κελί με Style = "Input" σε "InputLocked":
| 1234567 | Dim Cell ως RangeΓια κάθε κελί στο ActiveSheet.CellsΑν Cell.Style = "Εισαγωγή" τότεCell.Style = "InputLocked"Τέλος εανΕπόμενο κελί |
