seychellesartprojects.org

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

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

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

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

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

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

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

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

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

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

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

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

Μπορείτε να κατεβάσετε αυτό το πρότυπο VBA Font Color Excel εδώ - Πρότυπο VBA Font Color Excel

Παράδειγμα # 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