Λίστα κωδικών ευρετηρίου χρωμάτων VBA
Όταν χρησιμοποιείτε VBA για κωδικοποίηση του Colorindex (ή του χρώματος φόντου) ενός κελιού, είναι χρήσιμο να γνωρίζετε ποιος ακέραιος αριθμός θα ισούται με τι χρώμα. Παρακάτω είναι μια εικόνα αναφοράς που δείχνει το χρώμα και παραθέτει το αντίστοιχο Colorindex. aka Παλέτα χρωμάτων VBA
Ακολουθεί ο κώδικας για να δημιουργήσετε έναν για τον εαυτό σας ή απλώς προσθέστε σελιδοδείκτη σε αυτήν τη σελίδα:
| 123456789101112131415 | Sub ColorRef ()Dim x ως ακέραιοςΓια x = 1 έως 56Αν x <ΤότεΚελιά (x, 1). Εσωτερικό. ColorIndex = xΚελιά (x, 2) = xΑλλούΚελιά (x - 28, 3). Εσωτερικό. ColorIndex = xΚελιά (x - 28, 4) = xΤέλος εανΕπόμενο xΤέλος υπο |
Παραδείγματα VBA ColorIndex
Ορισμός χρώματος φόντου κελιού
| 1 | Εύρος ("A1"). Interior.ColorIndex = 6 |
Ρύθμιση χρώματος γραμματοσειράς κυψέλης
| 1 | Εύρος ("A1"). Font.ColorIndex = 5 |
Ορισμός χρώματος περιγράμματος κελιού
| 1 | Εύρος ("A1"). Borders.ColorIndex = 5 |
Λήψη Cell Background ColorIndex
| 123 | Dim col ως ακέραιοςcol = Range ("A1"). Interior.ColorIndex |
Ορίστε ένα χρώμα φόντου κελιού σε άλλο χρώμα κυττάρου
| 1 | Εύρος ("A1"). Interior.ColorIndex = Range ("B1"). Interior.ColorIndex |
Ιδιότητα χρώματος VBA
Αντί να χρησιμοποιήσετε την ιδιότητα ColorIndex του Excel / VBA, μπορείτε να χρησιμοποιήσετε την ιδιότητα Χρώμα. Η ιδιότητα Χρώμα λαμβάνει δύο τύπους εισόδου:
- vbColor
- Χρώματα RGB
Θα τα συζητήσουμε παρακάτω:
Χρώμα VB
Το VB Color είναι ο ευκολότερος τρόπος για να ορίσετε χρώματα στο VBA. Ωστόσο, είναι επίσης το λιγότερο ευέλικτο. Για να ορίσετε έναν κωδικό χρώματος χρησιμοποιώντας το vbColor, χρησιμοποιήστε τον παρακάτω πίνακα:
Ωστόσο, όπως μπορείτε να δείτε από τον πίνακα, οι επιλογές σας είναι εξαιρετικά περιορισμένες.
Ορισμός χρώματος φόντου κελιού
| 1 | Εύρος ("A1"). Εσωτερικό.Χρώμα = vbΚίτρινο |
Ρύθμιση χρώματος γραμματοσειράς κυψέλης
| 1 | Εύρος ("A1"). Font.Color = vbBlue |
Ορισμός χρώματος περιγράμματος κελιού
| 1 | Range ("A1"). Borders.Color = vbRed |
Ορίστε ένα χρώμα φόντου κελιού σε άλλο χρώμα κυττάρου
| 1 | Εύρος ("A1"). Εσωτερικό. Χρώμα = Εύρος ("Β1"). Εσωτερικό. Χρώμα |
Χρώματα RGB
Το RGB σημαίνει κόκκινο πράσινο μπλε. Αυτά είναι τα τρία βασικά χρώματα που μπορούν να συνδυαστούν για να παράγουν οποιοδήποτε άλλο χρώμα. Κατά την εισαγωγή χρωμάτων ως RGB, εισαγάγετε μια τιμή μεταξύ 0 και 255 για κάθε κωδικό χρώματος.
Ιδού ένα παράδειγμα:
| 1 | Εύρος ("A1"). Εσωτερικό. Χρώμα = RGB (255,255,0) |
Πάνω έχουμε ορίσει Κόκκινο = 255 (μέγιστη τιμή), Πράσινο = 255 (μέγιστη τιμή) και Μπλε = 0 (ελάχιστη τιμή). Αυτό ορίζει το χρώμα φόντου του κελιού σε Κίτρινο.
Αντ 'αυτού, μπορούμε να ορίσουμε το χρώμα γραμματοσειράς κελιού σε μοβ:
| 1 | Εύρος ("A1"). Εσωτερικό. Χρώμα = RGB (128,0,128) |
Υπάρχουν πολλά διαδικτυακά εργαλεία για να βρείτε τον κωδικό RGB για το χρώμα που θέλετε (εδώ είναι ένα).
Λίστα κωδικών ColorIndex & RGB Colors στο Access VBA
Η Access χρησιμοποιεί φόρμες για την εμφάνιση δεδομένων. Μπορείτε να χρησιμοποιήσετε τους Κώδικες ColorIndex για να αλλάξετε προγραμματικά το χρώμα φόντου και το χρώμα προσκηνίου των αντικειμένων στις φόρμες πρόσβασης.
| 12345 | Private Sub cmdSave_Click ()«Αλλάξτε το χρώμα φόντου του κουμπιού αποθήκευσης όταν αποθηκευτεί η εγγραφή.DoCmd.RunCommand acCmdSaveRecordcmdSave.BackColor = vbGreenΤέλος υπο |
