Δείκτης χρώματος VBA - Κορυφαίοι τρόποι χρήσης της ιδιότητας ευρετηρίου χρωμάτων στο Excel VBA

Ευρετήριο χρωμάτων Excel VBA

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

Στο VBA, έχουμε δύο τρόπους εφαρμογής του χρώματος, ο πρώτος είναι με τη χρήση της ιδιότητας "χρώμα" και ο δεύτερος με την ιδιότητα "ColorIndex".

Εφαρμόζουμε χρώμα στο κελί ως χρώμα φόντου, εφαρμόζουμε χρώμα γραμματοσειράς και εφαρμόζουμε χρώμα περιγράμματος. Επομένως, για να αποκτήσετε πρόσβαση στην ιδιότητα χρώματος και ευρετηρίου χρωμάτων, πρέπει πρώτα να επιλέξετε το κελί.

Πώς να χρησιμοποιήσετε την ιδιότητα Color & Color Index;

# 1 - Χρήση ιδιότητας χρώματος

Ας υποθέσουμε ότι έχετε τη λέξη "Γεια" στο κελί A1. Θα δούμε πώς να εφαρμόσουμε το χρώμα φόντου αυτού του κελιού.

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

Κώδικας:

Υποχρωματικό χρώμα () Εύρος ("A1") End Sub

Αφού επιλέξουμε το κελί, πρέπει να αναφέρουμε ποιο είναι το πράγμα που πρέπει να κάνουμε. Όπως είπα, πρέπει να αλλάξουμε το εσωτερικό χρώμα του κελιού. Για να αλλάξετε το χρώμα φόντου του κελιού, χρησιμοποιήστε την ιδιότητα "Εσωτερικό".

Κώδικας:

Sub Color () Range ("A1"). End End Sub

Στην ιδιότητα Interior, έχουμε πολλές άλλες μεθόδους και ιδιότητες. Δεδομένου ότι πρέπει να αλλάξουμε το χρώμα του κελιού χρησιμοποιήστε την ιδιότητα χρώματος.

Κώδικας:

Sub Color () Range ("A1"). Interior.Color = End Sub

Εδώ μπορούμε να χρησιμοποιήσουμε 8 χρώματα που ονομάζονται συνεχώς. Παρακάτω είναι η λίστα των ίδιων.

vbBlack, vbRed, vbGreen, vbBlue, vbYellow, vbMagenta, vbCyan, vbWhite

Επιλέξτε τον τύπο χρώματος σύμφωνα με την επιθυμία σας.

Κώδικας:

Sub Color () Range ("A1"). Interior.Color = vbBlue End Sub

Εάν εκτελέσω αυτόν τον κωδικό χρησιμοποιώντας το πλήκτρο F5 ή χειροκίνητα, θα αλλάξει το χρώμα φόντου του κελιού A1 σε τιμή .

Έτσι, μπορείτε να χρησιμοποιήσετε άλλα σταθερά ονόματα χρωμάτων. Δοκιμάστε να τα χρησιμοποιήσετε για να δοκιμάσετε το αποτέλεσμα.

Εκτός από αυτά τα 8 σταθερά χρώματα, μπορούμε επίσης να γεμίσουμε με διαφορετικά χρώματα, χρησιμοποιώντας τη λειτουργία RGB στο VBA.

Κώδικας:

Sub Color () Range ("A1"). Interior.Color = RGB (End Sub

Πρέπει να εισαγάγουμε το μείγμα του κόκκινου, του πράσινου και του μπλε σε αριθμούς. Για να το χρησιμοποιήσετε, θα πρέπει να είστε τέλειοι στην εισαγωγή των αριθμών. Έχω εισαγάγει το μείγμα ως RGB (250, 200, 150).

Κώδικας:

Sub Color () Range ("A1"). Interior.Color = RGB (250, 200, 150) End Sub

Η αλλαγή αυτού του χρώματος είναι έτσι.

Το πρόβλημα εδώ είναι ότι δεν γνωρίζετε ακριβώς ποιος αριθμός κρατά τι χρώμα.

Ο παρακάτω κώδικας είναι να αλλάξετε το χρώμα της γραμματοσειράς.

Κώδικας:

Sub Color_Font () Εύρος ("A1"). Font.Color = RGB (100, 400, 100) End Sub

Εκτελέστε αυτόν τον κώδικα χρησιμοποιώντας το πλήκτρο F5 ή χειροκίνητα για να λάβετε το αποτέλεσμα.

# 2 - Χρήση ιδιότητας ευρετηρίου χρωμάτων

Ο χρωματικός δείκτης είναι ελαφρώς διαφορετικός από την ιδιότητα χρώματος. Στην ιδιότητα COLOR, χρησιμοποιούμε 8 σταθερά χρώματα που δίνονται από το VBA και επίσης χρησιμοποιώντας τη λειτουργία RGB, δημιουργούμε το δικό μας χρώμα.

Η ιδιότητα COLOR INDEX είναι περιορισμένη στο VBA. Μπορεί να διατηρήσει τις τιμές από 1 έως 56. Κάθε αριθμός από 1 έως 56 έχει διαφορετικά χρώματα. Παρακάτω είναι οι αριθμοί λίστας και τα αντίστοιχα χρώματα.

Παρακάτω είναι ο κωδικός μακροεντολής για να αλλάξετε το χρώμα φόντου του κελιού A1 σε ροζ.

Κώδικας:

Sub ColorIndex_Cell () Εύρος ("A1"). Interior.ColorIndex = 26 End Sub

Εκτελέστε αυτόν τον κωδικό χειροκίνητα ή χρησιμοποιώντας το πλήκτρο F5 για να δείτε το αποτέλεσμα.

Παρακάτω είναι ο κωδικός μακροεντολής για να αλλάξετε το χρώμα γραμματοσειράς του κελιού A1 σε κίτρινο.

Κώδικας:

Sub ColorIndex_Font () Εύρος ("A1"). Font.ColorIndex = 27 End Sub

Εκτελέστε αυτόν τον κωδικό χρησιμοποιώντας το πλήκτρο F5, διαφορετικά μπορείτε να εκτελέσετε χειροκίνητα και να δείτε το αποτέλεσμα.

Ένα από τα σημαντικότερα πράγματα που πρέπει να θυμάστε εδώ είναι ότι μπορούμε να εισαγάγουμε αριθμούς από το 1 έως το 56. Εάν κάτι περισσότερο από 56, θα λάβουμε το σφάλμα "Subscript Out Of Range".

Παρατηρήσατε;

Όπως είπα στο Color Index, η ιδιότητα μπορεί να εισαγάγει μόνο 56 χρώματα, αλλά το γεγονός είναι ότι μπορεί να εισαγάγει μόνο 46 μοναδικά χρώματα και υπάρχουν 10 διπλά χρώματα. Παρακάτω είναι η λίστα των διπλών κωδικών χρώματος.