Změnit barvu buňky - .Interior.ColorIndex
Chcete -li změnit barvu buňky, můžeme použít:
Cell.Interior.ColorIndex = počet
Kde:
• Cell je odkaz na buňku
• Interiér - odkazuje na barvu skutečné barvy buňky (vlastnost interiéru)
• Colourindex je hodnota mezi 1 a 56 pro jednu z 56 předdefinovaných barev aplikace Excel
A Num je barva čísla přiřazená buňce. Není však vždy snadné si vzpomenout, které číslo představuje kterou barvu. Následující podprogram mění barvu buňky na základě čísla řádku. Například například řádek 3 bude mít barvu 3 atd.
Protože v aplikaci Excel je 56 přednastavených barev, znamená to, že buňky 59, 115 budou mít stejnou barvu jako buňka v řádku 3:
| 123456789101112 | Možnost ExplicitníPrivate Sub CommandButton1_Click ()Colour_Range (Sheets ("Sheet2"). Range ("A1: A2000"))End SubSub Colour_Range (Cell_Range As Range)„Vybarví každou buňku v dosahuDim CellPro každou buňku v Cell_RangeCell.Interior.ColorIndex = Cell.Row Mod 56Cell.Offset (0, 0) .Value = Cell.RowdalšíEnd Sub |
Rutina se aktivuje událostí kliknutí.
Chcete -li si stáhnout soubor .XLSM pro tento výukový program, klikněte sem.
