Spremeni barvo celice - .Interior.ColorIndex
Za spremembo barve celice lahko uporabimo:
Cell.Interior.ColorIndex = Št
Kje:
• Celica je referenca celice
• Notranjost - nanaša se na barvo dejanske barve celice (Notranja lastnina)
• Colourindex je vrednost med 1 in 56 za eno od 56 vnaprej določenih Excelovih barv
In Num je barva številke, dodeljena celici. Vendar pa se ni vedno mogoče spomniti, katera številka predstavlja katero barvo. Naslednja podprogram spremeni barvo celice glede na številko vrstice. Tako bo na primer vrstica 3 imela barvo 3 itd.
Ker je v Excelu 56 prednastavljenih barv, to pomeni, da bodo celice 59, 115 enake barve kot celica v vrstici 3:
| 123456789101112 | Možnost izrecnoZasebni pod -ukaz Button1_Click ()Colour_Range (Listi ("List2"). Obseg ("A1: A2000"))End SubPod Colour_Range (Cell_Range As Range)'Bo obarval vsako celico v razponuZatemnjena celicaZa vsako celico v Cell_RangeCell.Interior.ColorIndex = Cell.Row Mod 56Cell.Offset (0, 0) .Value = Cell.RowNaslednjiEnd Sub |
Rutino aktivira dogodek klika.
Če želite prenesti datoteko .XLSM za to vadnico, kliknite tukaj.
