Innehållsförteckning
Ändra färg på cell - .Interior.ColorIndex
För att ändra färg på en cell kan vi använda:
Cell.Interior.ColorIndex = Num
Var:
• Cell är cellreferensen
• Interiör - hänvisar till färgen på den faktiska cellfärgen (interiörens egendom)
• Färgindex är ett värde mellan 1 och 56 för en av Excel 56 fördefinierade färger
Och Num är nummerfärgen som tilldelats cellen. Det är dock inte alltid lätt att komma ihåg vilket nummer som representerar vilken färg. Följande delrutan ändrar cellfärgen baserat på radnumret. Så till exempel rad 3 kommer att ha färg 3 etc.
Eftersom det finns 56 förinställda färger i Excel, betyder det att celler 59, 115 kommer att ha samma färg som cellen i rad 3:
| 123456789101112 | Alternativ ExplicitPrivat underkommandoButton1_Click ()Colour_Range (Sheets ("Sheet2"). Range ("A1: A2000"))Avsluta SubSub Colour_Range (Cell_Range As Range)'Färgar varje cell inom intervalletDim CellFör varje cell i Cell_RangeCell.Interior.ColorIndex = Cell.Row Mod 56Cell.Offset (0, 0) .Värde = Cell.RadNästaAvsluta Sub |
Rutinen aktiveras av en klickhändelse.
För att ladda ner .XLSM -filen för den här självstudien, vänligen klicka här.
