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

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

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

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

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

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

Μπορείτε να κάνετε λήψη αυτού του προτύπου ευρετηρίου χρωμάτων VBA εδώ - Πρότυπο ευρετηρίου χρωμάτων VBA

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

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

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

Κώδικας:

 Υποχρωματικό χρώμα () Εύρος ("A1") Τελικό υποτμήμα 

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

Κώδικας:

 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 σε vbBlue.

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

Εκτός από αυτά τα 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 διπλά χρώματα. Παρακάτω είναι η λίστα των διπλών κωδικών χρώματος.