Cambia colore della cella - .Interior.ColorIndex
Per cambiare il colore di una cella possiamo usare:
Cell.Interior.ColorIndex = Num
In cui si:
• La cella è il riferimento della cella
• Interno: si riferisce al colore del colore effettivo della cella (proprietà interna)
• Colourindex è un valore compreso tra 1 e 56 per uno dei 56 colori predefiniti di Excel
E Num è il colore del numero assegnato alla cella. Tuttavia, non è sempre facile ricordare quale numero rappresenta quale colore. La seguente subroutine cambia il colore della cella in base al numero di riga. Quindi, ad esempio, la riga 3 avrà il colore 3 ecc.
Poiché ci sono 56 colori preimpostati in Excel, ciò significa che le celle 59, 115 avranno lo stesso colore della cella nella riga 3:
| 123456789101112 | Opzione esplicitaSub CommandButton1_Click privato ()Colour_Range (Fogli("Foglio2").Range("A1:A2000"))Fine sottotitoloSub Colour_Range(Cell_Range As Range)'Colorerà ogni cella nell'intervalloDim CellPer ogni cella in Cell_RangeCell.Interior.ColorIndex = Cell.Row Mod 56Cell.Offset(0, 0).Valore = Cell.RigaProssimoFine sottotitolo |
La routine viene attivata da un evento click.
Per scaricare il file .XLSM per questo tutorial, fare clic qui.
