Blijkt RGB-kleuren in een cel

Dennis wil drie cellen (A1: A3) vullen met RGB-waarden en hebben een andere cel (C1) tonen de kleur op basis van die waarden. Hij vraagt ​​zich af of er een makkelijke manier om dit te doen.

De eenvoudigste manier om dit te doen is een macro die de waarden A1 grijpt gebruiken: A3 en wijzigt de kleur van cel C1 basis van die waarden. Idealiter zou de macro controleren om ervoor te zorgen dat de waarden in de bron cellen zijn in het bereik van 0 tot 255. De volgende macro werkt prima voor dit doel:

Private Sub Worksheet_Change (ByVal Target As Range)
If Not Intersect (Target, Range ("A1: A3")) Is Nothing Dan
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

Merk op dat deze macro de code worden toegevoegd met het werkblad waarop de cellen bestaan. (Klik met de rechtermuisknop op de tab blad en kies View Code, voeg dan de macro-er.) Het is een event handler dat elke keer dat er een verandering in cel A1, A2 of A3 automatisch wordt uitgevoerd. De waarden in deze cellen worden gegarandeerd tussen 0 en 255 door het nemen van de absolute waarde van de celinhoud en met de rest (modulo) van delen door 256.

ExcelTips is uw bron voor kosteneffectieve Microsoft Excel training. Deze tip (9090) is van toepassing op Microsoft Excel 97, 2000, 2002 en 2003. U kunt een versie van deze tip voor de ribbon-interface van Excel (Excel 2007 en later) vindt u hier: blijkt RGB-kleuren in een cel.


© 2019 Quilcedacarvers.com | Contact us: webmaster# quilcedacarvers.com