Auteur Topic: Cel kleur opvragen en omzetten naar rgb gaat fout waarom (gelezen 1914 keer)

glda19 · « **Gepost op:** 08 augustus 2017, 19:13:44 »

hi
ik vul cel a1 rood
maar rood is rgb 255,0,0
maar onderstaande code geeft 255,255,255
dit op internet gevonden
Hoe komt dit
Dim intColor As Long
Dim rgb As String
rng = "a1"
intColor = Cells(1, 1).Interior.color
r = intColor And 255
g = intColor \ 256 And 255
b = intColor \ 256 ^ 2 And 255
MsgBox (r & "," & g & "," & b)

glda19 · « **Reactie #1 Gepost op:** 08 augustus 2017, 21:46:58 »

deze code werkt wel
Sub Excel_VBA_Get_RGB_Color_Of_Cell()
Dim cColor, cRed, cGreen, cBlue

'Get Cell background color VBA Value. Convert this Color Value to RGB Value
cColor = ActiveSheet.Cells(1, 1).Interior.Color

'Convert Color Code to RGB
cRed = (cColor Mod 256)
cGreen = (cColor \ 256) Mod 256
cBlue = (cColor \ 65536) Mod 256
MsgBox cColor & "; " & VBA.RGB(cRed, cGreen, cBlue)
RGBcode = VBA.RGB(cRed, cGreen, cBlue)
Cells(3, 2).Interior.Color = RGBcode

Help!

Menu

Hulp bij posten

Zoeken

Recente topics

Auteur Topic: Cel kleur opvragen en omzetten naar rgb gaat fout waarom (gelezen 1914 keer)

glda19

Cel kleur opvragen en omzetten naar rgb gaat fout waarom

glda19

Re: Cel kleur opvragen en omzetten naar rgb gaat fout waarom