Kleur van cel wijzigen - .Interior.ColorIndex
Om de kleur van een cel te veranderen kunnen we gebruiken:
Cell.Interior.ColorIndex = Num
Waar:
• Cel is de celverwijzing
• Interieur - verwijst naar de kleur van de werkelijke celkleur (de eigenschap interieur)
• Kleurindex is een waarde tussen 1 en 56 voor een van de 56 vooraf gedefinieerde kleuren van Excel
En Num is de nummerkleur die aan de cel is toegewezen. Het is echter niet altijd gemakkelijk om te onthouden welk getal voor welke kleur staat. De volgende subroutine verandert de celkleur op basis van het rijnummer. Dus rij 3 heeft bijvoorbeeld kleur 3 enz.
Aangezien er 56 vooraf ingestelde kleuren in Excel zijn, betekent dit dat cellen 59, 115 dezelfde kleur hebben als de cel in rij 3:
| 123456789101112 | Optie explicietPrivé Sub CommandButton1_Click()Kleurbereik (Vellen ("Blad2"). Bereik ("A1:A2000"))Einde subSub Color_Range (Cell_Range As Range)' Zal elke cel binnen bereik kleurenDim CellVoor elke cel in Cell_RangeCell.Interior.ColorIndex = Cell.Rij Mod 56Cell.Offset(0, 0).Waarde = Cell.RijVolgendeEinde sub |
De routine wordt geactiveerd door een klikgebeurtenis.
Klik hier om het .XLSM-bestand voor deze zelfstudie te downloaden.
