Χρώμα γραμματοσειράς VBA - Αλλαγή χρώματος γραμματοσειράς χρησιμοποιώντας την ιδιότητα χρώματος VBA

Πίνακας περιεχομένων

Χρώμα γραμματοσειράς Excel VBA

Η ιδιότητα χρώματος γραμματοσειράς VBA χρησιμοποιείται για να αλλάξει το χρώμα γραμματοσειράς των κελιών excel χρησιμοποιώντας τον κώδικα vba. Μπορούμε να αλλάξουμε το χρώμα της γραμματοσειράς με πολλούς τρόπους χρησιμοποιώντας το ευρετήριο χρωμάτων, την ιδιότητα χρώματος με τη λειτουργία RGB.

Όταν προετοιμάζω ένα ταμπλό στο excel, συνήθως περνάω αρκετό χρόνο μορφοποιώντας κελιά, γραμματοσειρές κ.λπ. Η αλλαγή του χρώματος γραμματοσειράς στο φύλλο εργασίας excel είναι εύκολη δουλειά, αλλά όταν πρόκειται για το Excel, θα πρέπει να γνωρίζετε τους τρόπους σύνταξης κώδικα VBA για να αλλάξετε το χρώμα της γραμματοσειράς.

Για να αλλάξουμε το χρώμα της γραμματοσειράς, πρώτα, πρέπει να προσδιορίσουμε ποια είναι τα κελιά που πρόκειται να αλλάξουμε.

Εύρος ("A1: A10")

Τότε πρέπει να επιλέξουμε την ιδιότητα FONT.

Εύρος ("A1: A10"). Γραμματοσειρά

Τότε τι θέλουμε να κάνουμε με αυτήν τη γραμματοσειρά, οπότε επιλέξτε Χρώμα;

Εύρος ("A1: A10"). Χρώμα γραμματοσειράς

Έτσι, πρέπει να κατασκευάσουμε τον κώδικα για να αλλάξουμε το χρώμα της γραμματοσειράς. Φαίνεται δύσκολο, έτσι δεν είναι;

Αλλά θυμηθείτε, όλα φαίνεται να είναι δύσκολα στην αρχή, αργότερα θα το κερδίσετε.

Πώς να αλλάξετε το χρώμα γραμματοσειράς χρησιμοποιώντας το VBA;

Παράδειγμα # 1 - Χρήση ευρετηρίου χρωμάτων

Η ιδιότητα Color Index είναι διαφορετική από την ιδιότητα Color στο VBA. Χρησιμοποιώντας αριθμητικές τιμές, μπορούμε να αλλάξουμε το χρώμα των κελιών, των γραμματοσειρών.

Οι αριθμοί κυμαίνονται από 1 έως 56 και κάθε αριθμός αντιπροσωπεύει διαφορετικά χρώματα. Παρακάτω είναι η λίστα των αριθμών και των χρωμάτων τους.

Εντάξει, ας το δοκιμάσουμε.

Έχω μια τιμή στο κελί A1.

Θέλω να αλλάξω το χρώμα της γραμματοσειράς A1 σε πράσινο. Παρακάτω είναι ο κωδικός.

Κώδικας:

Sub FontColor_Example1 () Εύρος ("A1"). Font.ColorIndex = 10 End Sub

Αυτό θα αλλάξει το χρώμα της γραμματοσειράς A1 σε πράσινο.

Μπορούμε επίσης να χρησιμοποιήσουμε την ιδιότητα CELLS για να αλλάξουμε το χρώμα της γραμματοσειράς.

Κώδικας:

Sub FontColor_Example1 () Cells (1, 1) .Font.ColorIndex = 10 End Sub

Έτσι, μπορούμε να χρησιμοποιήσουμε αριθμούς από το 1 έως το 56 για να εφαρμόσουμε το επιθυμητό χρώμα στη γραμματοσειρά.

Παράδειγμα # 2 - Χρήση ιδιότητας χρώματος

Το Color Index έχει πολύ περιορισμένα χρώματα από 1 έως 56, αλλά χρησιμοποιώντας την ιδιότητα COLOR, μπορούμε να χρησιμοποιήσουμε 8 ενσωματωμένα χρώματα vbBlack, vbRed, vbGreen, vbBlue, vbYellow, vbMagenta, vbCyan, vbWhite .

Για αυτά τα χρώματα, δεν χρειάζεται να παρέχουμε αριθμούς. Αντίθετα, μπορούμε απλώς να αποκτήσουμε πρόσβαση σε αυτά χρησιμοποιώντας το όνομά τους όπως φαίνεται παραπάνω. Παρακάτω είναι το παράδειγμα κώδικα και για τα 8 χρώματα.

Κώδικας:

Sub vbBlack_Example () Εύρος ("A1"). Font.Color = vbBlack End Sub

Κώδικας:

Sub vbRed_Example () Εύρος ("A1"). Font.Color = vbRed End Sub

Κώδικας:

Sub vbGreen_Example () Range ("A1"). Font.Color = vbGreen End Sub

Κώδικας:

Sub vbBlue_Example () Εύρος ("A1"). Font.Color = vbBlue End Sub

Κώδικας:

Sub vbYellow_Example () Range ("A1"). Font.Color = vbYellow End Sub

Κώδικας:

Sub vbMagenta_Example () Εύρος ("A1"). Font.Color = vbMagenta End Sub

Κώδικας:

Sub vbCyan_Example () Εύρος ("A1"). Font.Color = vbCyan End Sub

Κώδικας:

Sub vbWhite_Example () Εύρος ("A1"). Font.Color = vbWhite End Sub

Παράδειγμα # 3 - Χρήση ιδιότητας χρώματος με συνάρτηση RGB

Όπως έχουμε δει, έχουμε μόνο 8 ενσωματωμένα χρώματα για να εργαστούμε. Αλλά για να έχουμε μια μεγάλη ποικιλία χρωμάτων, πρέπει να χρησιμοποιήσουμε τη λειτουργία που ονομάζεται RGB. Εκτός από τα ενσωματωμένα χρώματα, μπορούμε να δημιουργήσουμε τα δικά μας χρώματα χρησιμοποιώντας τη λειτουργία VBA RGB.

Κοιτάξτε τη σύνταξη της συνάρτησης RGB.

RGB (κόκκινο, πράσινο, μπλε)

Το RGB σημαίνει "Κόκκινο, Πράσινο και Μπλε". Για την κατασκευή χρωμάτων, πρέπει να παρέχουμε αριθμούς από 0 έως 255 για κάθε χρώμα.

Ακολουθούν μερικά παραδείγματα για εσάς.

Ακολουθούν μερικά από τα παραδείγματα μακροεντολών κώδικα

Κώδικας:

Sub RGB_Example () Range ("A1"). Font.Color = RGB (0, 0, 0) 'Αλλαγή χρώματος γραμματοσειράς σε μαύρο End End

Κώδικας:

Sub RGB_Example () Range ("A1"). Font.Color = RGB (16, 185, 199) "Το χρώμα της γραμματοσειράς θα είναι αυτό το End Sub

Κώδικας:

Sub RGB_Example () Range ("A1"). Font.Color = RGB (106, 15, 19) "Το χρώμα της γραμματοσειράς θα είναι αυτό το End Sub

Κώδικας:

Sub RGB_Example () Range ("A1"). Font.Color = RGB (216, 55, 19) "Το χρώμα γραμματοσειράς θα είναι αυτό το End Sub

ενδιαφέροντα άρθρα...