Schimbați culoarea celulei - .Interior.ColorIndex
Pentru a schimba culoarea unei celule putem folosi:
Cell.Interior.ColorIndex = Num
Unde:
• Celula este referința celulei
• Interior - se referă la culoarea culorii reale a celulei (Proprietatea interioară)
• Colourindex este o valoare între 1 și 56 pentru una dintre cele 56 de culori predefinite ale Excel
Și Num este culoarea numărului atribuită celulei. Cu toate acestea, nu este întotdeauna ușor să ne amintim ce număr reprezintă culoarea. Următorul subrutină schimbă culoarea celulei în funcție de numărul rândului. Deci, de exemplu, rândul 3 va avea culoarea 3 etc.
Deoarece există 56 de culori presetate în Excel, aceasta înseamnă că celulele 59, 115 vor avea aceeași culoare ca celula din rândul 3:
| 123456789101112 | Opțiune explicităPrivate Sub CommandButton1_Click ()Color_Range (Foi ("Sheet2"). Range ("A1: A2000"))Sfârșitul SubSub Colour_Range (Cell_Range As Range)„Va colora fiecare celulă din intervalDim CellPentru fiecare celulă din Cell_RangeCell.Interior.ColorIndex = Cell.Row Mod 56Cell.Offset (0, 0) .Value = Cell.RowUrmătorulSfârșitul Sub |
Rutina este activată de un eveniment de clic.
Pentru a descărca fișierul .XLSM pentru acest tutorial, vă rugăm să faceți clic aici.
