Alterar a cor da célula - .Interior.ColorIndex
Para mudar a cor de uma célula, podemos usar:
Cell.Interior.ColorIndex = Num
Onde:
• Célula é a referência da célula
• Interior - refere-se à cor da cor real da célula (a propriedade interior)
• O índice de cor é um valor entre 1 e 56 para uma das 56 cores predefinidas do Excel
E Num é a cor do número atribuída à célula. No entanto, nem sempre é fácil lembrar qual número representa qual cor. A seguinte sub-rotina altera a cor da célula com base no número da linha. Por exemplo, a linha 3 terá a cor 3 etc.
Como existem 56 cores predefinidas no Excel, isso significa que as células 59, 115 terão a mesma cor da célula na linha 3:
| 123456789101112 | Opção ExplícitaPrivate Sub CommandButton1_Click ()Colour_Range (Sheets ("Sheet2"). Range ("A1: A2000"))End SubSub Colour_Range (Cell_Range As Range)'Irá colorir cada célula no intervaloDim CellPara cada célula em Cell_RangeCell.Interior.ColorIndex = Cell.Row Mod 56Cell.Offset (0, 0) .Value = Cell.RowPróximoEnd Sub |
A rotina é ativada por um evento de clique.
Para baixar o arquivo .XLSM para este tutorial, clique aqui.
