Zmeniť farbu bunky - .Interior.ColorIndex
Na zmenu farby bunky môžeme použiť:
Cell.Interior.ColorIndex = počet
Kde:
• Cell je odkaz na bunku
• Interiér - odkazuje na farbu skutočnej farby bunky (vlastnosť interiéru)
• Colourindex je hodnota medzi 1 a 56 pre jednu z 56 preddefinovaných farieb programu Excel
A Num je farba čísla priradená bunke. Nie je však vždy ľahké si zapamätať, ktoré číslo predstavuje ktorú farbu. Nasledujúci podprogram mení farbu bunky na základe čísla riadka. Napríklad riadok 3 bude mať farbu 3 atď.
Pretože v programe Excel je 56 prednastavených farieb, znamená to, že bunky 59, 115 budú mať rovnakú farbu ako bunka v riadku 3:
123456789101112 | Možnosť explicitnáSúkromné sub CommandButton1_Click ()Colour_Range (Sheets ("Sheet2"). Range ("A1: A2000"))Koniec podSub Colour_Range (Cell_Range As Range)„Vyfarbí každú bunku v dosahuDim CellPre každú bunku v poli Cell_RangeCell.Interior.ColorIndex = Cell.Row Mod 56Cell.Offset (0, 0). Hodnota = Cell.RowĎalšieKoniec pod |
Rutina sa aktivuje udalosťou kliknutia.
Kliknite sem, ak si chcete stiahnuť súbor .XLSM pre tento tutoriál.