Αλλαγή χρώματος κελιού - .Interior.ColorIndex
Για να αλλάξουμε το χρώμα ενός κελιού μπορούμε να χρησιμοποιήσουμε:
Cell.Interior.ColorIndex = Αριθμός
Οπου:
• Το κελί είναι η αναφορά κελιού
• Εσωτερικό - αναφέρεται στο χρώμα του πραγματικού χρώματος του κελιού (Η ιδιότητα του εσωτερικού)
• Το Colourindex είναι μια τιμή μεταξύ 1 και 56 για ένα από τα 56 προκαθορισμένα χρώματα του Excel
Και Num είναι το χρώμα αριθμού που έχει εκχωρηθεί στο κελί. Ωστόσο, δεν είναι πάντα εύκολο να θυμηθούμε ποιος αριθμός αντιπροσωπεύει ποιο χρώμα. Η ακόλουθη υπορουτίνα αλλάζει το χρώμα του κελιού με βάση τον αριθμό γραμμής. Έτσι, για παράδειγμα, η σειρά 3 θα έχει χρώμα 3 κ.λπ.
Καθώς υπάρχουν 56 προκαθορισμένα χρώματα στο Excel, αυτό σημαίνει ότι τα κελιά 59, 115 θα έχουν το ίδιο χρώμα με το κελί στη σειρά 3:
| 123456789101112 | Επιλογή ρητήPrivate Sub CommandButton1_Click ()Περιοχή χρώματος (Φύλλα ("Φύλλο2"). Εύρος ("A1: A2000"))Τέλος υποSub Colour_Range (Cell_Range As Range)"Θα χρωματίσει κάθε κελί στην περιοχήDim CellΓια κάθε κελί στο εύρος κυττάρωνCell.Interior.ColorIndex = Cell.Row Mod 56Cell.Offset (0, 0). Value = Cell.RowΕπόμενοΤέλος υπο |
Η ρουτίνα ενεργοποιείται με ένα συμβάν κλικ.
Για να κατεβάσετε το αρχείο .XLSM για αυτό το σεμινάριο, κάντε κλικ εδώ.
