Identificar color de celda en Excel

En ocasiones es necesario identificar el color de celda en Excel, y puede sernos útil tanto el color hexadecimal o el color en RGB, en las siguientes funciones se puede obtener dichos códigos, veamos como funcionan.

En esta primera función se recibe una celda sobre la cual se evaluará el color de fondo, esto es posible mediante la propiedad COLOR,  y por medio de la función HEX es que logramos realizar la conversión.

Function obtenercolor1(celda As Range) As String
Dim sColor As String
sColor = Right("000000" & Hex(celda.Interior.Color), 6)
obtenercolor1 = Right(sColor, 2) & Mid(sColor, 3, 2) & Left(sColor, 2)
End Function

En la segunda función obtendremos los valores por separado, al igual que en el caso anterior se requiere usar la función COLOR.

Function obtenercolor2(celda As Range) As String
Dim C As Long
Dim R As Long
Dim G As Long
Dim B As Long
C = celda.Interior.Color
R = C Mod 256
G = C \ 256 Mod 256
B = C \ 65536 Mod 256
obtenercolor2 = "R=" & R & ", G=" & G & ", B=" & B
End Function

 

Como se puede observar en la imagen la función obtenercolor1 esta siendo empleada en la celda D3 y D4, en estas celdas se esta obteniendo el código Hexadecimal correspondiente, y la función obtenercolor2 esta siendo empleada en la celda D6 y D7.

El ejemplo completo lo puede descargar desde el siguiente enlace Identificar el color de una Celda