Existe la función Celda( ), utilizando el tipo "Color" el resultado puede ser: Valor 1 si la celda tiene formato de color para los valores negativos; de lo contrario, devuelve 0 (cero).
Información tomada de este enlace:
https://support.office.com/es-es/article/Funci%C3%B3n-CELDA-51bd39a5-f338-4dbe-a33f-955d67c2b2cf
Es decir, si la celda tiene amarillo o rojo o verde o azul, siempre te regresa un 0 (cero).
La única forma de saber qué color tiene una celda es con VBA
Prueba con la siguiente macro, en la celda G4 te pondrá un valor, dependiendo del color que tenga la celda E4
Sub Regresa_Color()
'Por. Dante Amor
celda_color = "E4" 'celda con color
celda_resultado = "G4" 'celda específica para poner un valor
Select Case Range(celda_color).Interior.ColorIndex
Case 3 'rojo
Range(celda_resultado) = 1
Case 4 'verde
Range(celda_resultado) = 2
Case 5 'azul
Range(celda_resultado) = 3
Case 6 'amarillo
Range(celda_resultado) = 4
End Select
End Sub
Cada color estándar es identificado por un número, puedes consultar la lista de colores y números en el siguiente enlace:
http://dmcritchie.mvps.org/excel/colors.htm
Sigue las Instrucciones para un botón y ejecutar la macro
- Abre tu libro de Excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- En el menú elige Insertar / Módulo
- En el panel del lado derecho copia la macro
- Ahora para crear un botón, puedes hacer lo siguiente:
- Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
- Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
- Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona: Tamaño y Propiedades. En la ventana que se abre selecciona la pestaña: Propiedades. Desmarca la opción “Imprimir Objeto”. Presiona “Cerrar”
- Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: Regresa_Color
- Aceptar.
- Para ejecutarla dale click a la imagen.
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.