Dennis quiere llenar tres celdas (A1: A3) con valores RGB y hacer que otra celda (C1) muestre el color basado en esos valores. Se pregunta si hay una manera fácil de hacer esto.

La forma más sencilla de hacer esto es usar una macro que tome los valores en A1: A3 y luego modifique el color de la celda C1 en base a esos valores.

Idealmente, la macro debería verificar para asegurarse de que los valores en las celdas de origen estén en el rango de 0 a 255. La siguiente macro funciona muy bien para este propósito:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A1:A3")) Is Nothing Then         lRed = Abs(Range("A1").Value) Mod 256         lGreen = Abs(Range("A2").Value) Mod 256         lBlue = Abs(Range("A3").Value) Mod 256

Range("C1").Interior.Color = _           RGB(lRed, lGreen, lBlue)

End If End Sub

Tenga en cuenta que esta macro debe agregarse al código de la hoja de trabajo en la que existen las celdas. (Simplemente haga clic con el botón derecho en la pestaña de la hoja y elija Ver código, luego agregue la macro allí). Es un controlador de eventos que se ejecuta automáticamente cada vez que hay un cambio en la celda A1, A2 o A3.

Se garantiza que los valores en esas celdas estén entre 0 y 255 tomando el valor absoluto del contenido de la celda y usando el resto (módulo)

de dividirlo por 256.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (9090) se aplica a Microsoft Excel 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y posterior) aquí:

link: / excelribbon-Mostrando_RGB_Colors_in_a_Cell [Mostrando colores RGB en una celda].