Viser RGB Colors i en celle

April 24  by Eliza

Dennis ønsker å fylle tre celler (A1: A3) med RGB-verdier og har en annen celle (C1) viser fargen basert på disse verdiene. Han lurer på om det er en enkel måte å gjøre dette.

Den enkleste måten å gjøre dette på er å bruke en makro som griper verdiene i A1: A3 og deretter endrer fargen på celle C1 basert på disse verdier. Ideelt sett bør makro sjekke for å være sikker på at verdiene i kildecellene er i området 0 til 255. De følgende makro fungerer bra for dette formålet:

Private Sub Worksheet_Change (ByVal Target As Range)
Hvis ikke overlappe (Target, Range ("A1: A3")) Er Ingenting Deretter
lRed = Abs (Range ("A1"). Verdi) Mod 256
lGreen = Abs (Range ("A2"). Verdi) Mod 256
LBlue = Abs (Range ("A3"). Verdi) Mod 256

Range ("C1"). Interior.Color = _
RGB (lRed, lGreen, LBlue)
End If
End Sub

Merk at dette makro bør tilsettes til koden for arket hvorpå cellene eksisterer. (Bare høyreklikk på faneark og velg Vis kode, og deretter legge den makro der.) Det er en hendelseshåndterer som automatisk kjøres hver gang det er en endring i celle A1, A2 eller A3. Verdiene i disse cellene er sikret å være mellom 0 og 255 ved å ta den absolutte verdien av celleinnholdet, og ved hjelp av resten (modulo) for å dele det ved 256.

ExcelTips er din kilde for kostnadseffektiv Microsoft Excel trening. Dette tipset (9090) gjelder for Microsoft Excel 97, 2000, 2002, og 2003. Du kan finne en versjon av dette tipset for Båndet av Excel (Excel 2007 og senere) her: Viser RGB Colors i en celle.