Tartalomjegyzék
Cella színének módosítása - .Belső.ColorIndex
A cella színének megváltoztatásához használhatjuk:
Cell.Interior.ColorIndex = Szám
Ahol:
• A cella a cella hivatkozása
• Belső - a tényleges cella színére utal (a belső tulajdonság)
• A Colourindex 1 és 56 közötti érték az Excel 56 előre meghatározott színe közül
A szám pedig a cellához rendelt számszín. Azonban nem mindig könnyű megjegyezni, hogy melyik szám melyik színt jelöli. A következő alprogram megváltoztatja a cella színét a sorszám alapján. Tehát például a 3. sorban lesz a 3. szín stb.
Mivel az Excelben 56 előre beállított szín van, ez azt jelenti, hogy az 59., 115. Cella színe megegyezik a 3. sor cellájával:
| 123456789101112 | Explicit lehetőségPrivát alparancsButton1_Click ()Colour_Range (Táblázatok ("Sheet2"). Tartomány ("A1: A2000"))End SubSzínes_tartomány (cellatartomány mint tartomány)'Színezni fogja a tartomány minden cellájátDim CellA Cell_Range minden cellájáhozCell.Interior.ColorIndex = Cell.Row Mod 56Cell.Offset (0, 0). Value = Cell.RowKövetkezőEnd Sub |
A rutint egy kattintási esemény aktiválja.
Az oktatóanyag .XLSM fájljának letöltéséhez kattintson ide.
