Cambiar el color de la celda - .Interior.ColorIndex
Para cambiar el color de una celda podemos usar:
Cell.Interior.ColorIndex = Num
Dónde:
• Celda es la referencia de celda
• Interior: se refiere al color del color real de la celda (la propiedad interior)
• Colourindex es un valor entre 1 y 56 para uno de los 56 colores predefinidos de Excel
Y Num es el color del número asignado a la celda. Sin embargo, no siempre es fácil recordar qué número representa qué color. La siguiente subrutina cambia el color de la celda según el número de fila. Entonces, por ejemplo, la fila 3 tendrá el color 3, etc.
Como hay 56 colores preestablecidos en Excel, esto significa que las celdas 59, 115 tendrán el mismo color que la celda en la fila 3:
| 123456789101112 | Opción explícitaPrivado Sub CommandButton1_Click ()Colour_Range (Hojas ("Hoja2"). Rango ("A1: A2000"))End SubSub Colour_Range (Cell_Range como rango)'Coloreará cada celda en el rangoDim CellPara cada celda en Cell_RangeCell.Interior.ColorIndex = Cell.Row Mod 56Cell.Offset (0, 0) .Value = Cell.RowpróximoEnd Sub |
La rutina se activa mediante un evento de clic.
Para descargar el archivo .XLSM de este tutorial, haga clic aquí.
