Código para realizar un convertidor de números Hexadecimales a Color RGB
Necesito un código para convertir en excel números Hexadecimales a Color RGB, lo que tengo hecho es CAF3 ( Ingreso el numero hexadecimal),
CBF3(Valor de "R"=Rojo, CCF3 ( valor de G = Verde), CDF3,( valor de B = Azul )y en la Columna "E" Fila "3" ( el color que corresponde a los tres valores.
Ejemplo : Nº Hex. 0E3000 ; R = 14 ; G = 48 ; B = 0 y al lado en otra celda el color de esa mezcla.
He probado en las celdas de los valores R,G,B con las siguientes formulas.
Para el Codigo R ,la formula = HEX.A.DEC(IZQUIERDA(" Codigo Hexadecimal";2)).
Para el Codigo G la formula = HEX.A.DEC(EXTRAE("codigo Hexadecimal";2;2)).
Para el Codigo B la formula = HEX.A.DEC("Codigo Hexadecimal";2)).
Pero me aparece "NUM", lo que debe hacer el código es que yo introduzco el valor hexadecimal y automáticamente me debe dar los valores correspondientes en decimal, más el color que resulta de esa combinación.
1 Respuesta
H o l a:
Los colores van, en números decimales, desde el 0 hasta el 255
En códifo Hexadecimal van desde el 00 hasta el FF
Entonces cada color lo puedes representar así:
Color Decimal Hex
Red 0 - 255 00-FF
Green 0 - 255 00-FF
Blue 0 - 255 00-FF
Entonces, el código Hex siempre debe de ser de 2 caracteres por color, en total 6 caracteres para todo el color.
Si tu pones esto: CCF3, te faltan 2 caracteres, tendrías que poner así:
0C CF 03, este es un ejemplo, realmente no sé cuál color quieras.
CC 0F 03, este es otro ejemplo.
0C 0C F3, este es otro ejemplo.
Explicado lo anterior. Si pones en la celda C2 esto:
0E3000
En la celda "D2"
=HEX.A.DEC(EXTRAE(C2;1;2))
En la celda "E2"
=HEX.A.DEC(EXTRAE(C2;3;2))
En la celda "F2"
=HEX.A.DEC(EXTRAE(C2;5;2))
Para poner el color en la celda "G2" tendría que ser con una macro:
Sub PonerColor() [G2].Interior.Color = RGB([D2], [E2], [F2]) End Sub
Para hacerlo todo con macro:
Sub PonerColor() 'Por.Dante Amor [D2] = Application.Hex2Dec(Mid([C2], 1, 2)) [E2] = Application.Hex2Dec(Mid([C2], 3, 2)) [F2] = Application.Hex2Dec(Mid([C2], 5, 2)) [G2].Interior.Color = RGB([D2], [E2], [F2]) End Sub
Recuerda: Siempre el código Hex debe ser de 6 caracteres.
Puedes revisar los códigos hex y sus colores en esta página:
http://html-color-codes.info/codigos-de-colores-hexadecimales/
¡Gracias! Dante por tu respuesta es que he visto los catálogos que disponen en las casas de venta de pinturas cuando tu quieres un color y el mismo en la muestra te indica los porcentajes que se combinan de R, G, B, para formar ese color.Aquí en Argentina se llaman Pinturerias.
