Cambiar el color de la fuente mediante código
Al código facilitado por Dante Amor, que línea habría que añadir para que el color de la fuente en las celdas a las que da el formato en color rojo y verde, sea blanco y negrita.
Sub formato2() 'Por.Dante Amor Set Rng = Application.InputBox("en que rango quieres aplicar el formato??", Type:=8) 'recorremos cada celda del rango seleccionado For Each celda In Rng valor = celda.Value 'asignamos colores según el valor de la celda fila = celda.Row residuo = fila Mod 2 If residuo = 1 Then celda.Interior.Color = 16774629 Else celda.Interior.Color = 16777215 End If ' If valor < 0 Then celda.Interior.Color = 255 ElseIf valor > 0 Then celda.Interior.Color = 32768 End If Next celda End Sub
2 Respuestas
Respuesta de Elsa Matilde
1
Respuesta de Dante Amor
1